<% response.buffer=true ' Establece el timeout a 3 minutos para las conexiones que son excesivamente lentas Server.ScriptTimeout = timeOutDB %>
<% Dim seleccion Dim id_parque Dim id_provincia Dim n_estrellas id_parque="" id_provincia="" n_estrellas="" id_parque=trim(request("id_parque")) id_provincia=trim(request("id_provincia")) id_tipo=trim(request("tipo")) seleccion=true if ((id_parque="0" AND id_provincia="0" AND id_tipo="") OR (id_parque="" AND id_provincia="" AND id_tipo="")) then seleccion=false end if %>

 

País: ESPAÑA
SELECCIONE EL LUGAR: 
<% tableName="parques" ' Nombre de la tabla a la que consultar porPagina = 15 ' 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 StrConnAccessParques 'Activa la conexión Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn %>

Tipo de Parque:         
Nombre:
Provincia:
<% if seleccion=false then %>

<% else if (id_tipo<>"") then consulta="SELECT * FROM " & tablename & " WHERE cTipo LIKE '%" & id_tipo & "%' ORDER BY cNombre,cProvincia" else consulta="SELECT * FROM " & tableName & " WHERE nId_provincia=" & id_provincia & " ORDER BY cNombre ASC" 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 if total=1 then id_parque=rs("id_parque") set rs = nothing conn.close set conn=nothing response.redirect "showdetail.asp?id=" & id_parque end if rs.movefirst %>
Parques <% if request("id_provincia")<>"" then response.write " en " & rs("cProvincia") & "" end if doNotShowKindOfPark=false elTipo=request("tipo") if elTipo<>"" then doNotShowKindOfPark=true if InStr(1,elTipo,"a",1)>0 then response.write " ACUÁTICOS" end if if InStr(1,elTipo,"t",1)>0 then response.write " TEMÁTICOS" end if if InStr(1,elTipo,"z",1)>0 then response.write " ZOOLÓGICOS o ACUARIUMS" end if if InStr(1,elTipo,"c",1)>0 then response.write " ATRACCIONES" end if end if %>
<% ' INICIO DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS '---------------------------------------------------------------------------- tableColor=0 counter=0 do while NOT(rs.EOF) ' SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS ' ----------------------------------------------------------------- id_parque = rs("id_parque") cTipo = trim(rs("cTipo")) cNombre = trim(rs("cNombre")) cDireccion = trim(rs("cDireccion")) cPoblacion = trim(rs("cPoblacion")) cProvincia = trim(rs("cProvincia")) cTlf1 = trim(rs("cTlf1")) cTlf2 = trim(rs("cTlf2")) cFax = trim(rs("cFax")) cApertura = rs("cApertura") %>

>

<%= cNombre %>  <% if NOT(doNotShowKindOfPark) then if cTipo<>"" then if InStr(1,cTipo,"a",1)>0 then response.write " >>> ACUÁTICO" end if if InStr(1,cTipo,"t",1)>0 then response.write " >>> TEMÁTICO" end if if InStr(1,cTipo,"z",1)>0 then response.write " >>> ZOOLÓGICO o ACUARIUM" end if if InStr(1,cTipo,"c",1)>0 then response.write " >>> ATRACCIONES" end if end if end if %>

<%= cDireccion %>  - <%= cPoblacion %> ( <%= cProvincia %> )  <% if Tlf1<>"" then response.write "Tlf: " & cTlf1 & " " end if if Tlf2<>"" then response.write "Tlf: " & cTlf2 & " " end if if fax<>"" then response.write "Fax: " & cFax & " " end if %>
<% if cApertura<>"" then %> Apertura: <%= cApertura %> <% end if %>

Más información

<% ' FIN DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS '---------------------------------------------------------------------------- rs.MoveNext loop set rs = nothing 'cerrar conexión conn.close set conn=nothing %>

Si desea una información más detallada de cualquier parque, haga "click" sobre el texto "Más información" que acompaña a los datos descriptivos de cada parque.

<% end if %> <% end if %>