<% '## Forum_SQL - Get Origional Posting strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rs4 = my_Conn.Execute (strSql) if rs4.EOF then rs4.close set rs4 = nothing my_Conn.close set my_Conn = nothing Response.Redirect("default.asp") end if '## Forum_SQL - Get all topics from DB strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "REPLY.REPLY_ID, " & strTablePrefix & "REPLY.R_AUTHOR, " & strTablePrefix & "REPLY.TOPIC_ID, " & strTablePrefix & "REPLY.R_DATE, " & strTablePrefix & "REPLY.R_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE" set rs3 = Server.CreateObject("ADODB.Recordset") rs3.open strSql, my_Conn Response.Write "Print Page | Close Window
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline &_ "

" & rs4("T_Subject") & "

" & vbNewline & _ "

Printed from: " & strForumTitle & "
" & vbNewline & _ "Topic URL: " & strForumURL & "link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & "
" & vbNewline & _ "Printed on: " & ChkDate(DateToStr(Now())) & "

" & vbNewline & _ "

Topic:
" & vbNewline & _ "

" & vbNewline & _ "

Topic author: " & rs4("M_NAME") & "
" & vbNewline & _ "Subject: " & rs4("T_Subject") & "
" & vbNewline & _ "Posted on: " & ChkDate(rs4("T_DATE")) & " " & ChkTime(rs4("T_DATE")) & "
" & vbNewline & _ "Message:

" & formatStr(rs4("T_MESSAGE")) & "

" & vbNewline if rs3.EOF or rs3.BOF then '## Do Nothing else rs3.movefirst Response.Write "

" & vbNewline & _ "Replies:
" & vbNewline do until rs3.EOF Response.Write "

" & vbNewline & _ "

" & vbNewline & _ "Topic author: " & rs3("M_NAME") & "
" & vbNewline & _ "Replied on: " & ChkDate(rs3("R_DATE")) & " " & ChkTime(rs3("R_DATE")) & "
" & vbNewline & _ "Message:

" & formatStr(rs3("R_MESSAGE")) & "

" & vbNewline rs3.MoveNext loop end if rs3.close set rs3 = Nothing rs4.close set rs4 = Nothing Response.Write "

" & vbNewline & _ "

" & strForumTitle & " : " & strForumURL & "

" & vbNewline & _ "

" & strCopyright & "

" & vbNewline &_ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewline %>