Hejsan detta är en ganska svår uppgift för er här, deet är så här att jag försöker göra ett pagin system och eftersom jag är här och skriver så fattar ni säkert att det ej går så bra...
Tror där är ganska mycket fel i koden så om någon har tid och lust att ta en titt och hitta några fel så skulle det vara jätte bra ;)
<%
DIM rsData
DIM sida
DIM totalsida
DIM fldf
DIM intrec
DIM strquote
DIM strscriptname
DIM file
strquote = Chr (34)
file = Server.MapPath("DATABASEN.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file
Set rsdata = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM TABELLEN ORDER BY ID DESC"
rsdata.Pagesize = 10
rsdata.Cursorlocation = adUseClient
rsdata.Open SQL, Connect, adOpenStatic, adLockOptimistic
if Request.QueryString("sida") = "" then
sida = 1
else
if sida < 1 then
sida = 1
else
if sida > rsdata.pagecount then
sida = rsdata.pagecount
else
sida = CInt(Request.QueryString("sida"))
end if
end if
end if
rsdata.Absolutepage = sida
Response.Write "<table border='0'><thead><tr>"
For Each fldf in rsdata.fields
Response.write "<TD>" & fldf.value & "</TD>"
next
Response.Write "</TBODY></Thead></Table><p>"
For Intrec = 1 to rsdata.pagesize
if not rsdata.EOF then
Respnse.write "<TR>"
For each fldF in rsdata.fields
response.write "<TD>" & fldf.value & "</TD>"
next
Response.write "</TR>"
rsdata.movenext
end if
next
response.write "</TBODY></Thead></Table><p>"
strscriptname = request.servervariables("SCRIPT_NAME")
Response.write " <a href=" & strquote & strscriptname & _ "?sida=" sida - 1 & strquote & "> Sida 1 </a>
If sida = 1 then
Response.write " <span>Förra sidan</spsn>"
Else
response.write " <a href=" & strquote & sMe & _ sida - 1 & strquote & ">Förra sidan</a>
End If
If sida = rsdata.pagecount then
response.write " <span>Nästa sida</spsn>"
Else
response.write " <a href=" & strquote & strscriptname & _ "?sida= & strquote
& "sida=" & sida + 1 & strquote & "> Nästa sida </A>"
End If
response.write " <a href=" & strquote & strscriptname & _ "?sida= & rsdata.pagecount
& strquote & ">" Sista sidan</A>
Rsdata.close
set rsdata = norhing
%>
------------------
Har ingen just nu, har du någon idee???
Där verkar det som om du skriver ditt statement på två rader och då behöver du en _ i slutet på varje rad för att markera att det fortsätter på nästa rad.
Såg att du skriver </spsn> istf </span> på flera ställen.
Hur ser koden ut nu efter dina ändringar?
Har tyvärr inte tid att titta så mycket nu (och kommer att vara borta från en dator några dagar.) Om du kommer med ett inlägg inom 10 minuter så kan jag ta en titt.
------------------ essentitia preter non sans multiplicandum
Tack men det funkar inte även om jag skriver till:
pagin.asp?sida=2
Vissar samma som pagin.asp?sida=1 så om du har något förslag så har jag mina öron öppna för förslg...
------------------
Har ingen just nu, har du någon idee???
