Asp-BaseDeDonnées

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