<%
Dim adoCon, rsFAQ
'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=faq.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("FAQ.mdb")
Set rsFAQ = Server.CreateObject("ADODB.Recordset")
'rsFAQ.Open "FAQ", Application("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=faq.mdb" )
rsFAQ.Open "select * from FAQ", adoCon
Do While Not rsFAQ.EOF
Response.Write "- " & rsFAQ("Question") & ""
Response.Write "
" & rsFAQ("Answer") & " "
rsFAQ.MoveNext
Loop
If rsFAQ.BOF Then
Response.Write "No FAQs in the database! " & vbNewLine
End If
rsFAQ.Close
%>
|