ja
ok her er hele scriptet
<html><head>
<title>Paging af et recordset vælg efter form</title>
<meta name="Generator" content="Stone's WebWriter 4">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
</head><body>
<div style="text-align:center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\web\blueeye.dk_p7e8vv\db\PicData.mdb"
conn.Open strDSN
strSQL = "SELECT * FROM tabel1 Where gruppe_1 = 'G1' or gruppe_2 = 'G2' or Gruppe_3 = 'G3' or Gruppe_4 = 'G4'"
rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 8 'Antal billeder pr. side
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
antalPrRow = 4 'antal billeder pr række
noPrRow=0 'tælle variable
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
response.Write "<table>"
Do While Not rs.EOF And intRecCount > 0
if noPrRow=0 then Response.Write "<tr>"
strPic = "<img src='" & rs("link") & "' width='160' height='120'>"
strLink = "<a href='" & rs("Link") & "'>" & strPic & "</a>"
Response.Write "<td>" & strLink & "</td>"
noPrRow=noPrRow+1
if noPrRow=antalPrRow then
response.write "</tr>"
noPrRow=0
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop
if noPrRow>0 then response.write "</tr>"
response.write "</table>"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
<!--#include file="skriv.asp"
%>
</div>
</body></html>
