Hej! Skulle vilja ha paging på mitt forum, nedanför kan ni se min forum kod och längst ner ser ni mitt paging script, min fråga är var jag ska lägga in paging scriptet nånstans.
Tacksam för svar:
FORUM SCRIPT:
<!-- #include file="adovbs.inc" -->
<%
inlaggID = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE ID=" &inlaggID
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
Function Smiley(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
Response.Write text
End Function
%>
<html>
<head>
<title>Graf</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top" class="right-line"> <br>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#DCDCDC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=server.HTMLEncode(RecSet("RUBRIK"))%></b></font></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<b><td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br></B>
<br>
</font></td>
</tr>
<tr>
<b><td valign="top"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1">Skrivet
av </font><font color="#CC0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <font color="#000000"><%session.lcid=1053%>
<%=dateadd("h",6,cdate(RecSet("DATUM")))%></font>
|
</font> <font size="1">
</B> <%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
<%
END IF
%>
</font> </font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
IF RecSet("ANTALSVAR") <> 0 THEN
RecSet.CLOSE
Addera = "Select * From asp WHERE REF_ID=" &Request.QueryString("ID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font> <br>
<br>
<%DO UNTIL RecSet.EOF%>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#DCDCDC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<div align="center"><b><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("RUBRIK"))%></font></b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<hr width="100%" size="1">
<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#000000">Skrivet
av </font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <i><%session.lcid=1053%>
<%=dateadd("h",6,cdate(RecSet("DATUM")))%></i> | <b>Epost</b> :</font>
<font size="1" color="#000000">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%=RecSet("EPOST")%>" ><%=server.HTMLEncode(RecSet("EPOST"))%></a></font><font size="1" color="#000000">
<% END IF %>
</font></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
RecSet.MOVENEXT
LOOP
END IF
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<div align="left"></div>
<form name="form1" method="post" action="adderaPost.asp?refID=<%=inlaggID%>">
<hr width="100%" size="1" align="left">
<div align="left"><b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
</font><br>
<font size="1"> <A HREF="comments.asp?id=<%= inlaggID %>">Kommentera</A></font></font></b><br>
<b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></font></b><br>
</div>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="namn" size="30" maxlength="20" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("NAMN") <> "" THEN Response.Write Request.Cokies("UserInfo")("NAMN")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Namn</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="epost" size="30" maxlength="50" class="TABELLER" value="<%IF Request.Cokies("UserInfo")("EPOST") <> "" THEN Response.Write Request.Cokies("UserInfo")("EPOST")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Epost</font></td>
</tr>
<tr>
<td width="226"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="rubrik" size="30" maxlength="50" class="TABELLER">
</font></td>
<td width="174"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Rubrik</font></td>
</tr>
<tr>
<td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="inlagg" cols="40" rows="10" class="TABELLER"></textarea></font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="submit" name="Submit" value="Spara kommentar" alt="Posta svaret" border = "0">
</font></td>
<td width="174"> </td>
</tr>
</table>
</form>
<div align="left">
<p> </p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="forum.asp"></a><br>
</font></p>
</div>
</td>
</tr>
</table>
</body>
</html>
HÄR ÄR PAGING SCRIPTET:
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<% IF Request.QueryString("DO") = "READ" THEN
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'#### Räknar ut antal sidor ####
COUNT = 0
DO UNTIL RecSet.EOF
COUNT = COUNT +1
RecSet.MOVENEXT
LOOP
IF int(COUNT/5) = COUNT/5 THEN
antal_sidor = COUNT/5
ELSE
antal_sidor = int(COUNT/5)+1
END IF
RecSet.Close
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'##### SLUT PÅ RÄKNANDET #####
%>
</font></p>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
Antal sidor:
<% FOR X=1 TO antal_sidor %>
<a href="gb.asp?DO=READ&skipp=<%=(X-1)%>"><%=X%></a>
<% NEXT %>
<%
IF Request.QueryString("skipp") = "" THEN
skipp = 0
ELSE
skipp = Request.QueryString("skipp")
END IF
'### Hoppar fram till rätt inlägg ###
FOR X=1 TO skipp
FOR Y=1 TO 9
RecSet.MOVENEXT
NEXT
NEXT
'#### KLAR ####
Z=0
DO UNTIL RecSet.EOF OR Z=10
Z=Z+1
%>
<br>
<br>
</font>