<%
'## 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 "
<% 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 = "#FFFFCC"
else
CColor = "#FFFF00"
End if
Response.Write "
Subido el - " & 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")) & "
"
Response.Write "
"
rs.MoveNext
i = i + 1
if i = 2 then i = 0
rec = rec + 1
loop
End If
%>
<%
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 "El tema tiene " & maxpages & " Paginas de largo: "
Response.Write "
"
Response.Write "
"
Response.Write"
"
Response.Write "
"
Response.Write "
"
Response.Write "
"
Response.Write "
Tiene varios tramos: "
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
Response.Write "
"
Response.Write "
"
Response.Write "
"
if ICQ = "true" then
if trim(rs("M_ICQ")) <> "" then
Response.Write "
<%=Request.QueryString("topic_title")%>