<%@ LANGUAGE="VBSCRIPT" %> <% ACTION = Request.Form("ACTION") %> <% Ruta = "\bases\compras.mdb" Session("ConnCompras_ConnectionString") = "Data Source=" & Server.Mappath(Ruta) & ";Provider=Microsoft.Jet.OLEDB.4.0;" Session("ConnCompras_ConnectionTimeout") = 15 Session("ConnCompras_CommandTimeout") = 30 Session("ConnCompras_RuntimeUserName") = "admin" Session("ConnCompras_RuntimePassword") = "" %> <% SentenciaSQL = " SELECT * " %> <% SentenciaSQL = SentenciaSQL & " FROM Compras " %> <% SentenciaSQL = SentenciaSQL & " WHERE " %> <% SentenciaSQL = SentenciaSQL & " Fecha >= cDate('"&Date&"') " %> <% SentenciaSQL = SentenciaSQL & " ORDER BY Fecha " %> <% Dim CmdConsulta Dim SentenciaSQL Set CmdConsulta = Server.CreateObject("ADODB.Recordset") CmdConsulta.Open SentenciaSQL,Session("ConnCompras_ConnectionString"), 3 %> Consulta a la base de datos de compras del Estado Provincial


Volver
Compras del Estado
Sistema de consulta de Compras del Estado.
<% if CmdConsulta.BOF or CmdConsulta.EOF then %> <% response.write "No hay compras o licitaciones pendientes de apertura al dia " & now() %> <% end if %> <% while NOT CmdConsulta.EOF %>
<%= CmdConsulta("Fecha") %> <%= CmdConsulta("Hora") %> Hs - <%= CmdConsulta("Organismo") %>
<% If Trim(CmdConsulta("URL")) <> "" Then %> <% End If %> <% If Trim(CmdConsulta("Anexo")) <> "" Then %> <% End If %>
<% If Trim(CmdConsulta("Actuacion")) <> "" Then %> Actuación: <%= CmdConsulta("Actuacion") %> <% End If %>
<% If Trim(CmdConsulta("Objeto")) <> "" Then %> Objeto: <%= CmdConsulta("Objeto") %> <% End If %>
<% If Trim(CmdConsulta("LugarApertura")) <> "" Then %> Lugar de Apertura:<%= CmdConsulta("LugarApertura") %> <% End If %>
<% If Trim(CmdConsulta("Informes")) <> "" Then %> Informes:<%= CmdConsulta("Informes") %> <% End If %>
<% If Trim(CmdConsulta("URL")) <> "" Then %> Pliego de bases y Condiciones: > <%= CmdConsulta("URL") %> <% End If %>
<% If Trim(CmdConsulta("Anexo")) <> "" Then %> Información Complementaria: > <%= CmdConsulta("Anexo") %> <% End If %>
<% If (CmdConsulta("Valor")) > 0 Then %> Valor del Pliego: $ <%= CmdConsulta("Valor") %> <% End If %>

<% CmdConsulta.MoveNext %> <% wend%> <% CmdConsulta.Close %>

FUENTE : Boletín Oficial de la Provincia de Misiones
http://www.misiones.gov.ar/boletin/
 


Para visualizar el contenido de la versión digital de los pliegos
debe instalar el visualizador Acrobat Reader.
Haga un clic sobre el ícono para descargarlo a su computadora




Inicio de la página