Facebook Asociación Nacional de Centros con Certificados de Profesionalidad Twitter Asociación Nacional de Centros con Certificados de Profesionalidad Youtube Asociación Nacional de Centros con Certificados de Profesionalidad LinkedIn Asociación Nacional de Centros con Certificados de Profesionalidad Google + Asociación Nacional de Centros con Certificados de Profesionalidad Inicio Imagen Separa Menu Asociación Imagen Separa Menu Asociados Imagen Separa Menu Asóciate Imagen Separa Menu Cursos Imagen Separa Menu Noticias Imagen Separa Menu FAQ Imagen Separa Menu Foros Imagen Separa Menu Contacto
<% Dim Modo Modo=Ucase(Request.Querystring ("Mod")) Select Case Modo Case "P" Call Paso1() Case "P2" Call Paso2() Case Else Call Paso1() End Select Sub Paso1 CODC = request.QueryString("id") Set C = Server.CreateObject ("ADODB.Connection") C.Open "DSN=anccp.es.datos" sSQL = "SELECT * FROM cursos where Id="+CODC+"" Set R = C.Execute (sSQL) IM1 = R.Fields("rutalogos") TIT = R.Fields("titulo") CDG = R.Fields("codigo") EXPD = R.Fields("expediente") %>
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP

<% response.write CDG %> / <% response.write EXPD %>
<% response.write TIT %>

DATOS DE PRE-INSCRIPCIÓN
  En el caso de que el centro no disponga de plazas libres en el curso subvencionado, ¿estarías dispuesto a recibir información sobre los certificados impartidos a nivel Privado?  
  SI  NO

 
  Nombre:  
  Apellidos:  
  DNI:  
  Situación: Desemplead@
Joven inscrit@ en el registro de garantía juvenil.
Trabajador/a en Activo
 
  Dirección:  
  CP/Población/Provincia:  /   /   
  Teléfono / Móvil:  /   
  Email:  
<% End Sub Sub Paso2 TIT = request.form ("titulo") TIT2 = request.form ("titulo") NMB = request.form ("nombre") NMB=replace(NMB, "á", "á") NMB=replace(NMB, "é", "é") NMB=replace(NMB, "í", "í") NMB=replace(NMB, "ó", "ó") NMB=replace(NMB, "ú", "ú") NMB=replace(NMB, "Á", "Á") NMB=replace(NMB, "É", "É") NMB=replace(NMB, "Í", "Í") NMB=replace(NMB, "Ó", "Ó") NMB=replace(NMB, "Ú", "Ú") NMB=replace(NMB, "Ñ", "Ñ") NMB=replace(NMB, "ñ", "ñ") NMB=replace(NMB, "º", "º") NMB=replace(NMB, "ª", "ª") APL = request.form ("apellidos") APL=replace(APL, "á", "á") APL=replace(APL, "é", "é") APL=replace(APL, "í", "í") APL=replace(APL, "ó", "ó") APL=replace(APL, "ú", "ú") APL=replace(APL, "Á", "Á") APL=replace(APL, "É", "É") APL=replace(APL, "Í", "Í") APL=replace(APL, "Ó", "Ó") APL=replace(APL, "Ú", "Ú") APL=replace(APL, "Ñ", "Ñ") APL=replace(APL, "ñ", "ñ") APL=replace(APL, "º", "º") APL=replace(APL, "ª", "ª") DNI = request.form ("dni") STC = request.form ("situacion") DRC = request.form ("direccion") DRC=replace(DRC, "á", "á") DRC=replace(DRC, "é", "é") DRC=replace(DRC, "í", "í") DRC=replace(DRC, "ó", "ó") DRC=replace(DRC, "ú", "ú") DRC=replace(DRC, "Á", "Á") DRC=replace(DRC, "É", "É") DRC=replace(DRC, "Í", "Í") DRC=replace(DRC, "Ó", "Ó") DRC=replace(DRC, "Ú", "Ú") DRC=replace(DRC, "Ñ", "Ñ") DRC=replace(DRC, "ñ", "ñ") DRC=replace(DRC, "º", "º") DRC=replace(DRC, "ª", "ª") CP = request.form ("cp") PBL = request.form ("poblacion") PRV = request.form ("provincia") TF1 = request.form ("telefono") TF2 = request.form ("movil") EML = request.form ("email") CRS = TIT2 PRVD = request.form ("privado") IM1 = request.form ("rutalogos") FCH = date() &" - "& time() if NMB="" then %> <%else if APL="" then %> <%else if STC="" then %> <%else if DRC="" then %> <%else if CP="" then %> <%else if PBL="" then %> <%else if PRV="" then %> <%else if TF1 ="" and TF2 = "" then %> <%else if EML="" then %> <%else if PRVD="" then %> <%else Set C = Server.CreateObject ("ADODB.Connection") C.Open "DSN=anccp.es.datos" sSQL = "SELECT * FROM cursos where titulo='"+TIT+"'" Set R = C.Execute (sSQL) EMP = R.Fields("codempresa") Set C = Server.CreateObject ("ADODB.Connection") C.Open "DSN=anccp.es.datos" sSQL = "SELECT * FROM empresas where Id="+EMP+"" Set rn = C.Execute (sSQL) EMLEMP = rn.Fields("email1") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=anccp.es.datos" Set rs = cn.execute ("SELECT * FROM preinscritos") cad="Insert into preinscritos (Nombre, Apellidos, DNI, Situacion, Direccion, CP, Poblacion, Provincia, Telefono1, Telefono2, Email, Curso, Privado, Fecha) values ('"+NMB+"', '"+APL+"', '"+DNI+"', '"+STC+"', '"+DRC+"', '"+CP+"', '"+PBL+"', '"+PRV+"', '"+TF1+"', '"+TF2+"', '"+EML+"', '"+CRS+"', '"+PRVD+"', '"+FCH+"')" set rs=cn.execute(cad) strM1= "
Un/a usuario/a de la web se ha pre-inscrito con los siguientes datos:
Datos de Pre-inscripción
Curso"& CRS &"
¿Dispuesto a recibir información sobre los certificados impartidos a nivel privado? "& PRVD &"
  
