<%
langue = Request.querystring("lang")
if langue="uk" then
Session("Langue")="uk"
Session("sellang")=1
end if
if langue="fr" then
Session("Langue")="fr"
Session("sellang")=1
end if
%>
<%
Dim sql
Dim coul,reg,mille,prix,flacon
if langsel="fr" then
sql="SELECT * from Couleur ORDER BY Titre_Coul"
else
sql="SELECT * from Couleur ORDER BY Titre_Couluk"
end if
Set coul = Server.CreateObject("ADODB.Recordset")
coul.Open sql, Conn, 3, 3
sql="SELECT Millesime from Produits ORDER BY Millesime DESC"
Set mille = Server.CreateObject("ADODB.Recordset")
mille.Open sql, Conn, 3, 3
sql="SELECT PU_2 from Produits ORDER BY PU_2 DESC"
Set prix = Server.CreateObject("ADODB.Recordset")
prix.Open sql, Conn, 3, 3
sql="SELECT * from SSregion WHERE Selection_Ssreg=1 ORDER BY Libelle_ssreg"
Set reg = Server.CreateObject("ADODB.Recordset")
reg.Open sql, Conn, 3, 3
%>
SIVEC
sarl
11, avenue Anatole France
92110 Clichy
France
Tel : 33-1-41-27-92-10
Fax : 33-1-41-27-96-60 Webmaster - Infos
