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 "L" Call Idiomas() Case "O" Call Otros() Case "M" Call Mentiona() Case Else Call Otros() End Select Sub Otros %>
 
< PLAN DESEMPLEADOS Y OCUPADOS CON CERTIFICADOS DE PROFESIONALIDAD >
 
PLAN PARA MENORES DE 29 AÑOS EN IDIOMAS
 
CURSOS DE INGLÉS EN MALTA
 
FORMACIÓN PRIVADA
 
<% Dim oConn, rs, SQL, TT Dim PaginaActual ' en qué pagina estamos Dim PaginasTotales ' cuántas páginas tenemos Dim TamPagina ' cuantos registros por pagina Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos TamPagina=200 if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "DSN=anccp.es.datos" SQL="Select * from cursos where privado = 'NO' order by especial desc" rs.PageSize=TamPagina rs.CacheSize=TamPagina rs.Open SQL, oConn, 1, 2 IM1= Rs.Fields ("rutalogos") PaginasTotales=rs.PageCount if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if %>
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
CURSOS CON CERTIFICADOS DE PROFESIONALIDAD - 2016

<% if PaginasTotales=0 then Response.Write("No se encontraron resultados.") else rs.AbsolutePage=PaginaActual CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina ID= Rs.Fields ("Id") PRV = Rs.Fields("provincia") PBL = Rs.Fields("poblacion") MES = Rs.Fields("mes") DIA = Rs.Fields("dia") TTL= Rs.Fields ("titulo") TTL=Replace(TTL, "º", "ª") TTL=Replace(TTL, "ó", "ó") TTL=Replace(TTL, "á", "á") TTL=Replace(TTL, "é", "é") TTL=Replace(TTL, "í", "í") TTL=Replace(TTL, "ú", "ú") TTL=Replace(TTL, "ñ", "ñ") TTL=Replace(TTL, "ª", "ª") TTL=Replace(TTL, "Ó", "Ó") TTL=Replace(TTL, "Á", "Á") TTL=Replace(TTL, "É", "É") TTL=Replace(TTL, "Í", "Í") TTL=Replace(TTL, "Ú", "Ú") TTL=Replace(TTL, "Ñ", "Ñ") ACTV = rs.fields("activo") if ACTV = "NO" then CSS1="" else CSS1="gggg" end if Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("
"& DIA &"
"& MES &"
") Response.Write("
"& TTL &""& CSS1 &"
"& PBL &" - "& PRV &"

") CuantosRegistros=CuantosRegistros+1 rs.MoveNext loop end if rs.Close oConn.Close set rs=nothing set oConn=nothing End Sub Sub Idiomas %>
 
PLAN DESEMPLEADOS Y OCUPADOS CON CERTIFICADOS DE PROFESIONALIDAD
 
< PLAN PARA MENORES DE 29 AÑOS EN IDIOMAS >
 
CURSOS DE INGLÉS EN MALTA
 
FORMACIÓN PRIVADA
 
<% Dim oConn, rs, SQL, TT Dim PaginaActual ' en qué pagina estamos Dim PaginasTotales ' cuántas páginas tenemos Dim TamPagina ' cuantos registros por pagina Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos TamPagina=200 if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "DSN=anccp.es.datos" SQL="Select * from cursos where privado = 'NO' and expediente = 'F140414AA' order by especial asc" rs.PageSize=TamPagina rs.CacheSize=TamPagina rs.Open SQL, oConn, 1, 2 IM1= Rs.Fields ("rutalogos") PaginasTotales=rs.PageCount if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if %>
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
CURSOS DE IDIOMAS - 2015

<% if PaginasTotales=0 then Response.Write("No se encontraron resultados.") else rs.AbsolutePage=PaginaActual CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina ID= Rs.Fields ("Id") PRV = Rs.Fields("provincia") PBL = Rs.Fields("poblacion") MES = Rs.Fields("mes") DIA = Rs.Fields("dia") TTL= Rs.Fields ("titulo") TTL=Replace(TTL, "º", "ª") TTL=Replace(TTL, "ó", "ó") TTL=Replace(TTL, "á", "á") TTL=Replace(TTL, "é", "é") TTL=Replace(TTL, "í", "í") TTL=Replace(TTL, "ú", "ú") TTL=Replace(TTL, "ñ", "ñ") TTL=Replace(TTL, "ª", "ª") TTL=Replace(TTL, "Ó", "Ó") TTL=Replace(TTL, "Á", "Á") TTL=Replace(TTL, "É", "É") TTL=Replace(TTL, "Í", "Í") TTL=Replace(TTL, "Ú", "Ú") TTL=Replace(TTL, "Ñ", "Ñ") ACTV = rs.fields("activo") if ACTV = "NO" then CSS1="" else CSS1="gggg" end if Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("
"& DIA &"
"& MES &"
") Response.Write("
"& TTL &""& CSS1 &"
"& PBL &" - "& PRV &"

") CuantosRegistros=CuantosRegistros+1 rs.MoveNext loop end if rs.Close oConn.Close set rs=nothing set oConn=nothing End Sub Sub Mentiona Dim oConn, rs, SQL, TT Dim PaginaActual ' en qué pagina estamos Dim PaginasTotales ' cuántas páginas tenemos Dim TamPagina ' cuantos registros por pagina Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos TamPagina=200 if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") N1 = "54" N2 = "55" N3 = "67" N4 = "51" N5 = "44" N6 = "53" N7 = "52" oConn.Open "DSN=anccp.es.datos" SQL="Select * from cursos where Id="+N1+" or Id="+N2+" or Id="+N3+" or Id="+N4+" or Id="+N5+" or Id="+N6+" or Id="+N7+" order by especial asc" rs.PageSize=TamPagina rs.CacheSize=TamPagina rs.Open SQL, oConn, 1, 2 IM1= Rs.Fields ("rutalogos") PaginasTotales=rs.PageCount if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if %>
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
CURSOS TOTALMENTE SUBVENCIONADOS - 2015

<% if PaginasTotales=0 then Response.Write("No se encontraron resultados.") else rs.AbsolutePage=PaginaActual CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina ID= Rs.Fields ("Id") PRV = Rs.Fields("provincia") PBL = Rs.Fields("poblacion") MES = Rs.Fields("mes") DIA = Rs.Fields("dia") TTL= Rs.Fields ("titulo") TTL=Replace(TTL, "º", "ª") TTL=Replace(TTL, "ó", "ó") TTL=Replace(TTL, "á", "á") TTL=Replace(TTL, "é", "é") TTL=Replace(TTL, "í", "í") TTL=Replace(TTL, "ú", "ú") TTL=Replace(TTL, "ñ", "ñ") TTL=Replace(TTL, "ª", "ª") TTL=Replace(TTL, "Ó", "Ó") TTL=Replace(TTL, "Á", "Á") TTL=Replace(TTL, "É", "É") TTL=Replace(TTL, "Í", "Í") TTL=Replace(TTL, "Ú", "Ú") TTL=Replace(TTL, "Ñ", "Ñ") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("
"& DIA &"
"& MES &"
") Response.Write("
"& TTL &"gggg
Curso Totalmente Subvencionado en "& PBL &" - "& PRV &"

") CuantosRegistros=CuantosRegistros+1 rs.MoveNext loop end if rs.Close oConn.Close set rs=nothing set oConn=nothing End Sub %>