<% @LCID = 1033 %>
<%
Option Explicit
Dim conexion, registros, registros2,sql,id_var
Set conexion= Server.CreateObject ("ADODB.connection")
%><%
conexion.open
Set registros = Server.CreateObject ("ADODB.RECORDSET")
Set registros2 = Server.CreateObject ("ADODB.RECORDSET")
%>
CIEC - Boletín de licitaciones - Extranet
<%
dim dia
sql = "select distinct fecha from ciec_licitacion order by fecha desc"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof
%>
<%
response.write(datepart("d",registros("fecha")))
dim mes
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")))
%>
<%
dia=registros("fecha")
sql = "select * from ciec_licitacion where fecha='"& dia &"' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then
do while not registros2.eof%>
,
<%=registros2("empresa")%>
<%registros2.movenext
loop
end if
registros2.close
registros.movenext
loop
else
%> No se han publicado
licitaciones
<%
end if
registros.close
set registros = Nothing
conexion.close
set conexion = Nothing
%>
