<%
SQLs = "select thebrizaid, name, description, image1, image2, image3 from tbThebriza" _
&" WHERE parentid=3 and enable=1 order by priority"
rs.Open SQLs, conn, 0, 1
if rs.EOF then
rows_theBriza = -1
else
rs_theBriza = rs.GetRows
rows_theBriza = UBound(rs_theBriza,2)
'------------------------------------- Start Product per Page
rows_item = rows_theBriza
ThisPage = request("page")
if ThisPage = empty then ThisPage = 1
if rows_item >= 0 then
ThisPage = CInt(ThisPage)
rows_item = rows_item + 1
'calculate total page
TotalPage = int(FormatNumber((rows_item/PpP)+0.49999,0))
'check valid page
if ThisPage < 1 then
ThisPage = 1
elseif ThisPage > TotalPage then
ThisPage = TotalPage
end if
'set start item in this page
sItem = ((ThisPage-1) * PpP)
'set end item in this page
if ThisPage = TotalPage then
eItem = rows_item - 1
else
eItem = sItem + PpP - 1
end if
if TotalPage > 1 then
strPpP = "Page | "
'คำควณจำนวน page list ที่จะแสดง
if TotalPage <= 10 then 'ถ้าน้อยกว่า 11 ให้แสดงแบบปกติ
s_countpage = 1
e_countpage = TotalPage
else
if ThisPage > 5 then
if ThisPage+5 > TotalPage then
s_countpage = TotalPage-9
e_countpage = TotalPage
else
s_countpage = ThisPage-4
e_countpage = ThisPage+5
end if
else
s_countpage = 1
e_countpage = 10
end if
end if
'page number
for countpage = s_countpage to e_countpage
if StrComp(countpage,ThisPage) <> 0 then
LinkStr = "" & countpage & ""
strPpP = strPpP & LinkStr
else
strPpP = strPpP & ""&countpage&""
end if
strPpP = strPpP & " | "
next
strPpP = strPpP & " "
end if
strFound = "" & _
"found (" & sItem+1 & " - " & eItem+1 & " of " & rows_item & ")" & _
""
end if
'------------------------------------- End Product per Page
end If
rs.close
%>
The Briza Beach Resort & Spa
Gust Book The Briza Beach Resort
<%
if rows_theBriza>=0 then
for i=sItem to eItem
pic_briza1 = rs_theBriza(3,i)
pic_briza2 = rs_theBriza(4,i)
pic_briza3 = rs_theBriza(5,i)
%>
<%=rs_theBriza(1,i)%>
<%=rs_theBriza(2,i)%>
<%if not(pic_briza1=empty or isnull(pic_briza1)) then%>
<%
end if
if not(pic_briza2=empty or isnull(pic_briza2)) then
%>
<%
end if
if not(pic_briza3=empty or isnull(pic_briza3)) then
%>
<%
end if
%>
