Håller på att göra en gästbok. Den fungerar alldeles utmärkt, utom att paginskriptet inte fungerar. Så jag hoppas nån kan hjälpa mig. Får inga felmeddlanden så jag vet inte exakt var felet ligger tyvärr. Det vore enklare då. Så nu ber jag om hjälp. Tacksam för alla svar jag kan få. Kolla min artikel om paging www.pellesoft.nu/login/articles/article.asp?artid=514Hjälp med gästbok(paging)
<html>
<head>
<title>Viktors hemsida - viktor.owns.it</title>
<link rel="stylesheet" href="mall.css" type="text/css">
</head>
<body background="back.jpg" topmargin="0" marginheight="0">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td width="2" bgcolor="#000000"></td>
<td width="660" bgcolor="#FFFFFF" align="center">
<table width="590" border="0" cellspacing="0" cellpadding="0" height="98%">
<tr valign="middle" align="center">
<td colspan="3" height="70"><img src="border.jpg"></td>
</tr>
<tr>
<td height="5" colspan="3"></td>
</tr>
<tr>
<td width="80" valign="top"><b>
<!-- #include file="meny.asp" -->
</b></td>
<td rowspan="2" valign="top" background="linje.gif" width="1"> </td>
<td width="550" valign="top">
<blockquote><center> <b>Gästboken</b> </center> </blockquote>
<p>
<!-- Här börjar gästboken-->
<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/viktor/gastbok/gastbok.mdb")
if request.querystring("bort") = "ja" then
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tabell ORDER BY kolumn"
RecSet.Open SQL, Connect
RecSet.PageSize = 8 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
RecSet.AbsolutePage = nextPage
Do until RecSet.EOF OR rowCount > RecSet.PageSize
rowCount = rowCount + 1
Response.Write "<font color='bakgrundfärg'>"& RecSet("kolumn")&"</font>"
'Loopa igenom
RecSet.MoveNext
Loop
' Börja paging
IF RecSet.PageCount > 1 THEN
FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write ""& a &""
ELSE
Response.Write " "& a
END IF
NEXT
END IF
Addera = "SELECT * FROM gastbok where id ="& request.querystring("id")
RecSet2.Open Addera, Connect, 3, 3
RecSet2.delete
RecSet2.update
RecSet2.Close
Set RecSet2 = nothing
end if
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gastbok order by id desc"
RecSet.Open Addera, Connect, 3, 3
%>
<table width="500" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="100">
<% do until recset.EOF %>
<tr align="left" valign="middle" bgcolor="F7F7F7">
<% if session("inloggad") = "ja" then %>
">Ta bort
<% end if %>
<font color="8CABF0"><b>Namn:</b></font> <%=recset("namn")%>
<br>
<font color="8CABF0"><b>E-post:</b></font> <%=recset("epost")%>
<br>
<font color="8CABF0"><b>Inlägg:</b></font><br><%=recset("inlagg")%>
</td>
</tr>
<hr color="#FFFFFF">
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</td>
<br>
<tr align="left">
<tdwidth="300">
<form name="form" method="post" action="gb_spara.asp">
<div align="center">
<input name="namn" type="text" id="namn" value="Ditt namn">
<br>
<input name="epost" type="text" id="epost" value="Din e-post">
<br>
<textarea name="inlagg" rows="3" id="inlagg" value="Ditt inlägg"></textarea>
<br>
<input type="submit" name="Submit" value="Skicka">
</div>
</form></td>
</tr>
</table>
<center>
Administera
</center>
</td>
</tr>
<tr align="center">
<td valign="top" height="10"> </td>
<td valign="top" height="10"> </td>
</tr>
<tr align="center">
</tr>
</table>
</td>
<td width="2" bgcolor="#000000"></td>
<td> </td>
</tr>
</table>
</html>Sv: Hjälp med gästbok(paging)