<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Call abreCon()
Dim rsNoticia, titulo, texto
Set rsNoticia = con.execute("Select * from noticias where cod="& codigo(request.QueryString("codnoticia")))
if not rsNoticia.eof then
titulo = rsNoticia("titulo")
texto = rsNoticia("texto")
end if
rsNoticia.close
Set rsNoticia=nothing
Function listaReg()
Dim rsLista, strLista
Set rsLista = con.execute("Select top 10 cod, titulo, chamada, data from noticias order by data desc")
while not rsLista.eof
strLista = "| "&_
":: " & rsLista("data") & " – " & "" & rsLista("chamada") &_
" |
"
response.write(strLista)
rsLista.movenext
wend
rsLista.close
Set rsLista=nothing
end function
%>
:::>>> VIRTUALVIEW.COM.BR - SEU MUNDO NO VALE DO SINOS <<<:::
 |
|
|
|
|
|
|
|
<%= titulo %>
<%= texto %>
|
Últimas
notícias |
<%
call listaReg()
Call fechaCon()
%>
|
| |
|
|
|
|
|
|
|
|
Copyright © 2006 por
Virtual View. Todos os direitos reservados -
Luis Oliveira
Revisado em:
11 May 2008 .
MSN: