JORNAL ESPAÇO UNIVERSITÁRIO
O Jornal Espaço Universitário é uma publicação bimestral da ASCOM da Faculdade Luciano Feijão, com tiragem de 2 mil exemplares. É distribuído internamente entre a comunidade acadêmica da FLF e autoridades administrativas, educacionais, políticas e empresários do município de Sobral.
Edições:
› Edição Nº 01 |
› Edição Nº 02 |
› Edição Nº 03 |
› Edição Nº 04 |
› Edição Nº 05 |
› Edição Nº 06 |
› Edição Nº 07 |
› Edição Nº 08 |
› Edição Nº 09 |
› Edição Nº 10 |
› Edição Nº 11 |
› Edição Nº 12 |
› Edição Nº 13 |
› Edição Nº 14 |
› Edição Nº 15 |
› Edição Nº 16 |
› Edição Nº 17 |
› Edição Nº 18 |
› Edição Nº 19 |
› Edição Nº 20 |
› Edição Nº 21
|
| |
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_connDUportal_STRING
rs.Source = "SELECT id, titulo, MONTH(CONVERT( smalldatetime, data ) ) as mesn, YEAR(CONVERT( smalldatetime, data ) ) as anon FROM flfjornalsocial order by MONTH(CONVERT( smalldatetime, data ) ) ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
dim mes1
mes1 = ""
dim mesn1, anon1, listClose1
anon1 = ""
Dim myFixedArray1(12) 'Fixed size array
myFixedArray1(0) = "Janeiro"
myFixedArray1(1) = "Janeiro"
myFixedArray1(2) = "Fevereiro"
myFixedArray1(3) = "Março"
myFixedArray1(4) = "Abril"
myFixedArray1(5) = "Maio"
myFixedArray1(6) = "Junho"
myFixedArray1(7) = "Julho"
myFixedArray1(8) = "Agosto"
myFixedArray1(9) = "Setembro"
myFixedArray1(10) = "Outubro"
myFixedArray1(11) = "Novembro"
myFixedArray1(12) = "Dezembro"
%>
<%
if not rs.eof then ar=rs.GetRows
rs.close:set rs=nothing
'conn.close: set conn=nothing
if isarray(ar) then
for i=0 to ubound(ar,2)
mesn1 = ar(2,i)
anon1 = ar(3,i)
if(mes1 <> mesn1) Then
mes1 = mesn1
if (i<>0) Then listClose = "
"
'Response.Write("| "+myFixedArray1(mesn1)+" "+CStr(anon1)+" |
|---|
")
Else
listClose = ""
End if
if (i mod 4=0 and i<>0) then Response.write("") end if
%>
<%
next
else
Response.Write "Sem Jornal Cadastrado"
end if
%>
PÁGINA INICIAL
COMUNICAR ERRO
