<%
If Request.QueryString("id") = "" Then
intPage = 1
Else
intPage = Request.QueryString("id")
End If
Set con = Server.CreateObject("ADODB.Connection")
con.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Properties", con, adUseClient
rs.PageSize = 4
rs.CacheSize = rs.PageSize
intPageCount = rs.PageCount
intRecordCount = rs.RecordCount
If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
If CInt(intPage) <= 0 Then intPage = 1
If intRecordCount > 0 Then
rs.AbsolutePage = intPage
intStart = rs.AbsolutePosition
If CInt(intPage) = CInt(intPageCount) Then
intFinish = intRecordCount
Else
intFinish = intStart + (rs.PageSize - 1)
End if
End If
%>
Weekly Breaks - Bardsey Island
