Inclusão em DB ACCESS com ASP

[rafaeltasso 0]

Gostaria de uma ajuda, pois já percorri várias listas de discussões e não achei uma resposta que resolvesse o meu problema.

Tenho essa FORM que não grava de maneira nenhuma no DB.

O erro sempre é o mesmo (abaixo):

 

Microsoft JET Database Engine error '80004005'

 

Operation must use an updateable query.

 

/Luka/grava_email.asp, line 51

 

Segue abaixo o meu código de inclusão:

 

<!--#include file="admin/conndb_email.asp"-->

 

<%

'Variáveis

Dim StrEmail

Dim StrNome

Dim StrDia

Dim StrMes

Dim StrAno

Dim str_bd_mala

Dim str_bd_mala2

Dim rsquery

Dim StrError

Dim Strmsg

 

strEmail = Request.Form("email")

strNome = Request.Form("nome")

strDia = Request.Form("D1")

strMes = Request.Form("M1")

strAno = Request.Form("A1")

 

str_bd_mala ="select email from mala where email = '"& Stremail &"'"

set rsquery = objConn.execute(str_bd_mala)

 

'Pesquisa se E-Mail existe

IF NOT rsquery.eof THEN

StrError = 1

Session("error") = StrError

StrMsg = "E-Mail já existente em nosso sistema."

Session("recado") = rsquery("Email") & "<br>" & StrMsg

Response.Redirect("cad_email.asp")

ELSE

If StrEmail="" OR StrNome="" then

StrError = 0

Session("error") = StrError

StrMsg = "Campos obrigatórios, favor preencher."

Session("recado") = StrMsg

Response.Redirect("cad_email.asp")

ELSE

'Grava o e-mail se não existente

str_bd_mala2 = "INSERT INTO Mala (email, nome, dia, mes, ano) VALUES " &_

"('" & strNome & "'" &_

",'" & strEmail & "'" &_

",'" & strDia & "'" &_

",'" & strMes & "'" &_

",'" & strAno & "')"

 

linha 51 set rsquery = objConn.execute(str_bd_mala2)

StrMsg = "E-Mail cadastrado com sucessso."

Session("recado") = StrMsg

Response.Redirect("cad_email.asp")

END IF

END IF

%>

 

<!--#include file="admin/conndbclose.asp"-->

 

Caso alguém possa me ajudar, agradeceria muito.

[hargon 64]

Provavelmente isso é um erro de permissão para gravação no banco de dados.

 

Você tem que dá essa permissão no IIS.

 

Da uma pesquisada no fórum sobre isso.

[Anderson Ferraz 0]

set rsquery = objConn.execute(str_bd_mala2)

Já experimentou usar o comando da linha 51 da seguinte maneira?

objConn.execute(str_bd_mala2)

[rafaeltasso 0]

Poxa obrigado pela luz.Era problema de permissão na pasta do arquivo mesmo...Internet guest IIS com escrita.