<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
cod=request.QueryString("cod")
Set RS=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM news WHERE id_news = " & cod &";"
Rs.open sql, conn, 2,2
data=rs("data_news") %>
<%= RS("conteudo") %>
Rio de Janeiro, <%= data %>
<%
Rs.close
Set Rs=nothing
Set RS=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM news_cont WHERE id_news = " & cod &";"
Rs.open sql, conn, 2,2
cont=0
while not rs.eof and not rs.bof
thumb=RS("foto_news_cont")
cont=cont+1
materias= rs.recordcount
if materias > cont then
%>
