 |
|
|
<%
'LISTA TODAS AS NOTICIAS
if (n="") then
sql ="select numNot, CONVERT(CHAR,dtPubNot,103) as dtPubNot, titNot, stitNot"
sql = sql & " from noticia order by dtPubNot"
Set rs = conn.execute(sql)
cont = 0
while not rs.eof
cont = cont+1
quant = 3
if (cont <= quant) then
numNot = rs("numNot")
dtPubNot = rs("dtPubNot")
titNot = rs("titNot")
stitNot = rs("stitNot")
else if (cont > quant) then
numNot = ""
dtPubNot = ""
titNot = ""
stitNot = ""
end if
end if
if (cont <= quant) then
%>
<%
end if
rs.movenext
wend
end if
'****************************************************************
'MOSTAR UMA NOTICIA ESPECIFICA
'****************************************************************
if (n<>"") then
sql ="select numNot, CONVERT(CHAR,dtPubNot,103) as dtPubNot, titNot, txtNot"
sql = sql & " from noticia where numNot = " & n & "order by dtPubNot"
Set rs = conn.execute(sql)
while not rs.eof
numNot = rs("numNot")
dtPubNot = rs("dtPubNot")
titNot = rs("titNot")
txtNot = rs("txtNot")
%>
<%=dtPubNot%>
<%=titNot%>
<%=txtNot%>
<%
rs.movenext
wend
end if
'****************************************************************
%> |
|
|
|
