<%
Ref = Request("Art")
'Response.Write Ref
Set conn1 = Server.CreateObject("ADODB.Connection")
connstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\infos.mdb")
conn1.Open connstring
If Ref <> "" Then
sql1="SELECT * from Articles, Icones, Couleurs WHERE Articles.Categorie = Couleurs.Categorie AND Couleurs.NumCat = Icones.NumCat AND Ref="& Ref
'sql1="SELECT * from Articles Where Ref="& Ref
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.Open sql1, conn1, 3, 3
Else
sql1="SELECT * from Articles, Icones, Couleurs WHERE Articles.Categorie = Couleurs.Categorie AND Couleurs.NumCat = Icones.NumCat"
'sql1="SELECT * from Articles"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.Open sql1, conn1, 3, 3
Rs1.MoveLast
End If
%>
Communauté d'agglomération Fréjus Saint Raphaël