Nombre"& NMB &" "& APL &"
DNI"& DNI &"
Situación"& STC &"
Dirección"& DRC &"
 "& CP &" / "& PBL &" / "& PRV &"
Teléfono"& TF1 &" / "& TF2 &"
Email"& EML &"
" strM3= "
Te has pre-inscrito con los siguientes datos al curso abajo indicado, nos pondremos en contacto contigo si resultas seleccionado.
 
Datos de Pre-inscripción
Curso"& CRS &"
¿Dispuesto a recibir información sobre los certificados impartidos a nivel privado? "& PRVD &"
  
Nombre"& NMB &" "& APL &"
DNI"& DNI &"
Situación"& STC &"
Dirección"& DRC &"
 "& CP &" / "& PBL &" / "& PRV &"
Teléfono"& TF1 &" / "& TF2 &"
Email"& EML &"
" mail1 = EMLEMP mail2 = "soporte@anccp.es" mail3 = EML 'mail1 = "victor@feriaonline.com" 'mail2 = "soporte@anccp.es" Set Pmail = Server.CreateObject("Persits.MailSender") Pmail.Host = "smtp.anccp.es" Pmail.From = "envios@anccp.es" Pmail.FromName = "ANCCP" Pmail.AddCC mail1 Pmail.Subject = "Inscripcion de Curso" Pmail.Body = "" & strM1 & "" Pmail.IsHTML = True Pmail.Username = "envios@anccp.es" Pmail.Password = "Foan256655" Pmail.Send Set Pmail = Server.CreateObject("Persits.MailSender") Pmail.Host = "smtp.anccp.es" Pmail.From = "envios@anccp.es" Pmail.FromName = "ANCCP" Pmail.AddCC mail2 Pmail.Subject = "Inscripcion de Curso" Pmail.Body = "" & strM1 & "" Pmail.IsHTML = True Pmail.Username = "envios@anccp.es" Pmail.Password = "Foan256655" Pmail.Send Set Pmail = Server.CreateObject("Persits.MailSender") Pmail.Host = "smtp.anccp.es" Pmail.From = "envios@anccp.es" Pmail.FromName = "ANCCP" Pmail.AddCC mail3 Pmail.Subject = "Inscripcion de Curso" Pmail.Body = "" & strM3 & "" Pmail.IsHTML = True Pmail.Username = "envios@anccp.es" Pmail.Password = "Foan256655" Pmail.Send %>
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP

<% response.write TIT %>

DATOS DE PRE-INSCRIPCIÓN
     
 
Tus datos han sido enviados correctamente.
 
     
<% End if End if End if End if End if End if End if End if End if End if End Sub %>