Paging i poster

Hello all

Jeg 12 billeder(felter) som jeg gerne vil vise ved at man kan trykke på en pil for frem og tilbage.

se evt. http://www.vipiil.dk/databaser/paging.asp

hvor jeg viser en paging i mine poster i tabellen på Foto1

Men det der skal vises er 12 fotos(felter) som ligger i en post i tabellen.

Et andet problem med koden herunder er at der kommer til at stå page?=XX i min url og det er ikke smart..


Her er min forløbige kode:

<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<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 * FROM kunde\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Ejendomme.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
   
   
 
        Response.Write rs(\"Foto1\") & \"<br>\"
       
       
   
%>

<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"250\">
<tr>
  <td width=\"100%\">
  <img src=\"<%=rs(\"Foto1\")%>\" width=\"265\" align=\"left\" border=\"1\">
   
  </td>
</tr>
<tr>
  <td width=\"100%\">
 
 
<%
 
  intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

 
 
  Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; & rs Foto1 &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"

  End If
 
%>
 
 

  </td>
</tr>
<tr>
  <td width=\"100%\">
  </td>
</tr>
</table>
</center>
</div>