% 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 %>
| The Island |
| History |
| Archaeology |
| Natural History |
| Agriculture |
| Spirituality |
| Enlli and the Arts |
| Further Reading |
| Landmarks |
| Map |
|