بازم مشكلم حل نشد

[asal2]

سلام
با عرض شرمندگي آقا بازم همون اشكال قبلي رو مي گيره من اين كدها رو در صفحه اي كه براي ثبت تغييرات در ديتابيس است را به كار بردم

<%@ LANGUAGE="VBSCRIPT" %>

<%

'Dimension variables
Dim adoCon 'Database Connection Variable
Dim strCon 'Holds the Database driver and the path and name of the database
Dim rsCheckUser 'Database Recordset Variable
Dim strSQL 'Database query sring
Dim strUserName 'Holds the user name
Dim dbok 'Database Connection Variable
Dim strCon 'Holds the Database driver and the path and name of the database
Dim rsCheckUser 'Database Recordset Variable
Dim strSQL 'Database query sring
Dim strUserName 'Holds the user name
Dim db_connectionstring2
Dim okok
Dim rscheckuser
strAccessDB = "db1"
set okok = server.createObject("ADODB.Connection")
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

db_connectionstring2 = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("db/db1.mdb") & ";"

strSQL = "SELECT * FROM Admin WHERE strUserName='Admin'"
rsCheckUser.LockType = 3

rsCheckUser.CursorType = 2

rsCheckUser.Open
strSQL.open
db_connectionstring2.open


If NOT rsCheckUser.EOF Then


rsCheckUser.Fields("describe") = Request.Form("S1")


rsCheckUser.Update

rsCheckUser.Requery

Session("blnIsUserGood") = True

Set okok = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing

End If
%>

لطفا يكي كمك كنه بگه اين چه اشكالي داره من ديتابيسهامو هم در دايركتوري db گذاشته ام

ممنون