CIEC - Gacetas Oficiales

<%@ Language=VBScript %> <% Option Explicit dim conexion,registros,registros2,sql,id_var,texto2_var,i,largo,palabra,caracter set conexion= Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") set registros2 = Server.CreateObject ("ADODB.RECORDSET") %> CIEC - Gacetas Oficiales - Extranet

Gacetas oficiales por área

Ambiente

Comercio Exterior

Energía

Fiscal

Régimen Cambiario

Laboral

Otras áreas

<%=request("area")%>

<%sql = "select distinct numero from ciec_gaceta where activo=1 order by numero desc" registros2.open sql,conexion,1 do while not registros2.eof%>

Gaceta Oficial Nº <%=registros2("numero")%>

<% sql = "select id,numero,contenido from ciec_gaceta where activo=1 and numero='"& registros2("numero") &"' order by fecha desc" registros.open sql,conexion,1%>

" style="text-decoration: none"> <%palabra=0 texto2_var=registros("contenido") largo=len(texto2_var) for i=1 to largo caracter=mid(texto2_var,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if if asc(caracter)=32 then palabra=palabra+1 end if if palabra=30 then Response.Write("...") exit for end if next %>

<%registros2.movenext loop set registros = Nothing conexion.close set conexion = Nothing%>

Envíenos sugerencias y comentarios acerca de esta página

Diseño y desarrollo: Ingeniería Web - IW

Capítulos | Comisiones | Directorio | Contáctenos | Principal