Formulario com um comparativo de strings

hardbrasil · Fevereiro 22, 2007

if Session("pagamento")= a then strBody = strBody & Response.Write("Boleto é enviado em 24h")						else if Session("pagamento")= b then strBody = strBody & Response.Write( "Ag: 0736 CC: 993734-1 Titular: Fulano da silva ") 		else if Session("pagamento")= c then strBody = strBody & Response.Write("Ag: 1787-6 CC: 29577-9 Titular: Fulano da silva") 		else if Session("pagamento")= d then strBody = strBody & Response.Write("Ag: xxxx-6 CC: xxxx-9 Titular: Fulano da silva")	end if

Não esta mais dando erro de sintax porem não esta escrevendo o Response.Write

esse codigo esta dentro de um arquivo envia_formulario.asp (envia via cdosys)

shumi · Fevereiro 22, 2007

Tenta assim:

<%if Session("pagamento")= a then strBody = strBody & Response.Write("Boleto é enviado em 24h")else if Session("pagamento")= b thenstrBody = strBody & Response.Write( "Ag: 0736 CC: 993734-1 Titular: Fulano da silva ")else if Session("pagamento")= c then strBody = strBody & Response.Write("Ag: 1787-6 CC: 29577-9 Titular: Fulano da silva")	  else if Session("pagamento")= d then strBody = strBody & Response.Write("Ag: xxxx-6 CC: xxxx-9 Titular: Fulano da silva")ElsestrBody = strBody & Response.Write("Teste shumi")end if%>

Abraços

hardbrasil · Fevereiro 22, 2007

Shumi, cara não sei o que aconteceu... postei seu cod e agora esta dando erro na ultima linha do meu cod. mas nunca havia dado erro lávejaResponse.Write("<script>location = 'obrigado.asp';alert('Formulário enviado com Sucesso!')</script>")%> ps: lembrei de remover " %>" no exemplo que você postou...!Resultado:Microsoft VBScript compilation error '800a03f6'Expected 'End'/envia_form_buscadores.asp, line 209

shumi · Fevereiro 22, 2007

ahhh sim!

desculpe-me!

if Session("pagamento")= a thenstrBody = strBody & Response.Write("Boleto é enviado em 24h")else if Session("pagamento")= b thenstrBody = strBody & Response.Write( "Ag: 0736 CC: 993734-1 Titular: Fulano da silva ")else if Session("pagamento")= c thenstrBody = strBody & Response.Write("Ag: 1787-6 CC: 29577-9 Titular: Fulano da silva")	  else if Session("pagamento")= d thenstrBody = strBody & Response.Write("Ag: xxxx-6 CC: xxxx-9 Titular: Fulano da silva")ElsestrBody = strBody & Response.Write("Teste shumi")end ifend ifend ifend if

Abraços

hardbrasil · Fevereiro 22, 2007

Shumi que tristeza.

com os end if no final ele funciona porem o email chegou mas não escreveu.

acho que o problema esta no comparativo da Session. vou mudar para querystring e tentar trazelo como <input hidden>

desculpe te incomodar é a ultima tentativa.

estou o carnaval inteiro para fazer isso funcionar.

Muito Obrigado

shumi · Fevereiro 22, 2007

ele escreveu o que?Teste shumi???posta pra mim seu script pra eu dar uma olhada!Abraços

hardbrasil · Fevereiro 22, 2007

