%
if Request.QueryString("ok")="ok" then
nombre=Request.Form("name")
mail=request.Form("correo")
empresa=request.Form("empresa")
telefono=request.Form("telefono")
comentario=request.Form("comentario")
pais=request.Form("pais")
ciudad=request.Form("ciudad")
fecha=Date()
sbody="Consulta de un cliente en Expoconsult:
Nombre: "&nombre&"
Email: "&mail&"
Telefono: "&telefono&"
Empresa: "&empresa&"
Pais: "&pais&"
Ciudad: "&ciudad&"
Consulta/Comentario: "&comentario&"
enviado el "&fecha
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.Port = 25
Mail.Username = "de@de.com"
Mail.Password = "password"
Mail.IsHTML = True
Mail.AddAddress "to@to.com"
Mail.From = "de@de.com"
Mail.FromName = "Cliente Expoconsult"
Mail.Subject = "Consulta Ingresada de" &nombre
Mail.Body = sbody
Mail.Send
Set Mail = Nothing
Response.Redirect("enviado.asp")
end if
%>
![]() |
Rivadavia 57 Piso 2. Oficina “R”
(X5000IPA) Cordoba TEL/FAX: (0351) 4245457
info@expoconsult.com.ar |
|
Asesoramiento en comercio exterior y Aduana para proyectos de Plantas de BioDiesel.
|
©2008 Córdoba - Argentina |