<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%>
[an error occurred while processing this directive]
<%
dim thisPage, rowcount, i
thisPage = Request.QueryString("thisPage")
if thisPage = "" then
thisPage = 1
end if
rowCount = 0
Dim rs_hotel
Dim rs_hotel_numRows
sql_str="SELECT ACCOMODATION.*, CLASS.* FROM ACCOMODATION INNER JOIN CLASS ON ACCOMODATION.acc_class_id"
sql_str=sql_str+" = CLASS.class_id WHERE acc_at_id=2 AND acc_deleted=false ORDER BY class_star_no DESC,acc_name ASC"
Set rs_hotel = Server.CreateObject("ADODB.Recordset")
rs_hotel.Source = "SELECT * FROM ACCOMODATION WHERE acc_at_id=1 AND acc_deleted=false "
rs_hotel.PageSize = 6
rs_hotel.ActiveConnection = MM_dbconn_STRING
rs_hotel.CursorType = 3
rs_hotel.CursorLocation = 2
rs_hotel.LockType = 1
rs_hotel.Open(sql_str)
if not (rs_hotel.Eof AND rs_hotel.Bof) then
rs_hotel.AbsolutePage = cINT(thisPage)
end if
rs_hotel_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
rs_hotel_numRows = rs_hotel_numRows + Repeat1__numRows
%>
Corfu Only - Appartments -
Next Pages >"
if not (rs_hotel.Eof AND rs_hotel.Bof) then
for i = 1 to rs_hotel.PageCount
if i=Cint(thispage) then%>
<%=i%>
<%else%>
<%=i%>
<%end if%>
<% next %>
<%end if
Response.Write("
")%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_hotel.EOF))
%>
" alt="">
