<%@ Language=VBScript %> <% Option Explicit dim conexion,registros,sql,id_var,mes,texto2_var,i,largo,caracter set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") %> Click para imprimir

 
Gacetas Oficiales <%sql = "select * from ciec_gaceta where id='" & request("id_var") &"'" registros.open sql,conexion,1%>
 

Gaceta Oficial Nº <%=registros("numero")%> Publicada el <%response.write(datepart("d",registros("fecha"))) mes=datepart("m",registros("fecha")) select case mes case 1 mes="enero" case 2 mes="febrero" case 3 mes="marzo" case 4 mes="abril" case 5 mes="mayo" case 6 mes="junio" case 7 mes="julio" case 8 mes="agosto" case 9 mes="septiembre" case 10 mes="octubre" case 11 mes="noviembre" case 12 mes="diciembre" end select response.write(" de "+mes+" de ") response.write(datepart("yyyy",registros("fecha")))%>
Ente emisor: <%=registros("ente")%>

<%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 next%>
<%if registros("url")<>"" then%>
Vea esta gaceta completa en: <%=registros("url")%>
<%end if%>
Publicada por la CIEC el <%response.write(datepart("d",registros("publicado"))) mes=datepart("m",registros("publicado")) select case mes case 1 mes="enero" case 2 mes="febrero" case 3 mes="marzo" case 4 mes="abril" case 5 mes="mayo" case 6 mes="junio" case 7 mes="julio" case 8 mes="agosto" case 9 mes="septiembre" case 10 mes="octubre" case 11 mes="noviembre" case 12 mes="diciembre" end select response.write(" de "+mes+" de ") response.write(datepart("yyyy",registros("publicado")))%>

 
 

Tomado de www.ciec.org.ve - Si desea mas información escribanos a info@ciec.org.ve

<%registros.close set registros = Nothing conexion.close set conexion = Nothing%>