Erro

[Cocão_99 0]

Um arquivo meu (é um newsletter) está dando o seguinte erro:

 

Microsoft JET Database Engine error '80004005'

 

Operation must use an updateable query.

 

/webtsi/newsletter/enviar.asp, line 32

 

Não sei mais o que fazer pois não tem nada errado com a linha 32. Segue o código completo da página:

 

ASP [/tr][tr]<!-- #include file="Config.asp"-->

<!-- #include file="abrirconexao.asp"-->

<!--#INCLUDE file="topogeral.inc" -->

<%

'-------------------------------------------------------------

'Arquivo: enviar.asp

'Descrição: Procedimento para envio das mensagens

'Criado dia 14/06/02 - por Flavio Cardoso

'http://www.codigolivre.com.br

'-------------------------------------------------------------

Response.write "<div align=""center"">"

Function Plic(strTexto)

Temp = Replace(strTexto, "'", "''")

Plic = Replace(Temp, """", """")

End Function

 

Assunto = Request.Form("Assunto")

Mensagem = Request.Form("Mensagem")

Data = Date()

sSQL="SELECT * FROM Masters"

Set rs=ConnStr.Execute(sSQL)

emailadministrador=rs("email")

Set rs=Nothing

sql_select = "select * from Lista"

no = 0

Set rs_sendmail = Server.CreateObject("ADODB.Recordset")

rs_sendmail.Open sql_select, ConnStr

if rs_sendmail.EOF then

Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"

Else

strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')"

 

'ESSA É A BENDITA LINHA 32

ConnStr.Execute(strSQL)

 

Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"

While Not rs_sendmail.EOF

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From=emailadministrador

mail.To=rs_sendmail("email")

mail.Subject=Assunto

Mail.BodyFormat=0

Mail.MailFormat=0

mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"

mail.Send

Set mail = Nothing

no = no + 1

rs_sendmail.MoveNext

Wend

Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"

rs_sendmail.Close

Set rs_sendmail = Nothing

End If

Response.write "</div>"

%>

<!-- #include file="undergeral.inc"-->

<!-- #include file="fecharconexao.asp"-->

[/tr]

[Mário Monteiro 179]

bem ao que tudo indica o erro esta na variavel strSQL, manda escrever seu valor na tela e posta aqui