CARTE DES HAUTES PYRENEES

Plan des hautes pyrénées



Plan du site - Liens

  
   retour Accueil / Thermalisme - Thermes

Stations Thermales stations thermales des hautes pyrénées. thermes en midi-pyrénées


<% Dim dcnDB 'As ADODB.connection Dim recordset 'As ADODB.Recordset Dim SQL, 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 = "thermalisme" 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%>
Thermes + d'infos
<%=recordset("titre1")%> <%=recordset("lieuinfo")%>
<%=recordset("telephone")%>


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