<% set mail = server.createObject("Persits.MailSender") strHost = "smtp.samer.org.ar" mail.host = strHost mail.from = "bibliotecavirtual@samer.org.ar" mail.addAddress "bibliotecavirtual@samer.org.ar" mail.Username = "bibliotecavirtual@samer.org.ar" mail.Password = "biblio123456" mail.TLS = True mail.Port = 25 nombre = request.form("nombre") email = request.form("email") cuerpo = "Formulario recibido" & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "

Datos del mensaje:
" & VBNEWLINE cuerpo = cuerpo & "Nombre y apellido: " & nombre & VBNEWLINE cuerpo = cuerpo & "Email: " & email cuerpo = cuerpo & "

_____________________________________________________
" & VBNEWLINE cuerpo = cuerpo & "

Datos del articulo solicitado:
" & VBNEWLINE cuerpo = cuerpo & "Revista:: " & nombre_revista & VBNEWLINE cuerpo = cuerpo & "Título del artículo: " & titulo_articulo & VBNEWLINE cuerpo = cuerpo & "Autores: " & autores_articulo & VBNEWLINE cuerpo = cuerpo & "Año: " & anio_revista & VBNEWLINE cuerpo = cuerpo & "Volumen: " & volumen & VBNEWLINE cuerpo = cuerpo & "Mes: " & mes_revista & VBNEWLINE cuerpo = cuerpo & "Paginas: " & p & VBNEWLINE cuerpo = cuerpo & "

_____________________________________________________
" & VBNEWLINE cuerpo = cuerpo & "Comentario: " & comentario & VBNEWLINE Mail.Subject = "Pedido de articulo desde Biblioteca Virtual SAMeR" mail.body = cuerpo On Error Resume Next mail.send if Err ><0 then response.write "Error, no se ha podido completar la operación" else response.redirect ("gracias_in.asp") end if %>