Classifieds
<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open directory qry = "SELECT topic " qry = qry & "FROM ClassifiedsTopics " qry = qry & "WHERE ID = " & Request.Form("topic_id") Set Topics = OBJdbConnection.Execute(qry) %>

<%=Topics("topic")%>

<% qry = "SELECT * " qry = qry & "FROM ClassifiedsListing " qry = qry & "WHERE topic_id = " & Request.Form("topic_id") & " " Set msg = OBJdbConnection.Execute(qry) Do While NOT msg.EOF %> <% msg.MoveNext Loop %>
Date From Subject
">
<%= msg("when") %>
<%= msg("fullname") %>
<%= msg("subject") %>

<% OBJdbConnection.Close %>