Lire une base de donnée ODBC
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={driversODBC};User ID=login;Password=pwd;Server=127.0.0.1;Data Source=tnsName;"
Server.ScriptTimeout = 10000
Response.Expires = - 1
Response.expiresabsolute = now() - 1
Conn.CommandTimeout=10000
SQL = "...."
Set RS = Conn.execute(SQL)
while not RS.EOF
variable = ""&RS.fields("COLONNE")
RS.MOVENEXT
wend
RS.close
--> drivers oracle = {Oracle dans OraClient10g_home1}
Gestion d'erreur
SQL="INSERT ....." on error resume next Conn.execute(SQL) if(Err.Number=0)then Response.Write("Facture -" & numF &"- correctement insérée!!!") else Response.Write("ERREUR d'insertion Facture " & numF &"!!!<BR>") Response.Write(""&Err.Description) end if On Error Goto 0