Evento
Institucional: Eventos de caracter Institucional
como Informe del Rector, Otorgación de Doctorados "Honoris
Causa", Ceremonias Institucionales, Consejos Escolares...(ligados
en general a Rectoría)
Evento
Académico:Congresos, Foros, Conferencias
relacionados con aspectos Academicos como: Foro de Biotecnología,
Congrso de Tecnologia de la Información, Ciclo de Conferencias
de la Escuela de Ingenieria Ecologica,Temas Selectos de Humanidades,
Asambleas de Escuelas, ...(ligados en general a los Departamentos Academicos,
Liderazgo Universitario, ...)
Evento
Escolar:Ttodas las actividades ligadas
al calendario escolar: Periodo de Inscripcion de alumnos, alta de asignaturas,
inicio de curso, examenes, ....(todo lo que actualmente recoge la Agenda
actual como Calendario academico).
Evento
Cultural:Actividades y eventos relacionadas
con el mundo de la cultura: Exposiciones de Pintura, Conciertos, Conferencias
literarias, Charlas, Ciclos artistico-culturales, ...ligados en general
al Dpto de Bellas Artes, Centro Cultural, Accion Cultural, Salud Universitaria)
Evento
Deportivo: Actividades y eventos ligados
al mundo del deporte como Torneos, competiciones, ...ligados en general
al Dpto de Integracion Universitaria y en concreto a Deportes)
Evento
Recreativo:Actividades lúdicas
como excursiones, visitas, ferias, viajes, ...ligados a varios departamentos
como CIU, Desarrollo de Proceso de Personal, Asuntos Estudiantiles,
Grupo Punta, Exalumnos ....)
Agenda
de
Eventos
<%
Select Case Request.QueryString("c")
Case "A"
Response.Write("
( Alta Prioridad )
")
Case "B"
Response.Write("
( Institucional )
")
Case "C"
Response.Write("
( Academia )
")
Case "D"
Response.Write("
( Escolar )
")
Case "E"
Response.Write("
( Cultura )
")
Case "F"
Response.Write("
( Deportes )
")
Case "G"
Response.Write("
( Recreativas )
")
Case Else
Response.Write("
")
End Select
%>
<%
' mostrar el ultimo dia de un mes
Function LastDayOfMonth(iMonth, iYear)
Dim NextMonth
NextMonth = DateAdd("m", 1, DateSerial(iYear, iMonth, "01"))
LastDayOfMonth = Day(DateAdd("d", -1, NextMonth))
End Function
function diaTotales(mesS)
dim valor
select case mesS
case 1
valor = 31
case 2 'falta verificar el año bisisesto
valor =28
case 3
valor = 31
case 4
valor = 30
case 5
valor = 31
case 6
valor = 30
case 7
valor = 31
case 8
valor = 31
case 9
valor = 30
case 10
valor = 31
case 11
valor = 30
case 12
valor = 31
end select
diaTotales = valor
end function
function diaSemana(diaSem)
dim valor
select case diaSem
case 1
valor = "Domingo"
case 2
valor = "Lunes"
case 3
valor = "Martes"
case 4
valor = "Miércoles"
case 5
valor = "Jueves"
case 6
valor = "Viernes"
case 7
valor = "Sábado"
end select
diaSemana = valor
end function
function mes(mesS)
dim valor
select case mesS
case 1
valor = "Enero"
case 2
valor = "Febrero"
case 3
valor = "Marzo"
case 4
valor = "Abril"
case 5
valor = "Mayo"
case 6
valor = "Junio"
case 7
valor = "Julio"
case 8
valor = "Agosto"
case 9
valor = "Septiembre"
case 10
valor = "Octubre"
case 11
valor = "Noviembre"
case 12
valor = "Diciembre"
end select
mes = valor
end function
function mesfi(mesS)
dim valor
If mesS > 12 Then ' si es un mes mas que 12 pasamos al 1 mes del otro año
mesS = 1
End If
select case mesS
case 1
valor = "jan"
case 2
valor = "feb"
case 3
valor = "mar"
case 4
valor = "apr"
case 5
valor = "may"
case 6
valor = "jun"
case 7
valor = "jul"
case 8
valor = "aug"
case 9
valor = "sep"
case 10
valor = "oct"
case 11
valor = "nov"
case 12
valor = "dec"
end select
mesfi = valor
end function
function mesf(mesS)
dim valor
If mesS > 12 Then ' si es un mes mas que 12 pasamos al 1 mes del otro año
mesS = 1
End If
select case mesS
case 1
valor = "ene"
case 2
valor = "feb"
case 3
valor = "mar"
case 4
valor = "abr"
case 5
valor = "may"
case 6
valor = "jun"
case 7
valor = "jul"
case 8
valor = "ago"
case 9
valor = "sep"
case 10
valor = "oct"
case 11
valor = "nov"
case 12
valor = "dic"
end select
mesf = valor
end function
Function desFec(fecha)
dim fechai
fechai = DoDateTime(fecha, 2, 2057)
desFec = Mid(fechai,1,2)
End Function
' obtenemos la fecha del servidor
dim diaS
dim diaS2
dim mesS
dim anoS
dim diaCad
dim diaSemCad
dim diaSem
dim diasxMes
Dim mesCad
Dim diaSem2
dim fen
Dim i,j,i2
Dim empieza
Dim mClasf '*
' * recuperamos el parametro para el calendario segun clasificacion
If Request.QueryString("c") <> "" Then
mClasf = Request.QueryString("c")
Else
mClasf = ""
End If
'verificamos si fecha actual por default
If Request.QueryString("f") <> "" Then
Dim ft
' el formato 1-dic-2003 que uso es diferente al hace el Date() debe ser en ingles: 1-dec-2003
ft = CStr(request.QueryString("f"))
diaS = cint(Mid(ft,9,2))
mesS = cint(Mid(ft,6,2))
anoS = cint(Mid(ft,1,4))
If Month(now) = mesS And Year(Now) = anoS Then
diaS = Day(now)
mesS = Month(now)
anoS = Year(now)
End If
Else
diaS = Day(now)
mesS = Month(now)
anoS = Year(now)
End If
mesCad = mes(mesS) ' para saber el nombre completo del mes actual
'diasxMes = diaTotales(mesS) ' para saber cuantos dias tiene elmes actual
diasxMes = LastDayOfMonth(mesS,anoS)
Dim mescade,mescade2,fed,fedd,fed2
mescade = mesfi(mesS)
'mescade2 = mesfi(mesS)
'*fed = "1-"&mescade&"-"&anoS
fed = anoS&"-"&mesS&"-01"
'fedd = "1-"&mescade2&"-"&anoS' ---------- para usar el formato corto fecha esp en acces ingles en vbscript
'*fed2 = diasxMes&"-"&mescade&"-"&anoS
fed2 = anoS&"-"&mesS&"-"&diasxMes
fen = fed
diaSem2 = WeekDay(anoS&"-"&mesS&"-01") ' dec or di ?????????? AAAA-MM-DD
Dim con,reg
Dim arrDatos, ca, re, sente
Set con = Server.CreateObject("ADODB.Connection")
Set reg = Server.CreateObject("ADODB.RecordSet")
'con.ConnectionTimeOut = 120
'con.CommandTimeOut = 60
con.open cadConexAgeMy
' * segun la opcion de clasificacion
If mClasf <> "" Then
sente = "SELECT fecha, COUNT(*) AS Cuantos FROM Eventos WHERE (fecha BETWEEN '"&fed&"' AND '"&fed2&"') AND Clasif = '" & mClasf & "' GROUP BY fecha"
'Set reg = con.Execute(,,adCmdText)
Else
sente = "SELECT fecha, COUNT(*) AS Cuantos FROM Eventos WHERE fecha BETWEEN '"&fed&"' AND '"&fed2&"' GROUP BY fecha"
'Set reg = con.Execute(,,adCmdText)
End If
reg.Open sente, con, adOpenStatic, adLockOptimistic, adCmdText
If Not reg.eof Then
arrDatos = reg.GetRows()
End If
' liberamos recursos !
reg.close
Set reg = Nothing
'con.close
'Set con = Nothing no cerramos ya ke hacemos otra consulta
'preparar la fecha para el enlace
Dim mesSn,mesSn1,mesSn2,f,FA,anoSn,anoSn2
mesSn1 = mesS
mesSn2 = mesS
anoSn = anoS
anoSn2 = anoS
If mesS+1 > 12 Then ' si estamos en el ultimo mes del año pasar al siguiente año
anoSn = anoSn + 1
anoSn2 = anoSn - 1
mesSn1 = "01"
mesSn2 = mesS - 1
Else
If mesS <= 10 then
If mesS = 10 or mesS = 9 Then
mesSn1 = mesS+1
mesSn2 = "0" & mesS-1
Else
mesSn1 = "0" & mesS+1
mesSn2 = "0" & mesS-1
End If
Else
mesSn1 = mesS+1
mesSn2 = mesS-1
End If
End If
' si estamos en el primer mes del año
If mesS = 1 Then
anoSn2 = anoSn2 - 1
mesSn2 = "12"
End IF
f = anoSn&"-"&mesSn1&"-01"
fa = anoSn2&"-"&mesSn2&"-01"
If IsArray(arrDatos) Then
'response.write "" & & " del " & & " "
response.write "
"
response.Write("
" & mesCad & " del " & anoS & "
")
response.write "
Dom
Lun
Mar
Mie
Jue
Vie
Sab
"
j = 0 'cuenta las celdas dibujadas
response.write "
" ' empiezan los dias del mes y empezamos con el calculo de las celdas en blanco
empieza = diaSem2-1
for i2=1 to empieza step 1'i2"
j=j+1
next
'empiezan los dias del mes
Dim act,diac,f_ok,a_ok,m_ok,d_ok
ca=0
re=0
act = false
For i=1 To DiasxMes step 1
if j>=7 then
j=0
response.write "
"
response.write "
"
end if
If i=diaS Then 'todos son enlaces!!!!!!!!!!
act = true
End If
If re <= UBound(arrDatos,2) Then ' para no sobre pasar el limite del array
diac = Cint(desFec(arrDatos(0,re)))
If diac = i Then
f_ok = DoDateTime(arrDatos(0,re),2,2057)
a_ok = Mid(f_ok,7,4)
m_ok = Mid(f_ok,4,2)
d_ok = Mid(f_ok,1,2)
f_ok = a_ok&"-"&m_ok&"-"&d_ok
'con eventos
If act Then
Response.write "
<%
' recuperamos los eventos mas importantes
Dim oCo,oRe
Dim arrData
Dim dci,mci,aci,dcf,mcf,acf
Dim fci,fcf
dci = 1
mci = mesfi(mesS)
aci = anoS
fci = dci&"-"&mci&"-"&aci
dcf = diaTotales(mesS)
mcf = mesfi(mesS)
acf = anoS
fcf = dcf&"-"&mcf&"-"&acf
Dim bande,nada
bande = true
Set oRe = Server.CreateObject("ADODB.RecordSet")
'sente = "SELECT fecha,Hora,Lugar,Descripcion FROM Eventos WHERE (Clasif LIKE 'A') AND (Fecha BETWEEN '"&fci&"' AND '"&fcf&"');"
sente = "SELECT fecha,Hora,Lugar,Descripcion FROM Eventos WHERE (Clasif LIKE 'A') AND (Fecha BETWEEN '"&fed&"' AND '"&fed2&"');"
'Set oRe = Con.Execute()
oRe.Open sente, con, adOpenStatic, adLockOptimistic, adCmdText
If oRe.EOF Then
bande = false
'Response.Write("NADA encontrado")
nada = "Gracias por consultar el Calendario de Eventos de la UPAEP"
oRe.Close
Set oRe = Nothing
Con.Close
Set Con = Nothing
Else
arrData = oRe.GetRows()
oRe.Close
Set oRe = Nothing
Con.Close
Set Con = Nothing
End IF
%>
Eventos
más importantes del mes
