<% '## Open DataBase Connection '## (Change to include file soon!) set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request("pagesize") If mypagesize="" then mypagesize=15 end if mySQL=request("strSQL") IF mySQL="" THEN mySQL=SQLtemp END IF Function FormatStr(String) on Error resume next String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "

") String = Replace(String, CHR(10), "
") FormatStr = String End Function Function DoDropDown(tblName, DispField, ValueField, SelVal, name) StrSQL = "SELECT " & DispField & ", " & ValueField StrSQl = StrSQL & " FROM " & tblName rsdrop.Open strSQL, my_Conn Response.Write "" & vbcrlf rsdrop.Close set rsdrop = nothing End Function Sub GetFirst '# Get Origional Posting strSql = "SELECT Members.M_Name,Members.M_ICQ, Members.Member_id, Topics.T_date, Topics.T_subject, Topics.T_Message, Topics.T_Originator, Topics.Topic_ID " strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator " strSql = strSql & "where topics.topic_id = " & Request.QueryString("topic_id") set rs = my_conn.Execute (strSql) If rs.Eof or rs.Bof then ' No categories found in DB Response.Write "No Topics Found" Else Response.Write "" Response.Write "" & rs("M_name") & "" Response.Write "Posted - " & day(rs("T_Date")) & " " & monthname(month(rs("T_Date"))) & " " & year(rs("T_Date")) & " " & hour(rs("T_Date")) & ":" & Minute(rs("T_Date")) & "" Response.Write " " Response.Write " " Response.Write " " if ICQ = "true" then if trim(rs("M_ICQ")) <> "" then Response.Write " " end if end if Response.Write "

" & formatStr(rs("T_Message")) & "" Response.Write "" End If set rs = nothing End Sub %>

Forums | &forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>"><%=Request.QueryString("forum_title")%> | <%=Request.QueryString("topic_title")%>

<% if Request.QueryString("S") <> "False" then %> &method=reply&forum_title=<%=server.URLEncode(Request.QueryString("forum_title"))%>&topic_id=<%=Request.QueryString("topic_id")%>&topic_title=<%=server.URLEncode(Request.QueryString("topic_title"))%>&M=<%=Request.QueryString("M")%>">Post Reply <% Else%> Thread Closed <% end if %>

')">Send Topic To a Friend

<% if mypage = 1 then Call GetFirst %> <% '## Get all topicsFrom DB strSql ="SELECT Members.M_Name, Members.M_ICQ, Reply.Reply_ID, Reply.R_Posted_By, Reply.Topic_ID, Reply.R_Message, Reply.R_Posted " strSql = strSQl & "FROM Members INNER JOIN Reply ON Members.Member_id = Reply.R_Posted_By " strSql = strSQl & "where topic_id = " & Request.QueryString("topic_id") & " order by reply.R_Posted" set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize=15 rs.open strSQL, my_conn, 3 i = 0 If rs.Eof or rs.Bof then ' No categories found in DB Response.Write "" Else rs.movefirst rs.pagesize=mypagesize maxpages=cint(rs.pagecount) maxrecs=cint(rs.pagesize) rs.absolutepage=mypage howmanyrecs=0 rec = 1 do until rs.Eof or rec = 16 '## Display Forum if i = 0 then CColor = AltForumCellColor else CColor = ForumCellColor End if Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext i = i + 1 if i = 2 then i = 0 rec = rec + 1 loop End If %>

Author	Topic
" & rs("M_name") & "	Posted - " & day(rs("R_Posted")) & " " & monthname(month(rs("R_Posted"))) & " " & year(rs("R_Posted")) & " " & hour(rs("R_Posted")) & ":" & Minute(rs("R_Posted")) & "" Response.Write " " Response.Write " " Response.Write " " if ICQ = "true" then if trim(rs("M_ICQ")) <> "" then Response.Write " " end if end if Response.Write " " & formatStr(rs("R_Message")) & "

<% if maxpages > 1 then if Request.QueryString("whichpage") = "" then pge = 1 else pge = Request.QueryString("whichpage") end if pad=" " scriptname=request.servervariables("script_name") Response.Write "Topic is " & maxpages & " Pages Long: " for counter=1 to maxpages If counter>=15 then pad="" end if if counter <> cint(pge) then ref="" & pad & counter & "" response.write ref & " " Else Response.Write counter & " " End if if counter mod 15 = 0 then response.write "
" end if next End if %>

Click &topic_title=<%=server.URLEncode(Request.QueryString("topic_title"))%>&forum_id=<%= Request.QueryString("Forum_id") %>')">Here To Close Thread, Administrators & Moderators Only.

Show All Forums | <% if Request.QueryString("S") <> "False" then %> &method=reply&forum_title=<%=server.URLEncode(Request.QueryString("forum_title"))%>&topic_id=<%=Request.QueryString("topic_id")%>&topic_title=<%=server.URLEncode(Request.QueryString("topic_title"))%>&M=<%=Request.QueryString("M")%>">Post Reply <% Else%> Thread Closed <% end if %> <% my_conn.Close set my_conn = nothing %>