Paging problem

4 svar · 221 visningar · startad av zlasher 18 juli 2002

zlasherMedlem sedan okt. 2001157 inlägg

18 juli 2002 21:34#1

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..

LarsGMedlem sedan dec. 200012 464 inlägg

18 juli 2002 22:06#2

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

zlasherMedlem sedan okt. 2001157 inlägg

19 juli 2002 09:36#3

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>

LarsGMedlem sedan dec. 200012 464 inlägg

19 juli 2002 18:47#4

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>"

zlasherMedlem sedan okt. 2001157 inlägg

19 juli 2002 20:29#5

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!!! :D :D :D