|
|
| País:
ESPAÑA
SELECCIONE
EL LUGAR:
|
<%
tableName="esqui" ' Nombre de la tabla a la que consultar
porPagina = 5 ' número de artículos por página
'Lee el pais
'
pais=request("pais")
if (isEmpty(pais) or pais="") then pais="España" end if
Dim nxt
nxt=0
' Creo el objeto para acceder al fichero de imagen del logo
Set fs = CreateObject("Scripting.FileSystemObject")
' Establece la conexión con la BD
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConnAccessEsqui
'Activa la conexión
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = conn
%>
|
<%
id_sierra=""
id_estac=""
id_provincia=""
id_sierra=request("id_sierra")
id_estac=request("id_estac")
id_provincia=request("id_provincia")
%>
<% if ( id_sierra="" AND id_provincia="" AND id_estac="" ) then %>
<% else
response.write ""
end if
%>
|
<%
seleccion=true
if id_sierra="" and id_estac="" and id_provincia="" then
seleccion=false
end if
if seleccion=false then
%>
<%
else
if NOT(isEmpty(id_sierra)) or id_sierra<>"" then
consulta="SELECT * FROM " & tableName & " WHERE id_sierra=" & id_sierra & " ORDER BY sierra,nombre"
else if NOT(isEmpty(id_estac)) or id_estac<>"" then
consulta="SELECT * FROM " & tableName & " WHERE id_estac=" & id_estac & " ORDER BY nombre"
else if NOT(isEmpty(id_provincia)) or id_provincia<>"" then
consulta="SELECT * FROM " & tableName & " WHERE id_provincia=" & id_provincia & " ORDER BY provincia,nombre"
end if
end if
end if
rs.Open consulta, conn, 1,3
if rs.eof then
Response.write("No hay registros para esa consulta. Inténtelo con otra opción. ")
Response.write("¡GRACIAS!")
else
total=rs.recordcount
' si no se pasa ningún parámetro "start" se utiliza 1
if request("start")="" then
start=1
else
start=cint(request("start"))
end if
rs.move start - 1
%>
<%
' INICIO DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS
'----------------------------------------------------------------------------
tableColor=0
counter=0
for row=start to start + (porPagina -1)
counter=counter+1
if rs.eof then exit for
' SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS
' -----------------------------------------------------------------
nombre = rs("nombre")
id_estac = cstr(rs("id_estac"))
sierra = rs("sierra")
provincia = rs("provincia")
tlf1 = rs("tlf1")
fax = rs("fax")
n_pistas=rs("n_pistas")
area_esquiable = rs("area_esquiable")
capacidad = rs("capacidad")
%>
>
|
<%= nombre %>
Cordillera:
<%= sierra %>
<%= provincia %>
Tlf: <%= tlf1 %> Fax: <%= fax %>
<% if cStr(n_pistas)<>"0" then %>
nº de pistas: <%= n_pistas %>
<% end if %>
<% if cStr(area_esquiable)<>"0" then %>
superficie esquiable: <%= area_esquiable %>
km
<% end if %>
<% if cStr(capacidad)<>"0" then %>
capacidad: <%= capacidad %> personas
<% end if %>
Más información
|
<%
' FIN DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS
'----------------------------------------------------------------------------
nxt=start
rs.MoveNext
next
set rs = nothing
'cerrar conexión
conn.close
set conn=nothing
%>
|
Si
desea una información más detallada de cualquier estación, haga
"click" sobre el texto "Más información" que
acompaña a los datos descriptivos de cada estación.
|
<%
end if
%>
<%
if total>porPagina then
Response.write(" ")
Response.write("Más Estaciones: ")
hits=0
for n=1 to total step porPagina
if n<>1 then response.write " - "
hits = hits + 1
if hits<>cint(request("p")) then
' escribe un link que llamará de nuevo a esta página
Response.write (""
Response.write hits
else
Response.write("")
Response.write hits
Response.write("")
end if
Response.write ""
Response.write " "
next
if nxt<>1 then
' escribe un link que llamará de nuevo a esta página
Response.write (""" then
Response.write "&id_sierra="
Response.write (Server.URLencode(id_sierra))
end if
if id_estac<>"" then
Response.write "&id_estac="
Response.write (Server.URLencode(id_estac))
end if
if id_provincia<>"" then
Response.write "&id_provincia="
Response.write (Server.URLencode(id_provincia))
end if
Response.write """ target=""_parent"">"
Response.write "Anterior"
Response.write ""
Response.write " "
end if
if (nxt+porPagina-1)"" then
Response.write "&id_sierra="
Response.write (Server.URLencode(id_sierra))
end if
if id_estac<>"" then
Response.write "&id_estac="
Response.write (Server.URLencode(id_estac))
end if
if id_provincia<>"" then
Response.write "&id_provincia="
Response.write (Server.URLencode(id_provincia))
end if
Response.write """ target=""_parent"">"
Response.write "Siguiente"
Response.write ""
Response.write " "
end if
Response.write(" ")
end if
end if
%>
|
 |
|
|
|
|
|
|
|