<%@ Language=VBScript %>
<%
Option Explicit
dim conexion, registros, sql, registros2
set conexion = Server.CreateObject ("ADODB.connection")
%><%
conexion.open
set registros = Server.CreateObject ("ADODB.RECORDSET")
set registros2 = Server.CreateObject ("ADODB.RECORDSET")
%>
Cámara de Industriales del Estado Carabobo
<%dim hoy, mes, diahoy
dim diadehoy,mesdehoy
diadehoy=datepart("d",date)
mesdehoy=datepart("m",date)
hoy=mesdehoy&"/"&diadehoy&"/"&datepart("yyyy",date)
sql = "select * from ciec_evento where estado='1' and desde_pub<='"& hoy &"' and hasta_pub>='"& hoy &"' order by hasta"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof%>
<%=registros("evento")%>
Fecha
<%if registros("hasta")=registros("desde") then%><%else%>Desde el <%end if%>
<%if registros("hasta")=registros("desde") then
diahoy=weekday(registros("desde"))
select case diahoy
case 1 diahoy="Domingo"
case 2 diahoy="Lunes"
case 3 diahoy="Martes"
case 4 diahoy="Miércoles"
case 5 diahoy="Jueves"
case 6 diahoy="Viernes"
case 7 diahoy="Sábado"
end select
response.write(diahoy)
response.write(", ")
response.write(datepart("d",registros("desde")))
mes=datepart("m",registros("desde"))
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("desde")))
end if
if registros("hasta")<>registros("desde") then
diahoy=weekday(registros("desde"))
select case diahoy
case 1 diahoy="Domingo"
case 2 diahoy="Lunes"
case 3 diahoy="Martes"
case 4 diahoy="Miércoles"
case 5 diahoy="Jueves"
case 6 diahoy="Viernes"
case 7 diahoy="Sábado"
end select
response.write(diahoy)
response.write(", ")
response.write(datepart("d",registros("desde")))
mes=datepart("m",registros("desde"))
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("desde")))
%> hasta el
<% diahoy=weekday(registros("hasta"))
select case diahoy
case 1 diahoy="Domingo"
case 2 diahoy="Lunes"
case 3 diahoy="Martes"
case 4 diahoy="Miércoles"
case 5 diahoy="Jueves"
case 6 diahoy="Viernes"
case 7 diahoy="Sábado"
end select
response.write(diahoy)
response.write(", ")
response.write(datepart("d",registros("hasta")))
mes=datepart("m",registros("hasta"))
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("hasta")))
end if%>
