Всем привет!
Сайт ASP + VBSCript.
Разрабатываю элементарный опрос. Результаты должны помещаться в БД "Sport1" MS SQL 2000 SERVER.

файл Global.asa:
<OBJECT RUNAT=Server SCOPE=Application ID=Conn PROGID="ADODB.Connection"></OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application.Lock
Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Password=it;User ID=it;Initial Catalog=OPROS;Data Source=Bay"
Application.Unlock
End Sub

Sub Application_OnEnd
Application.Lock
Conn.Close
Set Conn = Nothing
Application.Unlock
End Sub

Sub Session_OnStart
Session.Timeout = 30
End Sub
</script>

Результаты отправляются на страницу с кодом:
...
<>
...
<!-- #include file="Include/Common.inc" -->
<Dim rsAdd
Set rsAdd = Server.CreateObject("ADODB.Recordset")
rsAdd.Open "Sport1", Conn

rsAdd.AddNew
rsAdd.Fields("Q1") = Q1
rsAdd.Fields("Q2") = Q2
...

ВЫдает ошибку:

ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.