%@ language="vbscript" %>
<% Response.buffer="true"%>
HardOns Old Forum
<%
strSQL = "SELECT * FROM qry_topics"
Set dbConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath("db/hardonsforum.mdb") & "; " & _
"Jet OLEDB:System database=" & Server.MapPath("db/timmeh.mdw") & "; " & _
"User ID=Admin;Password=rec0rd$2;"
dbConn.Open sConnect
rs.Open strSQL, dbConn
%>
<%
'Populate the rows with forum topic entries
on error resume next
rs.MoveFirst
rs.MoveLast
if rs.RecordCount = 0 Then
Response.Write "No entries yet!"
else
rs.MoveFirst
Response.Write ("Topics Created ")
while not rs.EOF
Response.Write ("" & rs.Fields("topicName").Value & " ")
Response.Write ("" & rs.Fields("topicDate").Value & " ")
rs.MoveNext
wend
end if
rs.Close
dbConn.Close
Set rs = Nothing
Set dbConn = Nothing
%>