<% Option Explicit
' Declaramos las variables
Dim cuerpo, MailObject
' Creamos el CDO
Set MailObject =CreateObject("CDO.Message")
' Configuramos el email
MailObject.To = "bibliotecavirtual@samer.org.ar, cdiaz@nacemultimedial.com.ar"
MailObject.From = Request.Form("mail")
MailObject.Subject = "Consulta desde Biblioteca Virtual SAMeR"
cuerpo = cuerpo & "Datos del mensaje:
"
cuerpo = cuerpo & "Nombre y apellido: " & Request.Form("nombre") & "
"
cuerpo = cuerpo & "Comentario: " & Request.Form("comentario") & "
"
cuerpo = cuerpo & "E-mail: " & Request.Form("mail") & "
"
cuerpo = cuerpo & "E-mail: " & Request.Form("mail") & "
"
cuerpo = cuerpo & "---------------------------------------------------
"
MailObject.HTMLBody = Cuerpo
' Enviamos el mensaje
MailObject.Send
' Destruimos el CDO
Set MailObject =Nothing
response.redirect ("gracias.asp")
%>