Digitalosophy
July 23rd, 2003, 04:24 PM
<% Dim conn %>
<% MyPath=Server.MapPath("database.mdb") %>
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & MyPath %>
<% srSQL1 = "SELECT * FROM Publications WHERE series = '1 SERIES'" %>
<% Set rsSeries1 = conn.Execute(srSQL1) %>
<table width="707" border="0">
<tr>
<td class="header" colspan="5">
<div align="center"><font face="Tahoma, Arial, Verdana" size="2" color="#333333"><b>ADMINISTRATION
(1 SERIES)</b></font></div>
</td>
</tr>
<tr>
<% Do While Not rsSeries1.EOF %>
<td width="123" align="top"><font face="Tahoma, Arial, Verdana" size="1" color="#333333">
<% Response.Write rsSeries1("pubNum")%>
</font></td>
<td width="341" align="top"><font face="Tahoma, Arial, Verdana" size="1" color="#333333">
<% Response.Write rsSeries1("title")%>
</font> </td>
<td width="136"><font face="Tahoma, Arial, Verdana" size="1" color="#333333">
<% Response.Write rsSeries1("date")%>
</font></td>
<td width="89"><font face="Tahoma, Arial, Verdana" size="1" color="#333333">
<% Response.Write rsSeries1("prop")%>
</font></td>
</tr>
<% rsSeries1.MoveNext %>
<% Loop %>
</table>
that will connect to your database, and grab the records
pubNum
title
date
prop
through a recordset called rsSeries1 and place them in a table
this simply connects to your database
<% Dim conn %>
<% MyPath=Server.MapPath("database.mdb") %>
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & MyPath %>
this is saying, pull the rocords until there arent any more to pull
<% Do While Not rsSeries1.EOF %>
this displays the record
<% Response.Write rsSeries1("pubNum")%>
move to the next record and keep looping
<% rsSeries1.MoveNext %>
<% Loop %>
now you stated you already know how to get the records into flash, so i am not going to elaborate, if you need help, repost