Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

F-gos

Mensagen de erro estranha ao clicar em enviar

Por , em ASP Clássico

Recommended Posts

F-gos    0

F-gos
Postado

Pessoal boa tarde!

 

Estou com problema ..tenho um formulario de cadastro em asp que pega dados do banco exibe na tela e apresenta um form para a pessoa preencher e enviar.

 

o problema é a esse envio não esta funcionando.

 

a parte de pagar dado do banco e exibir na tela funciona normal... mas quando clico em enviar aparece o seguinte erro:

 

Microsoft JET Database Engine error '80040e09'

 

Cannot update. Database or object is read-only.

 

/ecoprodutos_form_cadastro.asp, line 10

alguem pode me dizer oq significa esse erro?????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

manda o codigo completo destancando a linha, e o qu você está atualizando, mais precisamente os valores que você está colocando!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

F-gos    0

F-gos
Postado

cara naverdade eu nem estou atualizando nada.... um cara x fez uma atualização no site a uns 2 meses e o form num funcionou + ..... cheguei agora pra tentar resolver mas tbm não manjo muita coisa de ASP. Vo postar o código:

 

 

<!-- #INCLUDE FILE="conexao.asp" -->
<%
Session("nome") = Request.Form("nome")
Session("email") = Request.Form("email")

Set rsCadastro = Server.CreateObject ("ADODB.RecordSet")
sqlCadastro = "SELECT * FROM orcamentoeco"
rsCadastro.Open sqlCadastro, Conexao, 1, 2

rsCadastro.AddNew

For Each loCampo in rsCadastro.Fields
	If Trim(Request.Form(loCampo.Name)) <> "" Then
'		Response.Write loCampo.Name & " - " & Request.Form(loCampo.Name) & "<br>"
		rsCadastro(loCampo.Name) = Replace(Request.Form(loCampo.Name), vbCrLf, "<br>")
	End If
Next

'rsCadastro("nome") = Request.Form("nome")
'rsCadastro("cpf") = Request.Form("cpf")
'rsCadastro("endereco") = Request.Form("endereco")
'rsCadastro("cidade") = Request.Form("cidade")
'rsCadastro("cep") = Replace(Request.Form("cep"),"-","")
'rsCadastro("estado") = Request.Form("estado")
'rsCadastro("ddd") = Request.Form("ddd")
'rsCadastro("telefone") = Request.Form("telefone")
'rsCadastro("nascimento") = Request.Form("nascimento")
'rsCadastro("email") = Request.Form("email")
'rsCadastro("profissao") = Request.Form("profissao")
'rsCadastro("obs") = Request.Form("obs")

rsCadastro("ecoprodutos") = Request.Form("produto")
rsCadastro ("data_cadastro") = Now()
rsCadastro.UPDATE
Session("cod_orcamento") = rsCadastro("cod_orcamento")

nome = "site"
email = "nome@email.com.br"

corpoMensagem1 = "<html><head><title>seu pedido de orcamento foi recebido</title></head>" & vbCr & _
				"<body>" & vbCr  
	corpoMensagem2 = "<img src=""http://www.site.com.br/imagens/logo.jpg""><br><br><font face=Verdana size=2>Olá " & Request.Form ("nome") & " ,<br> Seu orçamento foi recebido com sucesso.<br><br><b>Produtos para orçamento:</b><br>" & Request.Form ("produto") & "<br><br><b>Observação:</b><br>" & Replace(Request.Form("obs"), vbCrLf, "<br>") & "<br><br>ATENÇÃO:</b><br>" & vbCr & _
	"O prazo para resposta aos e-mails enviados ao site é de até 72h.<br>Para orçamentos urgentes ou consultas técnicas,<br>ligue para (11) 33343560.<br><br>" & vbCr & _
	"<font face=Verdana size=1><b>INSTITUTO PARA O DESENVOLVIMENTO DA HABITAÇÃO ECOLÓGICA</b><br>Rua Ribeiro de Lima, 282, cj. 410-E - Bom  - São copa/sop- CEP 02352-000<br>Tels.: (11) 3344-3456675<br>email geral: <a href=""mailto:nome@email.com.br""> nome@email.com.br</a> | Suporte técnico: <a href=""mailto:nome@email.com.br"">nome@email.com.br</a><br>Visitas com hora marcada</font></body></html>" & vbCr
corpoMensagem = corpoMensagem1 & corpoMensagem2

Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = nome
Mailer.FromAddress= email
Mailer.RemoteHost = "localhost"
'If Request.Form("email") = "nome@email.com.br" OR Request.Form("email") = "nome@email.com.br" Then
	'Mailer.Recipient = "nome@email.com.br"
'Else
	Mailer.Recipient = "nome@email.com.br;" & Request.Form("email") 
'End If
Mailer.BodyText = corpoMensagem
Mailer.Subject = "Orçamento de Ecoprodutos"
Mailer.ContentType = "text/html"
Mailer.CharSet = "2"
If (Mailer.SendMail = True) Then
	'If Request.Form("email") = "nome@email.com.br" OR Request.Form("email") = "nome@email.com.br" Then
		'Response.Write corpoMensagem
		'Response.End
	'Else
	
		Response.Redirect ("ecoprodutos_thanks.asp")
	'End if
Else
	Response.Write "Ocorreu um erro ao enviar o e-mail:<br>" & Mailer.Response
End If
	'Mailer.SendMail
	Set Mailer = Nothing

rsCadastro.Close
Set rsCadastro = Nothing
Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

F-gos    0

F-gos
Postado

pessoal parece que o erro é porque o banco não tem permissão de escrita....é isso???

 

se for como faço para dar permissão de escrita no banco????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Bucioli Scala    0

Vagner Bucioli Scala
Postado

Olá! você precisa dentro de seu painel, ir em Gerenciador de arquivos e setar permissão de escrita na pasta dados ou na pasta onde estiver seu banco. Se no seu painel não tiver este recurso solicite para seu provedor dar permissão nesta pasta, senão pede pra eles te orientar como fazer

Compartilhar este post

Link para o post
Compartilhar em outros sites

F-gos    0

F-gos
Postado

certo wagner..... mas no site tem outros formularios que funcionam perfeitamente..... só esse que não funciona.... será q é isso mesmo??

Compartilhar este post

Link para o post
Compartilhar em outros sites

augustoclaro    2

augustoclaro
Postado

olha cara, axo que o erro está debaixo do seu nariz...

 

 

quando você coloca as permissões:

 

rsCadastro.Open sqlCadastro, Conexao, 1, 2

voce coloca como read-only...

 

é só mudar akele codigo para isso:

 

rsCadastro.Open sqlCadastro, Conexao, 3, 3

Espero ter ajudado!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito