<%
Temp=Session("Caddy")
%>
<%
Qte=0
for i=0 to session("Item")-1
TotalHt=TotalHt+temp(3,i)*temp(2,i)
TotalPort=TotalPort+temp(4,i)*temp(2,i)
Qte=Qte+temp(2,i)
next
%>
<%session.LCID=&H040c%>
Nouvelle page 3
<%
'session.LCID=4108
'-- Declare your variables
'dim cheminBase
If IsObject(Session("boutique_conn")) Then
Set conn = Session("boutique_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
cheminBase = "f:\users\maconfiture.com\httpdocs\database\produits.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="&cheminBase&";"
Set Session("boutique_conn") = conn
End If
%>
<%
'sélection
sql = "SELECT * FROM type "&" Order by TYPE"
Set typey = Server.CreateObject("ADODB.Recordset")
typey.Open sql, conn, 3, 3
typey.movefirst
%>
- maconfiture.com - Les Spécialités
du Domaine de Baudry -