<%
sql= "SELECT ID,type,sub_type,des_type,title,sub_title,des_title,email,enter_date FROM [content] Where type='MCS Projects' ;"
Set rs = Server.CreateObject("ADODB.Recordset")
mdbfilepath = Server.MapPath("mcs.mdb")
rs.Open sql,"Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath &";", 3, 3
%>
<%
' Loop through our records and ouput 1 row per record
Do While Not rs.EOF
For I = 1 To 1
response.write ""
if rs(3)<>"" then
response.write "| " & rs(3) & " | "
else
response.write "" & rs(4) & "
"
response.write "" & rs(5) & " "
if rs(6)<>"" then
response.write " more... | "
else
response.write ""
end if
end if
response.write " "
rs.MoveNext
Next 'I
' Increment the number of records we've shown
' Can't forget to move to the next record!
Loop
' All done - close table
' Close DB objects and free variables
rs.Close
Set rs = Nothing%>
|