Erro ao tentar incluir um novo user no BD

[venoncl10 0]

Será que alguém pode me ajudar?

 

Estou utilizando um sitesma de Autenticação de Usuários, asp com .mdb.

 

qdo eu tenho incluir um novo usuário eu recebo a seguinte mensagem:

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/pass/update.asp, line 35

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

 

Página:

POST 57 bytes to /pass/update.asp

 

POST Data:

username=denis&password=123&level=2&expdate=22%2F9%2F2005

 

Realmente eu não sei o que fazer mais...

[Magnoweb 0]

Posta o script e diz qual é o nome dos campos da tabela

[rOcKLoCo 0]

você precisa dar permissao de escrita e leitura na pasta onde se encontra o banco de dadosfalows

[venoncl10 0]

Posta o script e diz qual é o nome dos campos da tabela

ta aí o script:

 

<%@Language=VBScript%>

<%Response.Buffer = True%>

<!--#INCLUDE FILE="config.inc"-->

<!--#INCLUDE FILE="level3.inc"-->

 

<%

Dim Method

 

Method = Request.QueryString("method")

 

Select Case Method

Case "Add"

Add(MyConn)

Case "Edit"

Edit(MyConn)

Case "Delete"

Delete(MyConn)

End Select

 

'/////////////////////////////////////////////////////////////////////////////////

 

Sub Add(MyConn)

 

Dim UserName, PassWord, Level, ExpDate, SQL

 

UserName = Replace(Trim(Request.Form("username")), "'", "''")

PassWord = Replace(Trim(Request.Form("password")), "'", "''")

Level = Trim(Request.Form("level"))

ExpDate = Trim(Request.Form("expdate"))

 

If UserName = "" Or PassWord = "" Or Level = "" Or ExpDate = "" Then Response.Redirect "admin.asp"

 

SQL = "Insert Into Login (UserName, [PassWord], Clearance, ExpireDate) Values('"&UserName&"', '"&PassWord&"', '"&Level&"', '"&ExpDate&"')"

 

MyConn.Execute(SQL)

 

CleanUp2()

 

Response.Redirect "admin.asp"

 

End Sub

 

'////////////////////////////////////////////////////////////////////////////////////

 

Sub Edit(MyConn)

 

Dim id, username, password, level, expdate

 

id = CInt(Request.Form("id"))

username = Replace(Request.Form("username"), "'", "''")

password = Replace(Request.Form("password"), "'", "''")

level = CInt(Request.Form("level"))

expdate = Request.Form("expdate")

 

SQL = "Update Login Set UserName = '"&username&"', [PassWord] = '"&password&"'"

SQL = SQL & ", Clearance = "&level&", ExpireDate = '"&expdate&"' Where ID = "&id&""

 

Set RS = MyConn.Execute(SQL)

 

CleanUp2()

 

Response.Redirect "admin.asp"

 

End Sub

 

'////////////////////////////////////////////////////////////////////////////////////

 

Sub Delete(MyConn)

 

Dim id, SQL

 

id = CInt(Request.Form("id"))

 

SQL = "Delete * From Login Where ID = "&id&""

MyConn.Execute(SQL)

 

CleanUp2()

 

Response.Redirect "admin.asp"

 

End Sub

%>

 

o texto em vermelho é a linha que está dando erro.

[Magnoweb 0]

[PassWord] é uma palavra reservada

[venoncl10 0]

[PassWord] é uma palavra reservada

Como assim? você poderia me explicar?