<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
categoria = Request.QueryString("categoria")
iOrden = Request.QueryString("Orden")
if iOrden = "" then
iOrden = 0
end if
if not isnumeric(iOrden) then
iOrden = 0
end if
%>
<%
Dim rsGallery
Dim rsGallery_numRows
Set rsGallery = Server.CreateObject("ADODB.Recordset")
rsGallery.ActiveConnection = MM_conlaspalmas_STRING
rsGallery.Source = "select sFotoSm,sTitulo,sFotoBig, sClasificador, iOrden from cmtbl_Galeria where sCliente = 'laspalmasresort' and iOrden > "& iOrden &" order by iOrden"
rsGallery.CursorType = 0
rsGallery.CursorLocation = 2
rsGallery.LockType = 1
rsGallery.Open()
rsGallery_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsGallery_numRows = rsGallery_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsGallery_total
Dim rsGallery_first
Dim rsGallery_last
' set the record count
rsGallery_total = rsGallery.RecordCount
' set the number of rows displayed on this page
If (rsGallery_numRows < 0) Then
rsGallery_numRows = rsGallery_total
Elseif (rsGallery_numRows = 0) Then
rsGallery_numRows = 1
End If
' set the first and last displayed record
rsGallery_first = 1
rsGallery_last = rsGallery_first + rsGallery_numRows - 1
' if we have the correct record count, check the other stats
If (rsGallery_total <> -1) Then
If (rsGallery_first > rsGallery_total) Then
rsGallery_first = rsGallery_total
End If
If (rsGallery_last > rsGallery_total) Then
rsGallery_last = rsGallery_total
End If
If (rsGallery_numRows > rsGallery_total) Then
rsGallery_numRows = rsGallery_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsGallery_total = -1) Then
' count the total records by iterating through the recordset
rsGallery_total=0
While (Not rsGallery.EOF)
rsGallery_total = rsGallery_total + 1
rsGallery.MoveNext
Wend
' reset the cursor to the beginning
If (rsGallery.CursorType > 0) Then
rsGallery.MoveFirst
Else
rsGallery.Requery
End If
' set the number of rows displayed on this page
If (rsGallery_numRows < 0 Or rsGallery_numRows > rsGallery_total) Then
rsGallery_numRows = rsGallery_total
End If
' set the first and last displayed record
rsGallery_first = 1
rsGallery_last = rsGallery_first + rsGallery_numRows - 1
If (rsGallery_first > rsGallery_total) Then
rsGallery_first = rsGallery_total
End If
If (rsGallery_last > rsGallery_total) Then
rsGallery_last = rsGallery_total
End If
End If
%>
Puerto Vallarta, Mexico - Las Palmas by the Sea - Todo Incluido y mas
Galeria de Fotografias
<%
ShowFotos = 20
col = 0
TotalFotos = 0
While ((Repeat1__numRows <> 0) AND (NOT rsGallery.EOF) and TotalFotos < ShowFotos)
%>
<%
if col = 0 then
coltxt = "
"
end if
coltxt ="
"
if (col + 1)= 4 then 'Numero de Columnas
coltxt = coltxt + "
"
col = 0
else
col = col + 1
end if
response.Write(coltxt)
TotalFotos = TotalFotos + 1
MuestraFotos = (rsGallery.Fields.Item("iOrden").Value)
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsGallery.MoveNext()
Wend
%>
