Ir para conteúdo

POWERED BY:

Arquivado

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

williamot

Redirecionando a página

Recommended Posts

Gente eu fiz um form com envio pelo CDOSYSMAIL

 

Ele funcionou e tals..

só q quero q quando ele enviar o e-mail redirecione para a pagina q eu fiz personalizada de confirmação como faço ??

 

o codigo é esse:

 

<% 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.centralcenter.com.br" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = request.Form("email") 'e-mail do destinatário objCDOSYSMail.To = "contato@wmsdesign.com.br" 'assunto da mensagem objCDOSYSMail.Subject = "SAC - Central Center" 'conteúdo da mensagem strBody = "Dados" & vbCrLf & vbCrLf & _ "Nome: "& Request("email") & vbCrLf & _ "E-Mail: "& Request("email") & vbCrLf & _ "Assunto: "& Request("assunto") & vbCrLf & _ "Mensagem: "& Request("mensagem") strBody = strBody & "." objCDOSYSMail.TextBody = strBody 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = strBody 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write ("Email Enviado com Sucesso")  %>

no lugar do response write quero colocar a pagina q tem q aparece quando for enviado o e-mail..

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ao invés disso:

response.write ("Email Enviado com Sucesso")

Use:

Response.Redirect "sua_pagina?param1=&param2="response.end

Jothaz

Compartilhar este post


Link para o post
Compartilhar em outros sites

mas jothaz.. pq você colocou parametros no redirecionamento?

 

pode ser sem parametros...

 

Response.Redirect "obrigado.asp"

Compartilhar este post


Link para o post
Compartilhar em outros sites

mas jothaz.. pq você colocou parametros no redirecionamento?pode ser sem parametros...

Response.Redirect "obrigado.asp"
Claro que você pode colocar somente a página para o redirect. Só fiz um exemplo completo para caso de passar parâmetros para a página chamada. Jothaz

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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