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
Asociación Nacional de Centros con Certificados de Profesionalidad, ANCCP
CURSOS - 2016
 
PLAN DESEMPLEADOS Y OCUPADOS CON CERTIFICADOS DE PROFESIONALIDAD
 
PLAN PARA MENORES DE 25 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 privados where privado = 'SI' order by especial asc" rs.PageSize=TamPagina rs.CacheSize=TamPagina rs.Open SQL, oConn, 1, 2 PaginasTotales=rs.PageCount if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if if PaginasTotales=0 then Response.Write("
 
Actualmente no existen cursos privados.
 
") 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 %>