<%
DSN_BASE = "DBQ=" & Server.Mappath(".") & "/images/simap.mdb;" & "Driver={Microsoft Access Driver (*.mdb)}"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
Set res = Server.CreateObject("ADODB.Recordset")
RsAfficheLots = "Select * from cartables where index like '%1%' "
set res= conn.Execute(RsAfficheLots)
soft = "Select * from soft order by index "
set res1= conn.Execute(soft)
%>