'------------------------------------------------------'Inicio Enviar formulario cadastramento de buscadores'------------------------------------------------------'<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "mail.next4.com.br" .update End With  Set cdoMessage = CreateObject("CDO.Message") Dim strBody  strBody = "<html>"strBody = strBody & "<style type=""text/css"">" strBody = strBody & ".tahoma_cinza_11 {font-family: tahoma;font-size: 11px;font-weight: normal; text-transform: none; color: #333333;}"strBody = strBody & ".texto2 {font-family: Verdana; font-size: 11px; font-weight: normal; text-transform: none; color: #969696; }" & VbcrlfstrBody = strBody & ".textoForm {font-family: Verdana; font-size: 10px; font-weight: normal; text-transform: none; color: #DED8CF; text-align: left; }" & VbcrlfstrBody = strBody & ".texto2VerdeBold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; text-transform: none; color: #8dc849; text-align: left; word-spacing:0.05em; letter-spacing: normal; text-indent: 0px; }" & VbcrlfstrBody = strBody & ".titulo3 {	font-family: Georgia; font-size: 1.1em; font-weight: normal; text-transform: none; color: #84cf00; text-align: left;}" & VbcrlfstrBody = strBody & ".box2 {width:453px; padding:8px; border:##EFEFEF 1px solid;text-align:left;}" & VbcrlfstrBody = strBody & ".pontH { BACKGROUND-IMAGE: url(http://www.next4.com.br/images/pontH.gif); BACKGROUND-REPEAT: repeat-x}" & VbcrlfstrBody = strBody & "</style></head><body style=text-align:left> <div class=box2>" & Vbcrlf'------------------------------------------------------'Cadastro do cliente'------------------------------------------------------'strBody = strBody & "<span class=texto2VerdeBold >:: Cadastro do cliente </span> <br />" & VbcrlfstrBody = strBody & "<table width=100% border=0 cellspacing=0 cellpadding=0>		  <tr>		  <td class=pontH>  </td>   </tr> </table> " & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Nome:</span><span class=texto2> "& Request.Form("responsavel") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11> CPF / CNPJ:</span> <span class=texto2> " & Request.Form("cpf_cnpj") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>E-mail:</span> <span class=texto2> "& Request.Form("email") & "</span><br>"  & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Telefone:</span> <span class=texto2>" & Request.Form("tel") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Endereço:</span> <span class=texto2> " & Request.Form("endereco") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Cep:</span> <span class=texto2>" & Request.Form("cep") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Cidade:</span><span class=texto2> " & Request.Form("cidade") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Estado:</span> <span class=texto2> " & Request.Form("estado") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Mensagem:</span> <span class=texto2> " & Replace(Request.Form("msg"), chr(10) ,"<br>") & "</span><br /><br /><br />" & Vbcrlf'------------------------------------------------------'Dados do site'------------------------------------------------------'strBody = strBody & "<span class=texto2VerdeBold>:: Dados do site <br /> " & VbcrlfstrBody = strBody & "<table width=100% border=0 cellspacing=0 cellpadding=0>		  <tr>		  <td class=pontH>  </td>   </tr> </table> " & VbcrlfstrBody = strBody & "<strong class=tahoma_cinza_11>Url: </strong> <span class=texto2> " & Request.Form("url") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11> Título do site:</span><span class=texto2> " & Request.Form("titulo_site") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Descrição:</span> <span class=texto2> " & Request.Form("msg") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Público alvo:</span> <span class=texto2> " & Request.Form("publico_alvo") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11Palavras chave:</span> <span class=texto2> " & Request.Form("palavras_chave") & "</span><br>" & VbcrlfstrBody = strBody & "<span class=tahoma_cinza_11>Categoria:</span> <span class=texto2> " & Request.Form("categoria") & "</span><br><br>" & Vbcrlf'------------------------------------------------------''Serviço escolhido''------------------------------------------------------'strBody = strBody & "<br /><br /> <span class=texto2VerdeBold > :: Serviço  <br />  </span> " & VbcrlfstrBody = strBody & "<table width=100% border=0 cellspacing=0 cellpadding=0>		  <tr>		  <td class=pontH>  </td>   </tr> </table> " & VbcrlfstrBody = strBody &	"<span class=tahoma_cinza_11>" & Session ("plano_cadastra") & "</span>" & Vbcrlf'------------------------------------------------------''Metodo do Pagamento''------------------------------------------------------'strBody = strBody & "<br /><br /> <span class=texto2VerdeBold > :: Opção de pagamento  <br />  </span> " & VbcrlfstrBody = strBody & "<table width=100% border=0 cellspacing=0 cellpadding=0>		  <tr>		  <td class=pontH>  </td>   </tr> </table> " & VbcrlfstrBody = strBody &	"<span class=tahoma_cinza_11>" & Session ("pagamento") & "</span> <br /> <br />" & Vbcrlfif Session("pagamento")= a thenstrBody = strBody & Response.Write("Boleto é enviado em 24h")else if Session("pagamento")= b thenstrBody = strBody & Response.Write( "Ag: 0736 CC: 993734-1 Titular: Fulano da silva ")else if Session("pagamento")= c thenstrBody = strBody & Response.Write("Ag: 1787-6 CC: 29577-9 Titular: Fulano da silva")	  else Session("pagamento")= d thenstrBody = strBody & Response.Write("Ag: xxxx-6 CC: xxxx-9 Titular: Fulano da silva")end ifstrBody = strBody & "<span class=tahoma_cinza_11>Após o pagamento:</span> <span class=texto2> Por favor, <a href=""http://www.next4.com.br/comprovante_deposito.asp"">acesse aqui</a> para confirmar o pagamento. O crédito pode demorar até 3 dias úteis para compensar. Obrigado.</span><br /> <br /> <br />" & VbcrlfstrBody = strBody & "</div></body></html><br /> <br /> "strBody = strBody & "<table width=100% border=0 cellspacing=0 cellpadding=0>		  <tr>		  <td class=pontH> <span class=textoForm>  Next4 ® Termos & Condições e Política de Privacidade   </span> </td>   </tr> </table> " & Vbcrlf With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("email") .To = "next4@next4.com.br" .Subject = "[ Cadastro buscadores ]"  .HTMLBody = strBody .Send End With  Set cdoMessage = Nothing Set cdoConfig = Nothing '-------------------------------------------'' Inicio da Auto Resposta ao Cliente''-------------------------------------------' Dim objCDOSet objCDO = Server.CreateObject("CDO.Message")Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")' Servidor SMTP de Saída'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.next4.com.br"objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields.UpdateSet objCDO.Configuration = objCDOSYSConobjCDO.To = Request.Form("email")objCDO.From = "next4@next4.com.br"objCDO.Subject = "Confirmação de cadastro Next4"' Mensagem no formato HTML'Corpo = "<html>" Corpo = Corpo 	& "<style type=""text/css""> "Corpo = Corpo 	& ".tahoma_cinza_11 {font-family: tahoma;font-size: 11px;font-weight: normal; text-transform: none; color: #333333;}"Corpo = Corpo & ".textoAgradece {font-family: Verdana; font-size: 14px; font-weight: normal; text-transform: none; color: #AAAAAA; line-height: 135%; word-spacing: 0.05em;}" & VbcrlfCorpo = Corpo & ".pontH { BACKGROUND-IMAGE: url(http://www.next4.com.br/images/pontH.gif); BACKGROUND-REPEAT: repeat-x}" & VbcrlfCorpo = Corpo & ".textoForm {font-family: Verdana; font-size: 10px; font-weight: normal; text-transform: none; color: #DED8CF; text-align: left; }" & VbcrlfCorpo = Corpo & ".texto2VerdeBold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; text-transform: none; color: #8dc849; text-align: left; word-spacing:0.05em; letter-spacing: normal; text-indent: 0px; }" & VbcrlfCorpo = Corpo 	& ".box {width:470px; padding:8px; border:#CCCCCC 1px solid;text-align:left;}"Corpo = Corpo 	& ".box2 {width:470px; padding:8px; border:#969696; background-color:#FBFBFB;  1px solid;text-align:left;}"Corpo = Corpo 	& ".tituloAgradecimento {width:470px; padding:8px; border:#CCCCCC 1px solid;}"Corpo = Corpo & ".titulo3 {	font-family: Georgia; font-size: 1.1em; font-weight: normal; text-transform: none; color: #84cf00; text-align: left;}" & VbcrlfCorpo = Corpo 	& "</style></head><body>"'-------------------------------------------' Texto de agradecimento'-------------------------------------------'Corpo = Corpo 	& " <div class=texto2VerdeBold style=text-align:left> Agradecimento:</div>"Corpo = Corpo 	& "<div class=box> <span class=textoAgradece> Obrigado por escolher a Next4. Por favor, aguarde nosso contato para finalizar a contratação do serviço após a realização do pagamento. <br /><br /> </span>"Corpo = Corpo 	& "<span class=textoAgradece> Este é um email automático. Caso queira entrar em contato utilize o email: <a href=""mailto:contato@next4.com.br"">contato@next4.com.br</a> ou ligue 11 3441-6565 .</span> <br /><br /> "Corpo = Corpo 	& "<span class=textoAgradece> Nosso horário de atendimento é de segunda a sexta das 10:00 as 18:00 </span><br /><br /><br />"& VbcrlfCorpo = Corpo 	& "<strong class=textoAgradece> Felipe Alencar </strong> <br />" & VbcrlfCorpo = Corpo 	& "<span class=textoForm>Adm projetos web </span><br /> <br />  <br />" & VbcrlfCorpo = Corpo & strBodyCorpo = Corpo 	& "</div> </body></html>"objCDO.HTMLBody = Corpo objCDO.SendSet objCDO = NothingSet objCDOSYSCon = NothingResponse.Write("<script>location = 'obrigado.asp';alert('Formulário enviado com Sucesso!')</script>")%>

