<% Dim rst Set rst = Server.CreateObject("ADODB.Recordset") rst.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("..\Sistema\Info.mdb") rst.Source = "SELECT * FROM tbl_licitaciones WHERE Id <> 1" rst.CursorType = 0 rst.CursorLocation = 2 rst.LockType = 1 rst.Open() %>
Ocultar/Mostrar barra de menu

Licitaciones


<% WHILE NOT rst.EOF %> <% rst.Movenext WEND%>
"> <%=rst.Fields.Item("Numero").Value%> - <%=rst.Fields.Item("Titulo").Value%>

 
© Copyright 1997 - 2012 | Banco del Chubut S.A.
Rivadavia 615, Rawson - Chubut (9103)
<% rst.Close() Set rst = Nothing %>