Галактика в вопросах и ответах

Вот так примерно это выглядит на WSH
на ASP где то также долно быть
' Получение информации о текущих пользователях
Dim db
Dim rs
dim str
dim i
Set db =WScript.CreateObject("ADODB.Connection")
Set rs =WScript.CreateObject("ADODB.Recordset")
db.ConnectionTimeout = 2
db.CommandTimeout = 2
db ...

Вот так примерно это выглядит на WSH
на ASP где то также долно быть
' Получение информации о текущих пользователях
Dim db
Dim rs
dim str
dim i
Set db =WScript.CreateObject("ADODB.Connection")
Set rs =WScript.CreateObject("ADODB.Recordset")
db.ConnectionTimeout = 2
db.CommandTimeout = 2
db ...

,ежели не жалко.