MAPA DE LOS HAUTES PYRENEES

Plano de los hautes pyrénées

  
   volver Inicio / Esquí - Estaciones
Estaciones de Esquí Skieur


<% Dim dcnDB 'As ADODB.connection Dim recordset 'As ADODB.Recordset Dim SQL, url, Pays, granderegion, region, departement, rubrique, titre1, titre2, titre3, description, lieuinfo, telephone, infos, logo 'As ADODB.String Set dcnDB = server.createObject("ADODB.Connection") dcnDB.Open "am12972" pays = "France" granderegion = "Pyrénées" region = "Midi-Pyrénées" rubrique = "ski" set recordset = server.createObject("ADODB.Recordset") SQL = "SELECT * from skithermalisme WHERE (pays='"&pays&"') and (granderegion='"&granderegion&"') and (region='"®ion&"') and (rubrique='"&rubrique&"') ORDER BY titre1" recordset.Open SQL, dcnDB, 1, 1%> <%Do while Not recordset.EOF%> <%recordset.movenext Loop%>
Estaciones Nieve + info
<%=recordset("titre1")%>
<%=recordset("titre2")%>
<%=recordset("titre3")%> 		<%if recordset("description") <> "" then response.write ("")%>" target="_top">Detalles <%else%>   <%end if%> <% if recordset("logo") <> "" then Response.Write ("")%>" target="_top">" BORDER=0 WIDTH=58 HEIGHT=50> <%else%>   <%end if%>


<%recordset.Close set recordset = nothing dcnDB.Close Set dcnDB = nothing %>