Envíenos
sus datos a través de este formulario. Nosotros lo atenderemos cuanto
antes.
<%
If request("submit")="Enviar" Then
'Crea objecto de correo
Dim correo
Set correo = Server.CreateObject("CDONTS.NewMail")
correo.To = "gespamag@punto.net.ec"
correo.Cc = "mariaelena@creativeworks.com.ec"
correo.From = Request("email")
correo.Importance = 2
correo.BodyFormat = 0
correo.MailFormat = 0
correo.subject = "Formulario Brito & Pinto"
correo.body = "" + "Nombre: " + Request("nombre") + "
" &_
+ "Apellido: " + Request("apellido") + "
" &_
+ "Empresa: " + Request("empresa") + "
" &_
+ "Pasaje aereo: " + Request("pasajeaereo") + "
" &_
+ "Hotel: " + Request("hotel") + "
" &_
+ "Alquiler de Auto: " + Request("alquilerauto") + "
" &_
+ "Tour: " + Request("tour") + "
" &_
+ "Otro: " + Request("otro") + "
" &_
+ "Destino: " + Request("destinos") + "
" &_
+ "Fechas Tentativas: " + Request("fechastentativas") + "
" &_
+ "Fechas Definitivas: " + Request("fechasdefinitivas") + "
" &_
+ "Cosideraciones Específicas: " + Request("consideracionesespecificas") + "
" &_
+ "Liliana escobar: " + Request("lilianaescobar") + "
" &_
+ "Andrea Alvarez: " + Request("andreaalvarez") + "
" &_
+ "Carla Albuja: " + Request("carlaalbuja") + "
" &_
+ "Carla Iñiguez: " + Request("carlkainiguez") + "
" &_
+ "Maria Belen Borja: " + Request("mariabelenborja") + "
" &_
+ ""
correo.Send
'Libera Memoria
Set correo = nothing
End if
%>