<% 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 = "SOBRE DE LA PRESENTACION DE TRABAJOS CIENTIFICOS - 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&"TRABAJOS CIENTIFICOS APROBADOS" cuerpo=cuerpo&"
" cuerpo=cuerpo&"" cuerpo=cuerpo&"
" cuerpo=cuerpo&" " cuerpo=cuerpo&"

Saludos Cordiales Dr(a):" cuerpo=cuerpo&""& nom_par & " " & ape_par &"

" cuerpo=cuerpo&"

" cuerpo=cuerpo&"El presente correo es para reiterarles nuestros saludos y confirmarles " cuerpo=cuerpo&"la presentación de el(los) trabajo(s) en la modalidad de poster:" cuerpo=cuerpo&"

" cuerpo=cuerpo&"
    " Sql1= "SELECT titulo FROM trabajos WHERE codpar='"&codgen_pas&"' and valido=1 ORDER BY titulo" rs1.Open Sql1, Conn do while not rs1.eof cuerpo=cuerpo&"
  1. "&rs1("titulo")&"
  2. " rs1.movenext loop rs1.close 'sSQL= "UPDATE inscritos2007 SET comunicado=2 WHERE codgen_pas='"&codgen_pas&"'" 'rs1 = Conn.Execute(sSQL) cuerpo=cuerpo&"
" cuerpo=cuerpo&"
" cuerpo=cuerpo&"

Las características " cuerpo=cuerpo&"que debe tomar en cuenta son las siguientes:

" cuerpo=cuerpo&"
    " cuerpo=cuerpo&"
  • Los trabajos aceptados deben ser presentados en posters.
  • " cuerpo=cuerpo&"
  • Usted dispondrá de un panel acrílico proporcionado por la Asociación Peruana de " cuerpo=cuerpo&"Facultades de Medicina. La medida a utilizarse de cada panel es de 93 cm. de " cuerpo=cuerpo&"ancho x 232 cm. de altura.
  • " cuerpo=cuerpo&"
  • El poster deberán colocarse con cinta double face (3M), que no daña el " cuerpo=cuerpo&"panel ni el poster. No podrán usarse clavos ni pintura.
  • " cuerpo=cuerpo&"
  • EL poster deberán ser colocados antes de las 3:00 p.m. del 5 de diciembre " cuerpo=cuerpo&"y retirados a las 02:00 p.m. del 8 de diciembre.
  • " cuerpo=cuerpo&"
  • Los autores o coautores deberán estar presentes obligatoriamente el 8 de " cuerpo=cuerpo&"diciembre de 10:00 a 10:50 a.m.
" cuerpo=cuerpo&"

" cuerpo=cuerpo&"Gracias por su valioso aporte

" cuerpo=cuerpo&"

" cuerpo=cuerpo&"Comité Científico
" cuerpo=cuerpo&"II CPEM
" cuerpo=cuerpo&"Trujillo - Perú
" cuerpo=cuerpo&"ASPEFAM
" 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%>