HJÆLP med paging
Hejsa alle I asp udviklere...jeg har nu i lang tid siddet og kæmpet med paging og det går nu ellers meegt godt lige ind jeg skulle kode det ind sammen med noget langt html kode.
Nogen som vil hjælpe mig ???
Jeg skriver lige kildekoden ;)
<!-- #include file="brugere_path.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link REL="STYLESHEET" HREF="Style.css" TYPE="text/css">
<title>Online liste</title>
</head>
<body background="sand.jpg" link="#000080" vlink="#000080" alink="#000080">
<p><font size="3" face="Arial"><b>Online liste</b></font></p>
<p> </p>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%" height="10">
<p align="center"><font size="2" face="Arial"><b>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT brugernavn,navn,status,alder FROM brugere where online='ja'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("brugere.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
'Så starter vi sku... yes yes thomas
'//******** her har vi hvad der skal udskrives i paging systemet ***********
'//*************************************************************************
response.write "<table border=0 cellpadding=0 cellspacing=0 width=100>"
response.write "<tr>"
response.write "<td width=24% align=center bgcolor=#000080 height=18 valign=top><font size=2 face=Arial color=#FFFFFF>Brugernavn</font></td>"
response.write "<td width=21% align=center bgcolor=#000080 height=18><font size=2 face=Arial color=#FFFFFF>Navn</font></td>"
response.write "<td width=30% align=center bgcolor=#000080 height=18><font size=2 face=Arial color=#FFFFFF>Status</font></td>"
response.write "<td width=13% align=center bgcolor=#000080 height=18><font size=2 face=Arial color=#FFFFFF>Alder</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=24% align=center height=18% valign=top><font size=2 face=Arial><b>"
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
Response.Write "<a href =""bruger.asp?bruger="& rs("brugernavn") & """>" & rs ("brugernavn")& "<br>"
response.write "</b>"
response.write "</font>"
response.write "</td>"
response.write "<td width=21% align=center height=18% valign=top><font size=2 face=Arial><b>"
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
Response.Write rs("navn") & "<br>"
response.write "</b>"
response.write "</font>"
response.write "</td>"
response.write "<td width=30% align=center height=18% valign=top><font size=2 face=Arial><b>"
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
Response.Write rs("status") & "<br>"
response.write "</b>"
response.write "<b>"
response.write "</b>"
response.write "</font>"
response.write "</td>"
response.write "<td width=13% align=center height=18% valign=top><font size=2 face=Arial><b>"
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
Response.Write rs("alder") & "<br>"
response.write "</b>"
response.write "</font></td>"
response.write "</tr>"
response.write "</table>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=online.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=online.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=online.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</b></font></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="24%" align="center" bgcolor="#000080" height="18" valign="top"><font size="2" face="Arial" color="#FFFFFF">Brugernavn</font></td>
<td width="21%" align="center" bgcolor="#000080" height="18"><font size="2" face="Arial" color="#FFFFFF">Navn</font></td>
<td width="30%" align="center" bgcolor="#000080" height="18"><font size="2" face="Arial" color="#FFFFFF">Status</font></td>
<td width="13%" align="center" bgcolor="#000080" height="18"><font size="2" face="Arial" color="#FFFFFF">Alder</font></td>
</tr>
<tr>
<td width="24%" align="center" height="18" valign="top"><font size="2" face="Arial"><b><%
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
do until rs.eof
Response.Write "<a href =""bruger_sted.asp?bruger="& rs("brugernavn") & """>" & rs ("brugernavn")& "<br>"
rs.movenext
loop
%>
</b>
</font>
</td>
<td width="21%" align="center" height="18" valign="top"><font size="2" face="Arial"><b><%
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
do until rs.eof
Response.Write rs("navn") & "<br>"
rs.movenext
loop
%>
</b>
</font>
</td>
<td width="30%" align="center" height="18" valign="top"><font size="2" face="Arial"><b><%
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
do until rs.eof
Response.Write rs("status") & "<br>"
rs.movenext
loop
%>
</b>
<b>
</b>
</font>
</td>
<td width="13%" align="center" height="18" valign="top"><font size="2" face="Arial"><b><%
strsql = "select * From brugere where online='ja' "
set rs = conn.execute(strsql)
do until rs.eof
Response.Write rs("alder") & "<br>"
rs.movenext
loop
%>
</b>
</font>
</td>
</tr>
</table>
<p> </p>
<p><b><font size="2" face="Arial"><a href="online.asp">Opdatere siden ( kun til
test af thomas faugsted )</a></font></b></p>
</body>
</html>
