Las tres observaciones condensadas:
Cita: Dim asunto
if Request.form("urgente")="Yes" Then
asunto = "URGENT !!!"
End If
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Mensaje Online"
Mailer.FromAddress= "
[email protected]" 'Correo del remitente
Mailer.RemoteHost = "mail.servidor.com"
Mailer.AddRecipient "", "
[email protected]"
Mailer.Subject = "Mensaje Online " & asunto
Mailer.ContentType="text/html"