snälla n´ån hjälp mig vad är det för fel på min paging funkar inte :-<
<% Response.Buffer = True %>
<!-- #include file="style.css" -->
<html>
<body>
<table border="0" width="561" cellspacing="0" cellpadding="0" height="36">
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 15
SQL = "Select * From members Order by username"
Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("database/members.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else %>
<tr>
<td bgcolor="#FF9900" height="1" width="92"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
Lägg till</b></font></td>
<td bgcolor="#FF9900" width="213"><b>
<font size="1" face="Verdana">Användarnamn: </font></b></td>
<td bgcolor="#FF9900" width="208" height="1"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><font color="#000000">
Ålder:</font></b><font color="#000000"><b> </b></font></font></td>
<td bgcolor="#FF9900" width="99" height="1"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
Kön: </b></font></td>
<td bgcolor="#FF9900" width="99" height="1"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
Status: </b></font></td>
</tr>
<%
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 = "#F0F0F0"
End If
%>
<tr bgcolor="<%= color %>">
<td width="92" height="19"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><a href="add_friend.asp?id2=<%=RSTemp("id")%>" target="main1">
Bli kompis</a></font></td>
<td width="213" height="19"><font size="1" face="verdana, arial"><a href="whois.asp?checkid=<% =RStemp("id") %>"><% =RStemp("username") %></td>
<td width="208" height="19"><font size="1" face="verdana, arial"><% =RStemp("syfte") %></td>
<td width="99" height="19"><font size="1" face="verdana, arial"><% =RStemp("kunskap") %></td>
<td><font size="1" <%if rstemp("status") = "offline" then%> color="#FF0000" <%else%>color="#00CC00" <%end if%>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("status")%></font></td>
</tr>
<% rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing
%>
<tr><td width="612" height="19" colspan="8">
<font size="1" face="Verdana">
<hr noshade color="#000000" size="1">
<%
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
%> </font>
</td></tr>
</table>
</body>
</html>
------------------
ASP är bäst fuck the rest!!!