<%@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_off
Dim rs_off_numRows
sql_str="SELECT OFFERS.*, ACCOMODATION.* FROM OFFERS INNER JOIN ACCOMODATION ON OFFERS.off_acc_id = ACCOMODATION.acc_id"
sql_str=sql_str+" WHERE off_deleted=false ORDER BY off_id DESC"
Set rs_off = Server.CreateObject("ADODB.Recordset")
rs_off.Source = "SELECT * FROM ACCOMODATION WHERE acc_at_id=1 AND acc_deleted=false "
rs_off.PageSize = 6
rs_off.ActiveConnection = MM_dbconn_STRING
rs_off.CursorType = 3
rs_off.CursorLocation = 2
rs_off.LockType = 1
rs_off.Open(sql_str)
if not (rs_off.Eof AND rs_off.Bof) then
rs_off.AbsolutePage = cINT(thisPage)
end if
rs_off_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
rs_off_numRows = rs_off_numRows + Repeat1__numRows
%>
Corfu Only - Offers -
Next Pages >"
if not (rs_off.Eof AND rs_off.Bof) then
for i = 1 to rs_off.PageCount
if i=Cint(thispage) then%>
<%=i%>
<%else%>
<%=i%>
<%end if%>
<% next %>
<%end if%>
<%Response.Write("
")%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_off.EOF))
%>
" alt="">
