% Const adOpenKeyset = 3 Const adLockReadOnly = 1 strQuery = "SELECT * FROM fotoboek ORDER BY id desc" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=standing;DATABASE=fotoboek;" Set objRS = Server.CreateObject("ADODB.RecordSet") objRS.Open strQuery, objConn, adOpenKeyset,adLockReadOnly objRS.PageSize = 1 Scroll = Request("Scroll") If Scroll <> "" Then Page = mid(Scroll, 5) If Page < 1 Then Page = 1 Else Page = 1 End If objRS.AbsolutePage = Page %>
|
|
Foto Presentatie
|
||||||