4 svar · 225 visningar · startad av zlasher
hejsan!
har lite problem med pagingen på min community..
jag använder den till gästböckerna...det har alltid funkat på ens egen gästbok men inte på de andra. jag lyckades dock fixa det på de andra gästböckerna för nån dag sen...trodde jag...
om man trycker på sista sidan på varje gästbok får man det här meddelandet:
Exception occurred.
/himlen/asp/read_gb.asp, line 100
så här ser min kod ut runt rad 100:
FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<font size=2><a href='read_gb.asp?tillid="&recset("tillid") & "&user="&request.querystring("user") & "&nextPage="& a &"'>"& a &"</a>"
ELSE
Response.Write "<font size=2>"& a
vill ni att jag ska skriva ut hela sidan??
tacksam för svar..
ja, lite mer kod behövs nog.
Kan ju gissa på att du inte kontrollerar EOF ordentligt
FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<font size=2><a href='read_gb.asp?tillid="&recset("tillid") & "&user="&request.querystring("user") & "&nextPage="& a &"'>"& a &"</a>"
ELSE
Response.Write "<font size=2>"& a
'...
recset.movect
[b]if recset.eof then exit for[/b]
next
hm..jag slänger in hela koden så blir det väl bäst 
<!-- #include file="adovbs.inc" -->
<!-- #include file="check.inc" -->
<!-- #include file="newwindow.inc" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL=stylesheet HREF="samuel.css" TYPE="text/css">
</head>
<body class="bg">
<table width="100%" border="0" cellspacing="1" cellpadding="1" class="ram">
<tr>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";pwd=lösenord"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&request.querystring("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
if recset.eof then
response.redirect "gb_none.asp?user="&request.querystring("user")
end if
%>
<td valign="top" colspan="3" class="login3">
<font class="text"><b><%=request.querystring("user")%>S GÄSTBOK.</b><hr color="#003366" size="1"></font></td>
</tr>
<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1
RecSet.PageSize = 4 '<-- 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
nummer = nummer + 1
If nummer Mod 2 = 0 then
color = "528AB5"
Else
color = "4D82AA"
End If
%>
<table bgcolor="<%=color%>" cellspacing="1" cellpadding="1" width="100%">
<tr><td rowspan="3" width="60" valign="top">
<img src="<%=recset("bild")%>" height="60" width="48" border="1"></td><td>
<font class="text">
<a href="whois_index2.asp?checkid=<%=recset("fromid")%>" target="index">
<%=RecSet("namn")%> </a>
- <font color="#dedede"><%=RecSet("datum")%></font>
<% if session("id") = recset("tillid") then %>
| <a href="do_delete_gb.asp?delid=<%=recset("id")%>">Ta bort </a>
<% else %>
<% end if %>
<%
if session("id") = recset("tillid") then %>
<font class="text"> | <a href="javascript:NewWindow('gb_write_direct.asp?tillid=<%=recset("fromid")%>','upload','200','250','center');">
Svara</a>
<%else%>
<%end if%>
</font></b></font></td>
</tr>
<tr>
<td><font class="text"><%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"<br>")%></font></td>
</tr>
<tr>
</tr>
<tr><td bgcolor="navy" colspan="7"></td></tr>
</table>
<%
RecSet.MoveNext
Loop
%>
<table class="ram" width="100%"><tr><td align="right">
<%
' Börja paging
IF RecSet.PageCount > 1 THEN
FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<font size=2><a href='read_gb.asp?tillid="&recset("tillid") & "&user="&request.querystring("user") & "&nextPage="& a &"'>"& a &"</a>"
ELSE
Response.Write "<font size=2>"& a
END IF
NEXT
END IF
%>
</td></tr></table>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</body>
</html>
I detta läge så kan du redan ha kommit till eof.
IF a <> cINT( nextPage ) THEN
Response.Write "<font size=2><a href='read_gb.asp?tillid="&recset("tillid") & _
"&user="&request.querystring("user") & "&nextPage="& a &"'>"& a &"</a>"
Du får lägga värdena i lokala variabler inuti den förra loopen
Do until RecSet.EOF OR rowCount > RecSet.PageSize
tillid = rescesT("tillid")
'...
loop
'...
IF a <> cINT( nextPage ) THEN
Response.Write "<font size=2><a href='read_gb.asp?tillid="&tillid & "&user="&request.querystring("user") & "&nextPage="& a &"'>"& a &"</a>"
nej men!! jag kan inte med ord tacka dig!!
förstår jag det varför du blev årets medlem 2001!!!
thanks a million m8y!!! 