|
Your super script working with 4.11 !
Have replaced :
.../....
$RC=SetOption("WrapAtEOL","On")
$DSN="Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DBPath$DBFile"
$Connection = CreateObject("ADODB.Connection")$Command = CreateObject("ADODB.Command")$Recordset = CreateObject("ADODB.Recordset")
etc...
With :
$connect = Server.CreateObject("ADODB.Connection")
$connectstring="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=$DBPath$DBFile"
$connect.Open($connectstring)
$Command = CreateObject("ADODB.Command")
$Recordset = CreateObject("ADODB.Recordset")
If $Connect
$Connection.Open($connectstring)
$Command.ActiveConnection = $Connectstring
.../...
etc...
Bruno
| 
