<% conectar() cont=0 Sql="SELECT codgen_pas, nom_par, apep_par, apem_par, email1_par FROM inscritos2007 " Sql= Sql & " WHERE codgen_pas='"&request.QueryString("codigo")&"' and inscrito=1 " rs.Open Sql, Conn do while not rs.eof email1_par=rs("email1_par") nom_par=rs("nom_par") ape_par=rs("apep_par") & " " & rs("apem_par") codgen_pas=rs("codgen_pas") cont=cont+1 rs.movenext loop rs.close if (cont=1) then 'creo el objeto correo set mail = server.createObject("Persits.MailSender") 'configuro el mensaje 'señalo el servidor de salida para enviar el correo mail.host = "mail.perumail.info" 'indico la dirección de correo del remitente mail.from = "cpem@aspefam.org.pe" 'indico el asunto Mail.Subject = "CONFIRMACION DE INSCRIPCION - II CPEM" 'indico la dirección del destinatario del mensaje mail.addAddress "luisptmon@hotmail.com" 'mail.addAddress "luisptmon@hotmail.com" 'indico el cuerpo del mensaje cuerpo="
" cuerpo=cuerpo & "

" cuerpo=cuerpo & "
" cuerpo=cuerpo & "" cuerpo=cuerpo & "CONFIRMACION DE INSCRIPCION" cuerpo=cuerpo & "

" cuerpo=cuerpo & "" cuerpo=cuerpo & "
 " cuerpo=cuerpo & "

Sr(a). " cuerpo=cuerpo & "" & nom_par & " " & ape_par &"

" cuerpo=cuerpo & "

Reciba " cuerpo=cuerpo & "el cordial saludo de la Comisión Organizadora del II " cuerpo=cuerpo & "Congreso Peruano de Educación Médica, este " cuerpo=cuerpo & "correo es para confirmar su inscripción como participante, " cuerpo=cuerpo & "esperando cubrir sus expectativas, estaremos enviándole información " cuerpo=cuerpo & "y material, antes y después del evento.

" cuerpo=cuerpo & "

Los " cuerpo=cuerpo & "datos consignados en su inscripción será utilizados " cuerpo=cuerpo & "para la elaboración de certificados o constancias.

" cuerpo=cuerpo & "

" cuerpo=cuerpo & "- Código de Inscripción : "& codgen_pas &"" cuerpo=cuerpo & "

" cuerpo=cuerpo & "

Para " cuerpo=cuerpo & "mayor información visite: " cuerpo=cuerpo & "www.aspefam.org.pe/cpem2007/
" cuerpo=cuerpo & "Para las consultas en caso de dudas escribanos a: cpem@aspefam.org.pe" cuerpo=cuerpo & "


Atentamente:

" cuerpo=cuerpo & "

Comisión Organizadora" cuerpo=cuerpo & "
II Congreso de Educación Médica
" cuerpo=cuerpo & "

" mail.body = cuerpo 'Mail.Subject = "Sales Receipt" Mail.IsHTML = True 'lo envio 'aseguro que no se presenten errores en la página si se producen On Error Resume Next mail.send if Err ><0 then response.write "Error, no se ha podido completar la operación" else response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if %> VERIFICACION




Registro completado
volver
<% else response.Write("no se envio el correo porque no se encontro al participante") end if%>