Ir para conteúdo

POWERED BY:

Arquivado

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

DJ W

Problemas na Inserção de Dados

Por , em ASP Clássico

Recommended Posts

DJ W    0

DJ W
Postado

Fala ai galera, beleza?To precisando de uma ajudaTenho um form no qual são digitados alguns dados e esses dados deverão ser gravados no BD em access, enviar e-mail para o responsável do site e e-mail para a pessoa que digitou os dados.As duas partes de e-mail estão ok...mas o bd não. Quando coloco as linhas para acesso ao BD dá erro em tudo.... ;) Segue o código

<%Dim msgTxtDim subjectDim email_paraDim MailDim msgUsuarioDim ConnDim Rsemail_para="meuemail@xxx.com.br"'Conexão ao bancoSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco.mdb")'recupero os campos do formnome=Request.Form("nome")empresa=Request.Form("empresa")cnpj=Request.Form("cnpj")endereco=Request.Form("endereco")email=Request.Form("email")bairro=Request.Form("bairro")cidade=Request.Form("cidade")estado=Request.Form("estado")telefone=Request.Form("telefone")fax=Request.Form("fax")assunto=Request.Form("assunto")'Gravo no bancoSet RS = Server.CreateObject("ADODB.Recordset") RS.Open "empresas",conn,3,3 RS.AddNew RS("Nome")=nome RS("Empresa")=empresa RS("CNPJ")=cnpj RS("Endereco")=endereco RS("Bairro")=bairro RS("Cidade")=cidade RS("Estado")=estado RS("Cidade")=cidade RS("Telefone")=telefone RS("Fax")=fax RS("Assunto")=assunto RS.Update RS.Close cnn.Close set RS=nothing set cnn=nothingmsgTxt = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""left""><font face=""Verdana,Arial,Helvetica,sans-serif"" size=""2"">" _& Request.Form("nome") _& "<br>" _& "Enviou um e-mail com os seguintes dados:" _& "<br><br>" _& "Empresa: " & Request.Form("empresa") _& "<br>" _& "CNPJ: " & Request.Form("cnpj") _ & "<br>" _& "Endereço: " & Request.Form("endereco") _& "<br>" _& "E-mail: " & Request.Form("email") _& "<br>" _& "Bairro: " & Request.Form("bairro") _& "<br>" _& "Cidade: " & Request.Form("cidade") & "     " & "Estado: "  _& Request.Form("estado") _& "<br>" _& "Telefone: " & Request.Form("telefone") _& "<br>" _& "Fax: " & Request.Form("fax") _& "<br>" _& "Expectativas em relação ao curso: " & Request.Form("expectativas") _& "<br>" _& "</font></p>" _& "</body>" _& "</html>" Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host = "mail.wnt.com.br"Mail.From = Request.Form("email")Mail.FromName = Request.Form("nome")Mail.AddAddress email_para, "Wescley Arruda"Mail.Subject = "Cadastro de Empresa" Mail.Body = msgTxtMail.IsHTML = True On Error Resume NextMail.SendIf Err <> 0 ThenResponse.Write "Erro encontrado: " & Err.DescriptionelseResponse.Write "Mensagem enviada"End If'*********************************************************************************************' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento' ao usuário recém cadastrado.msgUsuario = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""left""><font face=""Verdana,Arial,Helvetica,sans-serif"" size=""2"">" _& "Prezado " & Request.Form("nome") _& "<br>" _& "Agradecemos o cadastro da empresa:" & Request.Form("empresa") _& "<br><br>" _& "Estaremos entrando em contato o mais breve possível" _& "<br>" _& "Caso tenha alguma dúvida/sugestão entre em contato conosco pelo telefone: 333-3333" _ & "<br>" _& "Se preferir estamos no seguinte endereço: rua xxx,nnnn- bairro tal" _& "<br>" _& "Atenciosamente," _& "<br>" _& "Potencial Humano Consultoria " & "<br>" _& "</font></p>" _& "</body>" _& "</html>" '*********************************************************************************************Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host = "mail.wnt.com.br"Mail.From = email_paraMail.FromName = "Potencial Humano"Mail.AddAddress Request.Form("email"), Request.Form("Nome")Mail.Subject = "Confirmação de Envio de Mensagem " Mail.Body = msgUsuarioMail.IsHTML = True On Error Resume NextMail.SendIf Err <> 0 ThenResponse.Write "Erro encontrado: " & Err.DescriptionelseResponse.Redirect "agradecimento.htm"End If%>

Agradeço qualquer ajuda desde já.Se for possível entra em contato via icq101285776[]`sWescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tenta essa String de Conexão:

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb") & ";"

 

E dá uma olhada onde você esta fechando a conexão, você não está setando conn=nothing e sim cnn.

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

DJ W    0

DJ W
Postado

Fala ai salgado,antes de você colocar a resposta fiz isso e agora tá dando outro erro malucovocê sabe o que pode gerar um erro número 424 ?Outra se uso

Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "empresas",conn,3,3 RS.AddNew RS("Nome")=nome RS("Empresa")=empresa RS("CNPJ")=cnpj RS("Endereco")=endereco RS("Email")=email RS("Bairro")=bairro RS("Cidade")=cidade RS("Estado")=estado RS("Telefone")=telefone RS("Fax")=fax RS("Assunto")=assunto RS.Update RS.Close conn.Close set RS=nothing set conn=nothing

Dá o erroEither BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.E não grava mas os e-mails são enviados.Estou usando um script que informa erro e tá dando isso mas não é tanto especifico ...pelo menos para mim que sou iniciante em ASP.Qualquer um que possa ajudar agradeço[]`sWescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Retire o script de tratamento de erro.

Assim teremos uma explicação melhor sobre seu erro.

Faça uma busca em seu computador e encontre o arq. adovbs.inc e copie para a raiz de seu site, faça um:

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

e mude isso:

RS.Open "empresas",conn,3,3
por:
RS.Open "empresas",conn,adOpenDynamic,adLockOptimistic,adcmdtable

QQ coisa grita

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

DJ W    0

DJ W
Postado

SALGADO!!!!Agora olha o erro...ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one anotherO que significa?Valeu pela ajuda!!!wescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual a linha do erro?, copie ela e mais umas 5 linhas acima

Mas já dá para adiantar, tipos incompativeis, você deve estar tentando inserir texto em um campo numérico.

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

DJ W    0

DJ W
Postado

Fala ai....SalgadoConsegui resolver tudo hoje....Verifiquei que tinha erro no sql, no tamanho do campo no bd e outros.Acho que por estar um pouco cansado não consegui...hoje com mais calma matei tudo rapidamente....Estou esperando ter um tempo aqui e devo colocar na parte de códigos que criaram...Devem ter outros que tenham o mesmo problema[]`sWescley

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