======================================
Function Connect ()
Dim DB
Set DB = Server.CreateObject("ADODB.Connection")
DB.Mode = adModeReadWrite
DB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(БД) & ";uid=;pwd=;"
Set Connect = DB
End Function
Set users = Connect ().Execute ("..........................")
Set users = nothing
===================
Спасибо за внимание!



