<%@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 - All Inclusive and More

Photo Gallery

<% 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 %>

<%if (MuestraFotos-ShowFotos-rsGallery_total) >= 0 then %> Previous <%else%> Previous <%end if%> | <%if rsGallery_total > ShowFotos then %> Next <%else%> Next <%end if%>

Las Palmas by the Sea. Hotel Resort in Puerto Vallarta, México.

<% rsGallery.Close() Set rsGallery = Nothing %>