Ya lo he corregido:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.miservidor.com"
' el servidor SMTP que envía
Mail.From = "
[email protected]"
' remitente del mensaje
Mail.FromName = "Yo"
' Nombre del remitente
Mail.AddAddress "
[email protected]"
' necesario para el envio = remitente
Mail.Subject = "Datos enviados"
'asunto
'cuerpo:
Mail.Body = "<html><body>Codigo: " & codigo & "Nombre: " & nombre & "Apellidos: " & apellidos & "</body></html>"
Mail.IsHTML = True
On Error Resume Next
Mail.Sendtoqueue
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<br><center><h3>El mensaje ha sido mandado con éxito</h3></center><hr>
<p align="center"><font color="#FF9900" size="5"><a href="index.htm">PÁGINA PRINCIPAL</a></font></p>
Gracias al servicio soporte de ARSYS, que en dos minutos me han subido un asp corregido y bien descrito.
