Hej!
vet att denna fråga har ställts förr men kan inte hitta den. Jag undrar hur man gör för att få så att det står 1, 2, 3 osv. och inte 01, 02, 03 osv. i den exempelkod för hur man delar upp ett rs på flera sidor som finns i FAQ:en! Undrar dessutom hur man gör för att få en textlänk där det står Nästa och föregående!
Tack på förhand!
<%
mypage = Request("whichpage")
If mypage = "" Then
mypage = 1
End If
mypagesize = 10
sql = "Select * From links Order by namn"
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.CursorLocation = 3
rstemp.CacheSize = 5
rstemp.Open sql, "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databas.mdb"
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 = "FFFFFF"
Else
color = "EEEEEE"
End If
%>
<tr bgcolor="<%=color%>"><td><a href="<%=RStemp("url")%>"><%=RStemp("namn")%></a></td></tr>
<%
rstemp.MoveNext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.Close
Set rstemp = nothing
%>
<tr><td><hr></td></tr>
<tr><td>
<%
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
%>
Hej igen!
Det fungerade delvis, "föregående" länken fungerar medans "nästa" inte gör det!
Undrar även hur det skulle se ut i min kod om jag vill att man via en drop-down skulle kunna välja hur många poster man vill visa per sida och inte endast ha ett statiskt värde(i detta fallet 10)? Det som jag inte får att fungera är att den klagar på "type mismatch" och jag körde då en vartype() på rstemp.PageSize och fick som svar att den var en sträng (8), provade då att tvinga Request.Formen från menyn att bli en sträng men den gnäller fortfarande, nån vänlig som kan hjälpa mig?
