paging og udtræk fra daabase
HejJeg er kørt fast. Jeg har denne paging side, på den næste side (visidfil.asp) som skal vise resultatet når man har klikken på et af linkene kan jeg ikke få frem som jeg ønsker.
Når man klikker på et link vil jeg have vist flere af de felter i databasen som hører til den ID som der er klikket på. Hvordan gør jeg det?
<html><head>
<title>Paging af et recordset</title>
</head><body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT id FROM data"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("linkdata.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
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
Response.Write "<a href=""visidfil.asp?id=" & rs("id") & """>" & rs("id") & "</a><br>"
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=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body></html>
