<%
If siteEmail="empty" or siteName="empty" Then response.redirect "start.asp"
If request("catid")="" then If catOnStart Then response.redirect "categories.asp"
Function isBlank(Value)
if isNull(Value) then
bAns = true
else
bAns = trim(Value) = ""
end if
isBlank = bAns
end function
Function FixNull(Value)
if isNull(Value) then
sAns = ""
else
sAns = trim(Value)
end if
FixNull = sAns
end function
%>
<%=sitename%>
<%=meta%>
<%searchbox%>
<%
loginform
'cmd.CommandText = "MESSAGETHREADS"
'cmd.CommandType = 4
iPage = cint(Request.QueryString("Page"))
if iPage = 0 then iPage = 1
''''''''''''''''''''''''''
sql = "SELECT * FROM FORUM_MESSAGES WHERE FORUM_MESSAGES.ParentMessage=0 "
if request("catid")>0 then sql = sql & " AND category = " & request("catid")
sql = sql & " ORDER BY FORUM_MESSAGES.LastThreadPost DESC;"
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open ConStr
rs.Open sql, dbConn, 1,2
'''''''''''''''''''''''''''''''
'rs.open cmd, , 1, 3
if not rs.Eof and not rs.bof then
rs.MoveLast
lTotalRecords = rs.RecordCount
iTotalPages = int(lTotalRecords / pageSize)
if lTotalRecords MOD pageSize <> 0 then iTotalPages = iTotalPages + 1
if lTotalRecords <= pageSize then
rs.MoveFirst
bOnePage = true
lPageEnd = lTotalRecords
lPageStart = 1
iTotalPages = 1
else
lPageStart = ((iPage - 1) * pageSize) + 1
lPageEnd = lPageStart + (pageSize - 1)
if lPageEnd >= lTotalRecords Then
lPageEnd = lTotalRecords
bLastPage = true
end if
if iPage > 1 then
rs.AbsolutePosition = ((iPage - 1) * pageSize) + 1
else
rs.MoveFirst
end if
end if
else
bNoRecords = true
end if
%>
|
<%
If int(request("catid")) > 0 Then
catid = request("catid")
Else
catid = 0
End if
%>
New Topic
|
|
| Topic |
Author |
Reply |
View |
Last Post |
<%
if bNoRecords then
response.write "There are no messages available at the present time | "
else
for lCtr = lPageStart to lPageEnd
response.write " *"
logincheck rs("AuthorEmail"), rs("id")
response.write " " & rs("Topic") & " | "
response.write " " & left(rs("AuthorName"),20) & ""
response.write " | "
response.write "" & rs("ReplyCount") & " | "
response.write "" & rs("hit") & " | "
response.write "" & rs("LastThreadPost") & " | "
rs.movenext
Next
end if
response.write "
"
%>
<%=categoryname%>
<%
if not bNoRecords then
response.write "
Page " & iPage & " of " & iTotalPages & "
"
end if
%>
<%
if bOnePage = false and bNoRecords = false then
response.write "| | "
if iPage > 1 then
sPrevQuery = "Page=" & iPage - 1
response.write "[ Previous Page ]"
else
response.write " "
end if
response.write " | "
if bLastPage = false then
sNextQuery = "Page=" & iPage + 1
response.write "[ Next Page ]"
else
response.write " "
end if
response.write " | | "
response.write "
"
response.write ""
for iCtr = 1 to iTotalPages
sPageQuery = "Page=" & iCtr & sQuery
if iCtr <> iPage then
response.write "["
else
response.write "["
end if
response.write iCtr
if iCtr <> iPage then
response.write "]"
else
response.write "]"
end if
if iCtr < iTotalPages then response.write " | "
Next
response.write ""
end if
%>
<%
Sub logincheck(email,id)
if session("useremail") = email or session("userisadmin") then response.write "x#"
End Sub
%>