3 svar · 132 visningar · startad av Jörgen HP
Tjena listan!
Försökte använda ASP/ FAQ: ens kod att dela upp informationen från en DB i flera sidor med 10 poster på var sida. Har ca 80 poster i databasen, men den visar sida 1 av 1 och enbart 10 poster och då en länk till en sida 01.
Vad ska jag ändra för att dela upp alla poster? får inte rätt på det.
Mvh
Jörgen
halloj...
... visa lite kod på de relevanta delarna så kanske vi kan hjälpa... :)
Mvh, Vide
------------------
Jourhavande @e SweQuake.com
Hej!
Här är adressen till en provsida prestentationen ska ju snyggas till betydligt. Kod:
mvh
jörgen
<table>
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 10
SQL = "Select * From gastbok order by Id"
Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.open SQL, "DSN=a.namn,lösenord"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "CCCC99"
Else
color = "CCCC66"
End If
Response.write "<tr bgcolor='" & color & "'><td>" & RStemp("Namn") & "</td></tr>"
rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing
%>
<tr><td><hr></td></tr>
<tr><td><p>
<%
If maxcount <> 0 then
response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
End If
%>
</td></tr>
</table>
