<% 'Option Explicit Dim sql,rsEntries,count,forumid,forumname,cellbgcolor,username,forumdescription,noposts,foldergraphic,folderalt,moderator,lockaction,colspan,recordnum,messagecount,lastpage,topicdisplay username = Request.Cookies("junooni_userid") forumid = 1 'Request.QueryString("forumid") recordnum = Request.QueryString("recordnum") 'topicdisplay variable alters amount of topics to display on page topicdisplay = 1 if recordnum = "" then recordnum = 0 end if %> <% Call Connjunooni(Conn) sql = "SELECT * FROM (forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum) INNER JOIN topics ON forums.forumid = topics.forum WHERE forums.forumid = 1 and topics.topicstatus = 'Y' ORDER BY topics.stickytopic desc,topics.lastdate DESC" 'New Code mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request("pagesize") If mypagesize="" then mypagesize=20 end if Set rsEntries = Server.CreateObject("ADODB.Recordset") rsEntries.cursorlocation=aduseclient rsEntries.cachesize=5 'Response.Write sql rsEntries.Open sql, conn, 3, 3 if rsEntries.EOF then noposts = True Else rsEntries.movefirst rsEntries.pagesize=mypagesize maxpages=cint(rsEntries.pagecount) maxrecs=cint(rsEntries.pagesize) rsEntries.absolutepage=mypage howmanyrecs=0 howmanyfields=rsEntries.fields.count -1 'End New code forumname = rsEntries("forumname") forumdescription = rsEntries("description") moderator = rsEntries("moderator") end if %>

Moderator <%=moderator%> <%'forumdescription%>  Junoon > <%=forumname%>

<% Call PageNavBar %>

<% if noposts = True then if moderator = username then colspan = 8 else colspan = 5 end if%> <%else 'If viewing a previous set of topics, move to the right position if recordnum <> 0 then rsEntries.Move(recordnum) end if DO UNTIL rsEntries.eof OR howmanyrecs>=maxrecs if rsEntries("locked") = True then foldergraphic = "_locked" folderalt = "locked topic" lockaction = "unlock" elseif rsEntries("replies") > 30 then foldergraphic = "folder_new_hot" folderalt = "hot topic" lockaction = "lock" else foldergraphic = "folder_new" folderalt = "open topic" lockaction = "lock" end if 'if cellbgcolor = "#879BC9" then cellbgcolor = "#91A7D7" else cellbgcolor = "#879BC9" end if %> <% rsEntries.movenext howmanyrecs=howmanyrecs+1 LOOP End if 'end if %>  Topics   Replies   Author   Views   Last Post  width="43">There are no posts in this forum. "><%=rsEntries("subject")%> <% if username = "admin" then if rsEntries("stickytopic") = "Y" Then Response.Write "   [Un sticky Topic ?]" else Response.Write "   [Sticky Topic ?]" End if end if %> <%=rsEntries("replies")%> "><%=rsEntries("topic_by")%> <%=rsEntries("topic_read")%> <%=rsEntries("lastdate")%> : <%=rsEntries("lasttime")%> by "><%=rsEntries("lastpost")%>  Junoon > <%=forumname%> <%Response.Write "   page: 1 of " & maxpages & "" %> All times are GMT - 5 Hours <%Call PageNavBar %>

New posts    No new posts New posts [ Popular ]    No new posts [ Popular ] New posts [ Locked ]    No new posts [ Locked ]

You can post new topics this forum You can reply to topics in this forum You can edit your posts in this forum You cannot delete your posts in this forum

<% sub PageNavBar() pad="" scriptname=request.servervariables("script_name") response.write "" response.write "" response.write "

Go to page: " response.write "" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref=" First 10  " Response.Write ref ref="  Previous 10  " Response.Write ref end if 'Response.Write "[" for counter=counterstart to counterend varlocal = varlocal + 1 If counter>=10 then pad="" end if if varlocal=4 or varlocal=5 or varlocal=6 or varlocal=7 or varlocal=8 then ref = "." Else if cstr(counter) <> mypage then ref= "" & pad & counter & " " else ref= pad & counter '& "" end if End if response.write ref if counter <> counterend then response.write " " next 'Response.Write "]" if counterend <> maxpages then ref="  Next 10" Response.Write ref ref="  Last 10" Response.Write ref end if response.write " " response.write "

" end sub %>