Topic

Name

Replies

Date

<% set conn = Server.CreateObject("ADODB.connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\domah\db\msgboard.mdb") & ";" & _ "Persist Security Info=False" conn.Open(sConnection) Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn rs.Open "SELECT * FROM thing where replyid=0 ORDER BY msgid DESC" if rs.EOF then response.write "
No Entry Yet" while NOT rs.EOF %> <% id = rs("msgid") %>

"><%=rs("topic")%>

<%=rs("name")%>

<% Set rso = Server.CreateObject("ADODB.Recordset") rso.Open "SELECT * FROM thing where replyid="&id, conn, 3%> <%response.write rso.recordcount%>

<%=rs("date")%>

<% rs.MoveNext WEND %>