<% titulo=request.form("titulo") autor=request.form("autor") aux1=request.form("aux1") ano=request.form("ano") aux2=request.form("aux2") aux3=request.form("aux3") aux4=request.form("aux4") aux5=request.form("aux5") pinicial=request.form("pinicial") pfinal=request.form("pfinal") issn=request.form("issn") nombre=request.form("nombre") puesto=request.form("puesto") depto=request.form("depto") correo=request.form("correo") tel=request.form("tel") ext=request.form("ext") cuerpo="Titulo:"&titulo&"
" cuerpo=cuerpo &"Autor:"&autor&"
" cuerpo=cuerpo &"Titulo de la publicación: "&aux1&"
" cuerpo=cuerpo &"Año de la publicación: "&ano&"
" cuerpo=cuerpo &"Mes de la publicación: "&aux2&"
" cuerpo=cuerpo &"Estación: "&aux3&"
" cuerpo=cuerpo &"Volumen: "&aux4&"
" cuerpo=cuerpo &"Número: "&aux5&"
" cuerpo=cuerpo &"Página inicial: "&pinicial&"
" cuerpo=cuerpo &"Página Final: "&pfinal&"
" cuerpo=cuerpo &"ISSN "&issn&"
" cuerpo=cuerpo &"Nombre del Solicitante: "&nombre&"
" cuerpo=cuerpo &"Puesto: "&puesto&"
" cuerpo=cuerpo &"Departamento: "&departamento&"
" cuerpo=cuerpo &"Teléfono: "&tel&"
" cuerpo=cuerpo &"Extensión: "&ext&"
" Dim eMail fro="interbib@cicese.mx" des="interbib@cicese.mx" sAsunto="Solicitud de articulo" set eMail=Server.CreateObject("CDONTS.NewMail") 'Establecemos las propiedades del objeto eMail.From = fro eMail.To = des eMail.Subject = sAsunto eMail.Body = cuerpo eMail.BodyFormat=0 eMail.MailFormat=0 eMail.Importance = 2 ' Enviamos el email! eMail.Send set eMail = nothing response.Redirect("envio.html") %>