Ir para conteúdo

POWERED BY:

Arquivado

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

salmeida

Auto Resposta

Por , em ASP Clássico

Recommended Posts

salmeida    0

salmeida
Postado

Galera esta ruin pra mim... eu nunca vi coisa igual... o que esta acontecendo comigo não é brincadeira nao... to to tentando fazer o auto resposta... ele ate envia, mais não buscar o request... nao da os valores..

 

Comando = "INSERT INTO clientes (dadosobredominio,desejaregistro,dominio,plano,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf3,cpf4,email,email2,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,forma,periodicidade,vencimento,conheceu,obs,senha,data,ativo) VALUES ('"  Comando = Comando & replace(Request.Form("dadosobredominio"),"'","") & "','"  Comando = Comando & replace(Request.Form("desejaregistro"),"'","") & "','"  Comando = Comando & replace(Request.Form("dominio"),"'","") & "','"  Comando = Comando & replace(Request.Form("plano"),"'","") & "','"  Comando = Comando & replace(Request.Form("razaosocial"),"'","") & "','"  Comando = Comando & replace(Request.Form("cnpj1"),"'","") & "','"  Comando = Comando & replace(Request.Form("cnpj2"),"'","") & "','"  Comando = Comando & replace(Request.Form("cnpj3"),"'","") & "','"  Comando = Comando & replace(Request.Form("cnpj4"),"'","") & "','"  Comando = Comando & replace(Request.Form("cnpj5"),"'","") & "','"  Comando = Comando & replace(Request.Form("responsavel"),"'","") & "','"  Comando = Comando & replace(Request.Form("cpf1"),"'","") & "','"  Comando = Comando & replace(Request.Form("cpf2"),"'","") & "','"  Comando = Comando & replace(Request.Form("cpf3"),"'","") & "','"  Comando = Comando & replace(Request.Form("cpf4"),"'","") & "','"  Comando = Comando & replace(Request.Form("email"),"'","") & "','"  Comando = Comando & replace(Request.Form("email2"),"'","") & "','"  Comando = Comando & replace(Request.Form("pais"),"'","") & "','"  Comando = Comando & replace(Request.Form("estado"),"'","") & "','"  Comando = Comando & replace(Request.Form("cidade"),"'","") & "','"  Comando = Comando & replace(Request.Form("endereco"),"'","") & "','"  Comando = Comando & replace(Request.Form("telefone1"),"'","") & "','"  Comando = Comando & replace(Request.Form("telefone2"),"'","") & "','"  Comando = Comando & replace(Request.Form("telefone3"),"'","") & "','"  Comando = Comando & replace(Request.Form("cep1"),"'","") & "','"  Comando = Comando & replace(Request.Form("cep2"),"'","") & "','"  Comando = Comando & replace(Request.Form("forma"),"'","") & "','"  Comando = Comando & replace(Request.Form("periodicidade"),"'","") & "','"  Comando = Comando & vencimento & "','"  Comando = Comando & replace(Request.Form("conheceu"),"'","") & "','"  Comando = Comando & replace(Request.Form("obs"),"'","") & "','"  Comando = Comando & GerarChave(08) & "','"  Comando = Comando & date() & "','"  Comando = Comando & ativo & "')"  Conexao.Execute(Comando)Destino = Request.Form("email")servidor = "mail.gruposaladamista.com.br"titulo = "Confirmar Hospedagem"Set Mail = Server.CreateObject("Persits.MailSender")strBody = strBody & "<body bgcolor='#006699'>"strBody = strBody & "<table algin='center' border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor='#111111' width='500' id='AutoNumber1'>"strBody = strBody & "<tr>"strBody = strBody & "<td width=100% bgcolor='#FFFFFF'>"strBody = strBody & "<table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber2'>"strBody = strBody & "<tr>"strBody = strBody & "<td width='100%'>"strBody = strBody & "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber3'>"strBody = strBody & "<tr>"strBody = strBody & "<td width='37%'><img border='0' src='http://www.gruposaladamista.com.br/lshost/email/logo.jpg'></td>"strBody = strBody & "<td width='63%' bgcolor='#F7FBFB'>"strBody = strBody & "<p align='center' style='margin-top: 0; margin-bottom: 0'><b>"strBody = strBody & "<font face='Arial' color='#006699'>Confirmar Hospedagem</font></b></td>"strBody = strBody & "</tr>"strBody = strBody & "</table>"strBody = strBody & "</td>"strBody = strBody & "</tr>"strBody = strBody & "<tr>"strBody = strBody & "<td width='100%'>"strBody = strBody & "<table style='BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid' cellSpacing='0' cellPadding='0' width='500'>"strBody = strBody & "<tr>"strBody = strBody & "<td width='100%' bgColor='#ffffff' style='font-family: arial,sans-serif'>"strBody = strBody & "<div align='center'>"strBody = strBody & "<center>"strBody = strBody & "<table cellSpacing='0' cellPadding='0' width='470'>"strBody = strBody & "<tr>"strBody = strBody & "<td width='100%' style='font-family: arial,sans-serif'>"strBody = strBody & "<font face='Tahoma, Arial' size='2'> <div align='center'>"strBody = strBody & "<center>"strBody = strBody & "<table cellSpacing='0' cellPadding='0' width='90%'>"strBody = strBody & "<tr>"strBody = strBody & "<td width='100%' style='font-family: arial,sans-serif'>"strBody = strBody & "<font face='Arial' style='font-size: 8pt'>Prezado(a) Senhor(a) <b>" & replace(Request.Form("dominio")) & "</b>, <br>"strBody = strBody & "</tr>"strBody = strBody & "</table>"strBody = strBody & "</td>"strBody = strBody & "</tr>"strBody = strBody & "</table>"strBody = strBody & "</td>"strBody = strBody & "</tr>"strBody = strBody & "</table>"'Asignamos las propiedades al objeto con ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.Mail.From = "lshost@gruposaladamista.com.br"Mail.FromName = "LS Host" ' OpcionalMail.Subject = tituloMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoOn Error Resume NextMail.SendIf Err <> 0 ThenResponse.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElseResponse.Write ""End If'Destruimos el objeto con aspmailSet Mail = Nothing

