nån som kan hjälpa :o
Frågan#1
blir galen snart kan ni fixa paging scriptet åt mig?
får :
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A041F)
Oväntat 'Next'
/krypin_main.asp, line 226
Next
<%
if request.querystring("visa") = "gastbok" then %>
<%
mypage = Request("sida")
If mypage = "" then
mypage = 1
End If
mypagesize = 8
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
recset.cursorlocation = 3
recset.cachesize = 5
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="472" id="AutoNumber3" height="1">
<tr>
<td width="472">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="96%" id="AutoNumber6">
<tr>
<td width="100%">
<p align="right"><font size="1" face="Tahoma">
<div ID="dropText" STYLE="width: 452; height: 12; filter: dropShadow(color=orange,offX=1,offY=1, positive=1)">
<p align="right">
<a href="gastbok_skriv.asp?skriv=ja&id=<%=request.querystring("tillid")%>&Anvandarnamn=<%=request.querystring("Anvandarnamn")%>"><b>Skriv i <%=request.querystring("Anvandarnamn")%>s gästbok</b></a></div>
\<img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"\>\</font\>\</td\>
\</tr\>
\</table\>
<%if not recset.eof then%>
<%FOR i = 1 TO 10
IF RecSet.EOF then
Exit FOR
END IF%>
<%
recset.movefirst
recset.pagesize = mypagesize
maxcount = Cint(recset.pagecount)
recset.absolutepage = mypage
howmanyrecs = 0
howmanyfields = recset.fields.count -1
Do While Not RecSet.EOF AND howmanyrecs < recset.pagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "#FFFFFF"
Else
color = "#F0F0F0"
End If
%>
<%
newage = DateDiff ("d", recset("Fodd"), Now)
newage = newage - (newage Mod 365)
newage = newage / 365
%>
\<%do until recset.eof%\>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%" id="AutoNumber4">
<tr>
\<td width="100%"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="451" id="AutoNumber5"\>
\<tr\>
\<td width="33"\>
\<font face="Tahoma" size="1"\>
\<img border="0" src="Bilder/1pxtrans.gif"\>\<br\>
\<img border="0" src="Bilder/1pxtrans.gif"\>\<img border="1" src="\<%if not recset("bild") = "" then%\>\<%=recset("bild")%\>\<%else%\>Bilder/Community/ingen_liten.gif\<%end if%\>" width="30" height="40"\>\<br\>
\<img border="0" src="Bilder/1pxtrans.gif"\>\</font\>\</td\>
\<td width="373" valign="top"\>
\<font face="Tahoma" size="1"\> \<b\>\<%=recset("Anvandarnamn")%\> \<%=left(recset("Kon"),1)%\>\<%=newage%\>\</b\> från
\<font color="#800000"\> \<%=recset("Stad")%\>\</font\> - \<%postDate = cdate(recset("datum"))
days = datediff("d",postDate,now())
if days = 0 then
response.write "<font color='#800000'>idag "& "</font>" & FormatDateTime(postDate,3)
elseif days = 1 then
response.write "<font color='#000080'>igår "& "</font>" & FormatDateTime(postDate,3)
else
response.write postDate
end if%><br>
<%=recset("Inlagg")%><br>
<img border="0" src="Bilder/1pxtrans.gif"></font></td>
<td width="45" valign="bottom" align="right">
<font size="1" face="Tahoma">
<a href="#" onClick="svara('gastbok_skriv.asp','Svara_Gastbok'200,200); return false;">
<img border="0" src="Bilder/Community/gastbok_svara.GIF" alt="Svara på <%=recset("Anvandarnamn")%>s gästboks inlägg!"></a> </font><a href="krypin.asp?visa=gastbok&tabort=gastbok&id=<%=recset("ID")%>" onClick="return confirm('Är det säker på att du vill radera inlägget?');"><font face="Tahoma"><img border="0" src="Bilder/Community/papperskorg.gif" alt="Radera bort gästboks inlägget"></font></a><font size="1" face="Tahoma"><img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"><br>
<img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"></font></td>
</tr>
</table>
</td>
</tr>
</table>
<img border="0" src="Bilder/1pxtrans.gif" width="1" height="3"> <%
RecSet.Movenext
howmanyrecs = howmanyrecs + 1
Loop
Next
%><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="96%" id="AutoNumber9" height="7">
<tr>
<td width="100%" height="4">
<div ID="dropText" STYLE="width: 452; height: 12; filter: dropShadow(color=orange,offX=1,offY=1, positive=1)">
<p align="right"><b><font face="Tahoma" size="1">«<img border="0" src="Bilder/1pxtrans.gif">Föregående Nästa<img border="0" src="Bilder/1pxtrans.gif">»</font></b></div></td>
</tr>
<%else%><tr>
<td width="100%" height="3">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="97%" id="AutoNumber10">
<tr>
<td width="100%"><font size="1" face="Tahoma">
<b><img border="0" src="Bilder/1pxtrans.gif"><br>
\<img border="0" src="Bilder/1pxtrans.gif"\>Tyvärr,
ingen har skrivit i \<%if request.querystring("Anvandarnamn") = session("Anvandarnamn") then%\> din\<%else%\>\<%=request.querystring("Anvandarnamn")%\>s\<%end if%\> gästbok\</b\>!\<br\>
\<img border="0" src="Bilder/1pxtrans.gif"\>\</font\>\</td\>
\</tr\>
\</table\>
\<p align="center"\>\<%end if%\>