<%@ Language=VBScript %>
<%
set conexion = Server.CreateObject ("ADODB.connection")
%>
<%
conexion.open
set registros = Server.CreateObject ("ADODB.RECORDSET")
set registros2 = Server.CreateObject ("ADODB.RECORDSET")
texto_var=request("letra")
sql="Select count(*) as total from ciec_directorio where ID_actividad='"&request("texto")&"' and cargo='0' and camaras='1'"
registros.open sql,conexion,1
total_var=0
total_var=cint(registros("total"))
registros.Close()
%>
CIEC - Directorio
<%Dim mostrar, cant_paginas, pagina_actual, registro_mostrado, I
mostrar = 10
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
registros.PageSize = mostrar
registros.CacheSize = mostrar
sql="Select * from ciec_directorio where ID_actividad='"&request("texto")&"' and cargo='0' and camaras='1' order by empresa"
registros.open sql,conexion,1
cant_paginas = registros.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
registros.AbsolutePage = pagina_actual
sql="Select actividad from ciec_actividad where id='"&request("texto")&"'"
registros2.open sql,conexion,1
activ=registros2("actividad")
registros2.close%>
<%registro_mostrado = registro_mostrado + 1
registros.MoveNext
Loop
end if
registros.close
set registros = Nothing
conexion.close
set conexion = Nothing%>
