<%
Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
actividad = Request("actividad")
direccion = Request("direccion")
codigo postal = Request("cp")
ciudad = Request("ciudad")
provincia = Request("provincia")
comenario = Request("comentario")
Set Mail = Server.CreateObject("Persits.MailSender")
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Nombre: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Empresa: "
strBody = strBody & "<b>" & empresa & "</b><br><br>"
strBody = strBody & "Actividad: "
strBody = strBody & "<b>" & actividad & "</b><br><br>"
strBody = strBody & "Direccion: "
strBody = strBody & "<b>" & direccion & "</b><br><br>"
strBody = strBody & "CP: "
strBody = strBody & "<b>" & cp & "</b><br><br>"
strBody = strBody & "Ciudad: "
strBody = strBody & "<b>" & ciudad & "</b><br><br>"
strBody = strBody & "Provincia: "
strBody = strBody & "<b>" & provincia & "</b><br><br>"
strBody = strBody & "email: "
strBody = strBody & "<b>" & email & "</b><br><hr><br>"
strBody = strBody & "Comentario: <br>"
strBody = strBody & comentario & chr(10)
strBody = strBody & "</font>"
Mail.Host = "correoms.acens.net"
Mail.From = "
[email protected]"
Mail.Subject = "Formulario de Solicitud de Información"
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress = "
[email protected]"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
Set Mail = Nothing
%>