La Ferme aux Ânes
<%
saut="
"
Const adOpenStatic = 3
Const adLockReadOnly = 1
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
strDSN = "DSN=equipyr"
objConn.Open strDSN
strSQL = "SELECT * FROM GR107 Where (Web_STP LIKE 'anes')"
objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly
response.write saut
response.write "De Foix à Unac : " & objRS("KmsN").Value & " kms"
response.write saut
response.write "Altitude : " & objRS("Alti").Value & " m"
response.write saut
response.write saut
response.write objRS("Enseigne").Value
response.write saut
response.write objRS("Prenom").Value & " " & objRS("Nom").Value
response.write saut
response.write objRS("Code").Value & " " & objRS("Commune").Value
response.write saut
response.write objRS("teleph").Value
response.write saut
strBody5= "" & "Site Internet" & ""
response.write strBody5
response.write saut
TABLIEN = "" & "e-mail" & ""
response.write TABLIEN
objRS.close
objConn.Close
%>