y estos son las variables que me autoriza el proveedor para el asp
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#666666'>"
strBody = strBody & "<b>Nombre: </b>"
strBody = strBody & Nombre & "<br>"
strBody = strBody & "<b>Ciudad: </b>"
strBody = strBody & Ciudad & "<br>"
strBody = strBody & "<b>Provincia: </b>"
strBody = strBody & Provincia & "<br>"
strBody = strBody & "<b>Email: </b>"
strBody = strBody & Correo & "<br>"
strBody = strBody & "<b>Comentario: </b><br><br>"
strBody = strBody & Consulta & chr(10)
strBody = strBody & "</font>"
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
'Mail.From = "
[email protected]"
Mail.FromName = Nombre ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " '& Err.Description
Else
Response.Redirect "gracias.asp"
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>