hardbrasil · Fevereiro 22, 2007

ele escreveu o que?Teste shumi???posta pra mim seu script pra eu dar uma olhada!Abraços

desculpe, eu não sabia que era para teste eu não inseri o write shumi.Olha vou tentar com <input hidden> para depois fazer a comparação.você quer o cod do formulario?

shumi · Fevereiro 22, 2007

sem isso:

if Session("pagamento")= a thenstrBody = strBody & Response.Write("Boleto é enviado em 24h")else if Session("pagamento")= b thenstrBody = strBody & Response.Write( "Ag: 0736 CC: 993734-1 Titular: Fulano da silva ")else if Session("pagamento")= c thenstrBody = strBody & Response.Write("Ag: 1787-6 CC: 29577-9 Titular: Fulano da silva")	  else if Session("pagamento")= d thenstrBody = strBody & Response.Write("Ag: xxxx-6 CC: xxxx-9 Titular: Fulano da silva")ElsestrBody = strBody & Response.Write("Teste shumi")end ifend ifend ifend if

funciona?

Abraços

hardbrasil · Fevereiro 22, 2007

Shumi, não funciona. não escreve nada. nem o seu nome.

as letras a, b, c, estão assim na pagina 1.

<select name="pagamento" id="pagamento" >					<option id="a">Boleto bancário</option>					<option id="b">Depósito Bradesco</option>			<option id="c">Depósito Real</option>					<option id="d">Depósito Itaú</option>				  </select>

hardbrasil · Fevereiro 22, 2007

Shumi. quero agradecer sua atenção.

consegui resolver. Mudei algumas coisas no script la nas paginas anteriores, e fiz um request.form puxando do value o Banco correspondente.

Muito obrigado. estou suando mesmo... aqui deve estar uns 35c. mais um pouco de stress. rs

cara se quiser o form funcionando, ficou bem legal.

manda um email pra mim. As vezes a gente fecha uns trabalhos em parceria, qq coisa: felipe@next4.com.br abs

shumi · Fevereiro 23, 2007

Legal cara Parabéns!!!!Qualquer coisa estamos ai!!!Abraços

Arquivado

Formulario com um comparativo de strings

Recommended Posts

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hardbrasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante