[Resolvido] Redirecionamento de formulário de contato

[flneves 0]

Senhores,

 

A pergunta de hoje é simples:

 

Tenho um formulário de contato que envia as informações para o email,e redireciona a página para uma resposta em html, como altero o código (QUE ESTÁ CORRETO ABAIXO) para uma outra página personalizada do site?

 

A dúvida está em como alterar a mensagem de resposta para um link do site???

 

Obrigado.

 

Código:

 

<%


Dim Assunto
Dim Nome
Dim Email
Dim Cidade
Dim Estado
Dim Mensagem
Dim MsgResposta
Dim MsgFormulario

Assunto = Request.Form("assunto")
Nome = Request.Form("nome")
Email = Request.Form ("email")
Cidade = Request.Form("cidade")
Estado = Request.Form("estado")
Mensagem = Request.Form("mensagem") 

'=====================================
'Mensagem a ser enviada
'=====================================	
MsgFormulario = "Nome: " & Nome & "<br>" &_
			 "Email: " & Email & "<br>" &_
			 "Mensagem:<br>" & Mensagem & "<br>" &_
			 "Assunto: " & Assunto & "<br>" &_
			 "Cidade: " & Cidade & "<br>" &_
			 "Estado: " & Estado   


'=====================================
'Mensagem de Resposta
'=====================================	
MsgResposta = "Prezado(a) "& Nome & ",<br><br>" &_
			"Agradecemos seu contato.<br><br>" &_
			"Em breve retornaremos, ou se preferir entre em contato através do SKYPE: email.com.br<br><br>" &_
			"Obrigado!<br><br>" 



'=====================================
'Efetua o envio do E-mail com para o
'Administrador do Website
'=====================================
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")			
objCDOMail.From = "<" & Email & ">"		
objCDOMail.To = "<email.com.br>"
objCDOMail.Subject = "Formulário de Contato"
objCDOMail.Body = MsgFormulario
objCDOMail.BodyFormat = 0	'(0=HTML 1=Text)
objCDOMail.MailFormat = 0	'(0=MIME 1=Text)
objCDOMail.Importance = 1	'(0=Low, 1=Normal, 2=High)		
objCDOMail.Send				

Set objCDOMail = Nothing


'=====================================
'Efetua o envio do E-mail de
'confirmação para o Usuário
'=====================================
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")			
objCDOMail.From = "<email.com.br>"
objCDOMail.To = "<" & Email & ">"		
objCDOMail.Subject = "Atendimento automático - eu eu"
objCDOMail.Body = MsgResposta
objCDOMail.BodyFormat = 0	'(0=HTML 1=Text)
objCDOMail.MailFormat = 0	'(0=MIME 1=Text)
objCDOMail.Importance = 1	'(0=Low, 1=Normal, 2=High)		
objCDOMail.Send				

Set objCDOMail = Nothing


Response.Write "Sua mensagem foi enviada para nosso atendimento com sucesso!<br><br>Em breve entraremos em contato"

%>

[Mário Monteiro 179]

Voce diz tirar isso

 

Sua mensagem foi enviada para nosso atendimento com sucesso!<br><br>Em breve entraremos em contato

 

??

[flneves 0]

Mário,

 

Não é tirar a linha de agradecimento. Quero que ao invés de abrir uma página desconfigurada com as informações abaixo, seja redirecionada para uma pagina do site.

 

Quero substituir o código abaixo para um redirecionamento!

'=====================================

'Mensagem de Resposta

'=====================================

MsgResposta = "Prezado(a) "& Nome & ",<br><br>" &_

"Agradecemos seu contato.<br><br>" &_

"Em breve retornaremos, ou se preferir entre em contato através do SKYPE: email.com.br<br><br>" &_

"Obrigado!<br><br>"

[xanburzum 169]

para redirecionar coloque abaixo do

Response.Write "Sua mensagem foi enviada para nosso atendimento com sucesso!<br><br>Em breve entraremos em contato"

insere este

 

response.redirect("contatocli_form.asp")

[Mário Monteiro 179]

Então basta fazer o que o xanburzum sugeriu redirecionando

[flneves 0]

Obrigado está resolvido!