%
sql = "SELECT * FROM [liste] WHERE [liste].[categorie]<> 'vendu' ORDER BY [liste].[reference] "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
sql = "SELECT * FROM [Accueil] WHERE N=0"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
s1=rs.Fields("Boutique").Value
s2=replace(s1,"
",Vbcrlf)
Boutique=s2
%>
|
Village
Suisse - 54, avenue de la Motte-Picquet - 75015 Paris
Pour plus d'informations, rendez-vous sur le site pagesjaunes.fr !
Nom : Winplex |
||||||||