Försöker få ett script att byta sida men de funkar inget vidare... den visar ändå bara sida 1, någon som känner sej manad att klura ut det? vill alltså att det ska gå att byta sida efter att mer än 5 inlägg är gjorda.. vet inte vad det är som är fel?

<CODE>
<%
if antalinlagg = 0 then
Response.Write "<blockquote><i><font size=2><b>"&request.querystring("user")&" har inga inlägg i sin gästbok =(</b></font></i></blockquote>"
else

nextpage = trim(request("nextpage"))
if nextpage = "" then nextpage = 1

Set connect = Server.CreateObject("ADODB.Connection")
connect.open db
Set recset = server.createobject("ADODB.Recordset")
Set rs = server.createobject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")

sql = "select * from tblguestbook where fldtouser = '"& request.querystring("user") &"' order by flddate DESC"
recset.open sql, connect, adopenstatic, adlockoptimistic
fldfrom = recset("fldfromuser")
sql2 = "select * from tblinfo where fldusername ='"&fldfrom&"'"
rs.open sql2, connect


strbirthdate = rs("fldbirthdate")
strfrom = rs("fldfrom")

gbid = recset("fldid")

recset.pagesize = 5
recset.absolutepage = nextpage

do until recset.eof or rowcount > recset.pagesize
rowcount = rowcount + 1
%>
<table width="100%">
<td width="10">

massa annan kod som inte är relevant här....



<%
recset.movenext
loop

if recset.pagecount > 1 then

for a = 1 to recset.pagecount
if a <> cint(nextpage) then
response.write ""&a&""
else
response.write "&nbsp;"&a
end if
next
end if
end if
%></CODE>

Hej
Här kommer min kod som fungerar, jag ser inte riktigt vad som är felet i din kod, jag tror att det är i loopen där du skriver ut som felet blir.

********************
<%

Dim CONN_STRING
CONN_STRING = "DBQ=" & Server.MapPath(d_base) & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"


Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim I

iPageSize = Msg_a_page


If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

strSQL = "SELECT * FROM gaster ORDER BY id DESC"


If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If


Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS


Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize


objPagingRS.Open strSQL, objPagingConn, 3, 1, adCmdText

countinlagg = 0
DO UNTIL objPagingRS.EOF
countinlagg = countinlagg + 1
objPagingRS.MoveNext
LOOP
objPagingRS.MoveFirst

iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write txt_nomatch
Else
objPagingRS.AbsolutePage = iPageCurrent

%>
<FONT FACE="<%=font%>" size="<%=fontsize%>">
<table width="450" border="0" cellspacing="0" cellpadding="1" bgcolor="#<%=bgcolor%>">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#<%=bgcolor%>">


<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>

**** Här skrivs inläggen ut***

<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
End If


objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


%>
************************
Länka fram och tillbaka
*********************
<%
If iPageCurrent <> 1 Then
%>
<%=txt_previous%>
&nbsp;&nbsp;
<%
End If
If iPageCurrent < iPageCount Then
%>
<%=txt_next%>
<%
End If

%>
******************
MvH Anna-Karin

Skriver den ut några sidnummer överhuvudtaget. Vad fungerar inte?
Hur ser urlen ut? Håll musen på ett sidnummer och titta i statusfältet och se om det ser rätt ut

//Putte

Jadå den skriver ut sidnummer och länken verkar se helt okej ut.. det är bara det att den inte byter sida när jag klickar på nästa sida.. länken ser ut som följer:

guestbook.asp?user=jonnye&page=2

om man nu vill till sida 2 o.s.v den byter helt enkelt inte sida.. vetefan vad det är som kan vara fel...


//J.E

Hej

Jag borde nog skämmas, nu läste jag igenom din text lite bättre
och hittade felet.

Du tar emot nästa sidas värde med:
nextpage = trim(request("nextpage")) <-- Nextpage

I länken så har du lagt in page bara.
"<a href='guestbook.asp?user="&strusername&"&page="&a&"'>-<--Page

Ändra till nextpage så borde det funka.

Anna-Karin.

ahh tack så mkt, där va felet, där får man får att man inte läser igenom koden ordentligt själv hehe, tur att det är någon som har ögonen med sej i alla fall =)


//J.E