<%@ 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 %>

..:| - *OLD* FORUM TOPICS - |:..


Click here for the NEW Hard-Ons Forum

<% '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 ("") while not rs.EOF Response.Write ("") Response.Write ("") rs.MoveNext wend end if rs.Close dbConn.Close Set rs = Nothing Set dbConn = Nothing %>
TopicsCreated
" & rs.Fields("topicName").Value & "" & rs.Fields("topicDate").Value & "