Camurac
<%
dim K
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 '%camurac%')"
objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly
Do Until objRS.EOF = True
K=K+1
response.write saut
if K=1 then
response.write "De Foix à Camurac : " & objRS("KmsN").Value & " kms"
response.write saut
response.write "Altitude : " & objRS("Alti").Value & " m"
response.write saut
end if
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
response.write saut
response.write saut
objRS.Movenext
Loop
objRS.close
objConn.Close
%>