Paging?? hvor virker det ikke
Jeg har følgende kode, men den vil ikke gå til side 2 og vider fra 50-100 records..:<!--#include file="protect.inc"-->
<%
Query = Trim(Request.Form("Query"))
Valg) = Trim(Request.Form("Valg"))
%>
<HEAD><LINK href="style.css" type=text/css rel=stylesheet></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 margin="0" marginheight="0"
marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%"><IMG height=84 src="image/sommertop.jpg" width=681></td>
<td width="50%" valign="top">
<!-- #include virtual="/dlg/velkom.inc"-->
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="19%"><!-- #include virtual="/dlg/menu.inc"--></td>
<td width="81%" valign="top">
<form method="POST" action="find_kunde.asp">
<select size="1" name="Valg">
<option>Kundenr</option>
<option value="Mobil">Mobiltelefon</option>
<option value="Snr">Sælgernummer</option>
</select></p>
<input type="text" name="Query" size="25">
<input type="submit" value="Søg" name="Soeg">
<input type="reset" value="Slet" name="slet">
</form>
</td>
</tr>
</table>
<br>
<% If Query = "" Then
Else
%>
<!-- #include virtual="/dlg/database.inc"-->
<%
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM DLG.saelger WHERE " & Valg & " = '" & Query & "'")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = int(1)
else
intPage = int(intPage)
end if
intPageSize = int(50)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
SQL = ("SELECT * FROM DLG.saelger WHERE " & Valg & " = '" & Query & "' LIMIT " & intStart & ", " & intPageSize & ";")
Set objRs = Conn.Execute(SQL)
if objRs.EOF or objRs.BOF then
Response.Write "Ingen poster"
else
Response.Write(SQL)
%>
<table>
<tr class="lightgrey">
<td>Id</td>
<td>Kundenummer</td>
<td>Fornavne</td>
<td>Efternavn</td>
<td>Adresse</td>
<td>Postnr.</td>
<td>By</td>
<td>Telefon</td>
<td>Mobil</td>
<td>Fastnet</td>
<td>SælgerNr</td>
</tr>
<%
DO WHILE NOT objRs.EOF OR objRs.BOF %>
<tr>
<td><%= objRs("Id") %></td>
<td><a href="rediger_kunde.asp?Id=<%= objRs("Id") %>"><font color="#000000"><%= objRs("Kundenr") %></font></a></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> <a href="rediger_kunde.asp?Id=<%= objRs("Id") %>"><font color="#000000"><%= objRs("Mobil") %></td>
<td> <a href="rediger_kunde.asp?Id=<%= objRs("Id") %>"><font color="#000000"><%= objRs("Fastnet") %></td>
<td> <%= objRs("Snr") %></td>
</tr>
<%
objRs.MoveNext
Loop
%>
</table>
<%
For i = 1 to intPages
if i = intPage then
Response.Write "<b>" & i & "</b> "
else
Response.Write "<a href=""find_kunde.asp?page=" & i & """>"
Response.Write i
Response.Write "</a> "
end if
next
End IF
objRs.Close
Set objRs = Nothing
Conn.Close
Set Conn = Nothing
End If
%>
</BODY>
============
