Comando InsBd.Update

[Bruno_proweb 0]

Galera to começando nesse forum agora entao me perdoa se cometer alguma "gafe"

 

é o seguinte, tenho que colocar uma pagina para funcionar, mais estou com dificuldade para fazer ela "rodar", pois sempre que vou fazer uma gravação no BD ele da erro, já configurei na pagina config o endereço do banco de dados, mais não ta dando certo.

 

Se for um erro aparentemente facil queria uma ajuda (se nao for tambem)

 

código da pagina config: (só conexão)

 

'Abertura de Banco de dados
Sub AbreBd()
	
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DBQ=C:/inetpub/wwwroot/Dados/DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"
	'Conn.Open "DBQ=c:/ebw/downloadsexocombr/database/DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"

End Sub

'Fechamento de Banco de dados
Sub FechaBd()
	Conn.Close
	Set Conn = Nothing
End Sub

 

E depois a pagina que ele acusa o erro, é na pagina cadastro.asp na linha 63, exatamente no comando InsBd.Update

If VarEmail = "" Then
				
				Response.Write "<span class='TituloVermelho'>Coloque seu e-mail!</span><br><br>"
			
			Else
				
				If VarAcao = "1" Then
				
					Set Cadastrados = Conn.Execute("SELECT * FROM Cadastros WHERE Email = '"& VarEmail &"'")
					
					If not Cadastrados.EOF Then
					
						Response.Write "<span class='TituloVermelho'>Este e-mail já se encontra cadastrado em nosso banco de dados!</span><br><br>"
					
					Else
		
						Dim InsBd
						Set InsBd = Server.CreateObject("ADODB.Recordset")
							InsBd.CursorLocation = adUseServer
							InsBd.CursorType = adOpenKeyset
							InsBd.LockType = adLockOptimistic
							InsBd.Open "Cadastros", Conn, , , adCmdTable
							InsBd.AddNew
								InsBd("Email") = VarEmail
								InsBd("Secao") = VarCodAutenticacao
								InsBd("Status") = "1"					
							InsBd.Update
							InsBd.Close
						Set InsBd = Nothing

						VarConfEmail = "<link href="& EndLocal & "Includes/Styles.css rel=stylesheet type=text/css>"
						VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width=370 height=270 background="& EndLocal &"Imagens/FundoConfEmail.gif>"
						VarConfEmail = VarConfEmail & "<tr>"
						VarConfEmail = VarConfEmail & "<td>"
						VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
						VarConfEmail = VarConfEmail & "<tr>"
						VarConfEmail = VarConfEmail & "<td>"
						VarConfEmail = VarConfEmail & " "
						VarConfEmail = VarConfEmail & "</td>"
						VarConfEmail = VarConfEmail & "</tr>"
						VarConfEmail = VarConfEmail & "<tr>"
						VarConfEmail = VarConfEmail & "<td>"
						VarConfEmail = VarConfEmail & "<center><a href='"& EndLocal &"ConfirmacaoCadastro.asp?Act=1&CodAutenticacao="& VarCodAutenticacao &"' class='TituloCinzaEscuro' target='_blank'>Clique aqui para confirmar a inclusão de seu e-mail!</a></center>"
						VarConfEmail = VarConfEmail & "</td>"
						VarConfEmail = VarConfEmail & "</tr>"
						VarConfEmail = VarConfEmail & "</table>"
						VarConfEmail = VarConfEmail & "</td>"
						VarConfEmail = VarConfEmail & "</tr>"
						VarConfEmail = VarConfEmail & "</table>"
				
						vEmailNomeRemetente = Titulo ' Remetente (Nome)
						vEmailRemetente = EmailPadrao ' Remetente (Email)
						vEmailNomeDestinatario = VarEmail ' Destinatário (Nome)
						vEmailDestinatario = VarEmail ' Destinatário (Email)
						vEmailRetorno = EmailPadrao ' Remetente
					If VarAcao = "1" Then
						vEmailAssunto = "Confirmação de cadastro de e-mail." ' Assunto
					Else
						vEmailAssunto = "Confirmação de remoção de e-mail." ' Assunto
					End If
						vEmailCorpo = VarConfEmail ' Corpo
						
						'Call EnvioEmail()
				
						Response.Write "<span class='TituloVermelho'>A inserção de seu e-mail foi realizada com sucesso! </span><br><br>"
					
					End if

Alguem sabe me ajudar?

[Salgado 4]

Poste a mensagem de erro que é gerada.

[Bruno_proweb 0]

Poste a mensagem de erro que é gerada.

 

Aki a mensagem que ele exige no IE

 

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] Não é possível atualizar. O banco de dados ou o objeto é somente leitura.

/Cadastro.asp, line 63

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; MEGAUPLOAD 3.0)

 

Página:

POST 107 bytes to /Cadastro.asp

 

POST Data:

Acao=1&Email=bruno_proweb@hotmail.com&codSecao=&codSubSecao=&codSubSecao2=&imageField2.x=14&imageField2.y=9

 

Hora:

quarta-feira, 24 de junho de 2009, 14:56:22

 

 

Mais informações:

Suporte da Microsoft

[Salgado 4]

Dê uma pesquisada por esse erro aqui mesmo no fórum, esse erro pode ser de permissões na pasta, permissões do usuário ou do tipo de conexão setado.

[Ted k' 126]

link direto!

 

http://forum.imasters.com.br/index.php...mp;#entry916232

[Bruno_proweb 0]

valew.... vou estudar isso aii entao, depois eu posto o que eu encontrei aqui

[Bruno_proweb 0]

Eu to desconfiado que seje erro de permissao mesmo, pois quando ele vai tentar gravar um dado no banco de dados, da o erro.

mais já dei permissões de visualisar, gravar, e editar os dados

 

nao sei se fiz isso da maneira correta.

 

alguem sabe como posso fazer isso?

[Ted k' 126]

o link não ajudou, tem tudo explicado!

[xanburzum 169]

existe o Guia De Solução De Problemas Para Erros 80004005