Función en ASP 2, para envío de correo SIN AUTENTICACIÓN, 

En esta ocasión les comparto una función en ASP que utiliza un componente de Persits, lo pueden descargar directo de su pagina web, sin embargo el componente es comercial, pero nos permite el envío de correo sin problema siempre y cuando no requiera autenticación, así que se vuelve en el componente ideal toda vez que se trate de estas mismas circunstancias,

nota: el componente realmente trabaja también con autenticación, solamente que para que funcione con atenticación en el servidor requiere la versión con licencia

<%
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

dim comentarios,fecha,rating
comentarios=Request.QueryString("com")
destino=Request.QueryString("des")
origen=Request.QueryString("ori")
registro=Request.QueryString("reg")
subject = Request.QueryString("sub")
copia = request.QueryString("cc")

set mail = server.createObject("Persits.MailSender")
mail.Host = "smtp.gmail.com"

'Mail.Username = “micorreo@midominio.com”
'Mail.Password = "mipassword"
Mail.Port = 587

mail.from = origen
'mail.html = true

mail.addAddress destino
mail.body = comentarios&" "
mail.subject = subject
'Si requiere colocar copia del mensaje
'Mail.AddCC copia
'Mail.AddBcc  “micopia@otrodominio.com”

On Error Resume Next
  mail.send
  if Err <>0 then
    response.write "Error, no se ha podido enviar, "
    response.write Err.Number & ", "
    response.write Err.Description & ", "
    response.write Err.Source & ", "
  else
    response.write ";)"
  end if
%>

Esta función se puede mandar llamar de este modo:

http://../sendMail.asp?com=’Mensaje’&des=correo1@dominio.com&ori=correo2@dominio.com&sub=’TituloDelCorreo’