<% Option Explicit
' Declaramos las variables
Dim cuerpo, MailObject
' Creamos el CDO
Set MailObject =CreateObject("CDO.Message")
' Configuramos el email
MailObject.To = "soporte@samer.org.ar"
MailObject.From = Request.Form("mail")
MailObject.Subject = "CLAVE SOCIO SAMER biblioteca"
cuerpo = cuerpo & "Enviar clave al socio:
"
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 ("enviadook_clave.asp")
%>