Paging til forum
Jeg har prøvet forskellige artikler men det er ikke lykkedes mig at få sat paging på denne side.http://www.ct-lund.dk/test/forum/forumthreads.asp?forumid=5
Er der nogen der har et bud, jeg har prøvet med denne kode.
Den gav denne fejl.
http://www.ct-lund.dk/test/forum/forumthreads1.asp?forumid=5
<!--#include file="functions.inc"-->
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM Forums WHERE (ID = " & Request("ForumID") & ")"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strForum = rs("Forum")
strDescription = rs("Description")
intForumID = rs("ID")
End If
strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ForumID = " & Request("ForumID") & ")"
strSQL = strSQL & " AND (OrgThread = True) ORDER BY ID DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (ReplyID = " & rs("Id") & ") AND (OrgThread <> TRUE)"
Set recordCount = myConn.Execute(strSQL)
strHTML = strHTML & "<tr><td bgcolor=#BBBB88><font face=Verdana size=2><a href=""viewmsg.asp?id=" & rs("ID") & "&ForumID=" & intForumID & """>" & Server.HTMLEncode(rs("Subject")) & "</font></a></td>"
strHTML = strHTML & "<td bgcolor=#BBBB88 valign=top><font face=Verdana size=2>" & recordCount("ItemCount") & "</font></td>"
strHTML = strHTML & "<td bgcolor=#BBBB88 valign=top><font face=Verdana size=2>" & rs("FormDate") & "</font></td></tr>"
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
<html>
<head>
<title>Charlotte og Tina Lund.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
BODY { font-family:"Verdana, Arial, Helvetica, sans-serif"; font-size:70%;}
DIV#divMenuBar { background-color:#CCCC33; }
TABLE#tblMenuBar TD { font-size:60%; color:#CCCC33; padding:0px 5px 0px 5px; cursor:default; }
TABLE#tblMenuBar TD.clsMenuBarItem { font-weight:bold; cursor:default; }
/* These two style rules added for links in MenuBar */
TABLE#tblMenuBar TD.clsMenuBarItem A { text-decoration:none; color:#000000; font-weight:bold; }
TABLE#tblMenuBar TD.clsMenuBarItem A:hover { color:#FFFFFF; }
DIV.clsMenu {
font-size:90%; background-color:#CCCC33;
position:absolute; visibility:hidden; width:130px;
padding:5px 5px 5px 8px; border-top:1 white solid;
}
DIV.clsMenu A { text-decoration:none; color:#000000; font-weight:bold; }
DIV.clsMenu A:hover { color:#FFFFFF; }
</style>
</head>
<body>
<p> </p>
<div align="center">
<center>
<table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td width="596" colspan="2"><font face="Verdana" color="#CCCC33"
size="2"><strong>Forum:</strong> <strong><%=strForum%></strong></font></td>
</tr>
<tr>
<td valign="top" align="left" width="70%"><font face="Verdana" size="2"><%=strDescription%></font></td>
<td valign="top" align="left" nowrap width="30%"><ul type="square">
<li><a href="default.asp"><font face="Verdana"><b><small>Til oversigt</small></b></font></a></li>
<li><font face="Verdana"><strong><a href="forumpost.asp?ForumId=<%=intForumID%>"><small>Opret
indlæg</small></a><br>
</strong></font></li>
</ul></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="598" colspan="2"><table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td width="234" bgcolor="#FFFFFF"><font face="Verdana" color="#CCCC33" size="2"><strong>Spørgsmål</strong></font></td>
<td width="37"><font face="Verdana" color="#CCCC33" size="2"><strong>Svar</strong></font></td>
<td width="117"><font face="Verdana" color="#CCCC33" size="2"><strong>Seneste
indlæg</strong></font></td>
</tr>
<%=strHTML%></table></td>
</tr>
</table>
</center>
</div>
</body>
</html>
