<%
if(Request.Form.Count <> 0) Then
if(Request.Form("Nombre") <> "" and Request.Form("Empresa") <> "" and _
Request.Form("Email") <> "" and Request.Form("Mensaje") <> "" and _
Request.Form("Direccion") <> "" and Request.Form("Telefono") <> "") Then
set nombre = Request.Form("Nombre")
set empresa = Request.Form("Empresa")
set direccion = Request.Form("Direccion")
set telefono = Request.Form("Telefono")
set direccionmail = Request.Form("Email")
set mensaje = Request.Form("Mensaje")
set mail = server.createObject("Persits.MailSender")
mail.host = "localhost"
mail.from = "info@apxer.com.ar"
mail.addAddress "info@apxer.com.ar"
mail.Subject = "Contacto Apxer"
mail.IsHTML = true
mail.body = "nombre: " & nombre _
& "
empresa: " & empresa _
& "
direccion: " & direccion _
& "
telefono: " & telefono _
& "
mail: " & direccionmail _
& "
mensaje: " & mensaje
mail.send
Response.Redirect("gracias.htm")
end if
end if
%>
