<% 'variables Dim objConn, dispfile 'objects Set objConn = Server.CreateObject("ADODB.Connection") '''''''''''''''''''''''''''''''' ' Connects to database ' '''''''''''''''''''''''''''''''' Function Connect() objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=" & Server.Mappath("MyDb.mdb") & ";" End Function '''''''''''''''''''''''''''''''' ' Disconnect from database ' '''''''''''''''''''''''''''''''' Function Disconnect() objConn.Close Set objConn = Nothing End Function '''''''''''''''''''''''''''''''' ' list all the topics ' '''''''''''''''''''''''''''''''' Function listTopics() strSQL = "SELECT * FROM tbForumTopic ORDER BY TopicDate DESC, ID DESC " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn Do While Not objRS.EOF %> <%=objRS.fields("TopicName")%> <%=objRS.fields("TopicAuthor")%> <%=objRS.fields("TopicDate")%> <% objRS.MoveNext Loop End Function '''''''''''''''''''''''''''''''' ' Get topic by id ' '''''''''''''''''''''''''''''''' Function listTopicByID() strSQL = "SELECT * FROM tbForumTopic WHERE ID LIKE '"& id &"' " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn Do While Not objRS.EOF %>

Answer This Topic
<%= objRS.fields("TopicName") %>	<%= objRS.fields("TopicAuthor") %>	<%= objRS.fields("TopicDate") %>
<%= objRS.fields("TopicMessage") %>

<% objRS.MoveNext Loop End Function Function listTopicFormByID() strSQL = "SELECT * FROM tbForumTopic WHERE ID LIKE '"& id &"' " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn %>

" name="txtTopic">

Reply Topic
Topic Name	<%= objRS.fields("TopicName")%>
Your Name
Message

<% End Function '''''''''''''''''''''''''''''''' ' List the replies ' '''''''''''''''''''''''''''''''' Function listReplies() strSQL = "SELECT * FROM tbForumTopic WHERE ID LIKE '"& id &"' " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn Dim topicname topicname = objRS.fields("TopicName") strSQL = "SELECT * FROM tbForumReply WHERE TopicID LIKE '"& id &"' ORDER BY TopicID DESC " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn %> <% Do While Not objRS.EOF %>

Reply for <%= topicname %>	<%= objRS.fields("ReplyAuthor") %>
<%= objRS.fields("ReplyMessage") %>

<% objRS.MoveNext Loop End Function '''''''''''''''''''''''''''''''' ' Add a topic ' '''''''''''''''''''''''''''''''' Function addTopic() Dim objRS strSQL = "INSERT INTO tbForumTopic (TopicName, TopicAuthor, TopicMessage, TopicDate) VALUES ( '"& topic &"', '"& author &"', '"& message &"', '"& Date &"' )" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn,2,2 End Function '''''''''''''''''''''''''''''''' ' Reply a topic ' '''''''''''''''''''''''''''''''' Function addReply() Dim objRS strSQL = "INSERT INTO tbForumReply (TopicID, ReplyAuthor, ReplyMessage) VALUES ( '"& id &"', '"& author &"', '"& message &"') " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn,2,2 End Function %>