<%@ Language=VBScript %>
<%
'-- Evitar que se utilice la caché con esta página
Response.Expires = 0
Set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.ConnectionString = "driver={SQL Server};server=217.76.131.36;uid=qq723;pwd=zm002;database=qq723"
miconexion.Open
Set SqlCommand = Server.CreateObject("ADODB.Command")
SqlCommand.ActiveConnection = miconexion
sSql = "SELECT * FROM desierto_fotos1"
sWHERE = ""
sWHERE = " WHERE [ESTADO] = 'A' "
if sWhere <> "" then
sQuery = sSQL & sWhere
else
sQuery = sSQL
end if
'response.write (SQUERY)
sORDER = " ORDER BY mes asc "
SqlCommand.CommandText = sQuery & sOrder
Set RSdesierto_fotos1= SqlCommand.execute
iPageSize = 20
iPage = request("PAGE")
if iPage = "" then
iPage = 0
end if
'response.write((iPAGE))
if iPage < 0 then
iPage = 0
end if
%>
Desiertoymontana.COM Tu portal del Todo Terreno
Aquí podrás
enviarnos las fotografías de tus salidas, competiciones y de
tus amigos. Envianoslas y estaremos encantados de colocarlas.!
Si quieres ver alguno de los álbunes, pincha en la fotografía
del que prefieras... ¿Cómo enviar tus fotos?
Álbunes
de fotos
Álbunes
destacados
Pulsa en las imágenes
para ampliarlas
Fotografías
Título
Album
Mes
Enviado
por
Fotos
<%iCount = iPAGESIZE
if not RSdesierto_fotos1.eof then
'If iPage * iPAGESIZE >= RScompeticion.RecordCount Then
' iPage = (RScompeticion.RecordCount - 1) \ iPAGESIZE
'End If
RSdesierto_fotos1.Move iPage * iPageSize
end if%>
<%do while not RSdesierto_fotos1.eof And iCount > 0%>
<%end if%>