<%
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")%>
|
Date |
From |
Subject |
<%
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("when") %>
|
<%= msg("fullname") %>
|
<%= msg("subject") %>
|
<% msg.MoveNext
Loop %>
<%
OBJdbConnection.Close
%>