<%
if request.querystring("lettre") ="" then Lettre="A" else Lettre=request.querystring("Lettre") end if
Set Conn = Server.CreateObject("ADODB.Connection")
chemin = Server.MapPath("base/peintres.mdb")
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&chemin
'if request.querystring("Lettre")<>"" then
SQL = "SELECT * FROM Peintres where Nom like '"&Lettre&"%%%' order by Nom"
'else
' SQL = "SELECT * FROM Objets where Genre = '"&request.querystring("style")&"'"
'end if
Set RS=Conn.Execute(SQL)
%>
annuaire des artistes du monde
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Artiste :
<%
while not RS.EOF
response.write Ucase(RS("Nom"))&" "&RS("Prenom")&" "&RS("Adresse")&" "&RS("Ville")&" "&RS("CP")&" - "&RS("Pays")&" "&RS("Tel")&"
"
rs.movenext
wend
rs.close
Set RS=nothing
conn.close
%>
BACK
HOMEPAGE