[Resolvido] Redirecionamento de formulário de contato

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"

%>