galera... postei só a metade do concatena... me ajudem hauhaua ta fóda

Compartilhar este post

Link para o post
Compartilhar em outros sites

PedBolo    0

PedBolo
Postado

eu entendi o codigo mas não a sua dúvida

ele ate envia, mais não buscar o request... nao da os valores..

ele envia o email mas não retorna os dados do request? ou eh alguma coisa com a Sql??ateh...

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

É mano..O que acontece?Ele não consegue recuperar os dados, usando o Request.Form?Então.. faça por partes..Antes de mais nada, dê um simples Response.write Request("nome_do_campo")Se isso mostrar na tela o que deveria ser mostrado.. a principio está tudo ok.. aí é algum errinho basico..Se isso nao mostrar nada.. aí precisamos ver o codigo todo.. até o form

Compartilhar este post

Link para o post
Compartilhar em outros sites

salmeida    0

salmeida
Postado

É mano..O que acontece?Ele não consegue recuperar os dados, usando o Request.Form?Então.. faça por partes..Antes de mais nada, dê um simples Response.write Request("nome_do_campo")Se isso mostrar na tela o que deveria ser mostrado.. a principio está tudo ok.. aí é algum errinho basico..Se isso nao mostrar nada.. aí precisamos ver o codigo todo.. até o form

o pior é que ele cadastra no banco de dados!!!e agora??? isso só acontece comigo!

Compartilhar este post

Link para o post
Compartilhar em outros sites

salmeida    0

salmeida
Postado

ele cadastra no banco com os dados certinho?? ou fica td NULL...alias...o q q tah acontecendo?

passou a ficar tudo NULL, nao intendo... estava cadastrando... agora parou depois que eu puz auto resposta nele!!!

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