 |
<%
Dim conn, RS4, queID, sql1, SQL4, rs1, randomNews, AdvObject, adHTML, variavel_qualquer
Dim mes, rs, sql, link, RSB, RSFOTO, SQLB, link2, link3, contador
set conn = server.createobject("adodb.connection")
conn.open CONEXAO_PRODUCAO
set RS = Server.CreateObject("ADODB.Recordset")
SQL = "select * from NOTICIAS where not_codigo=" & Request.QueryString("nt")
SQL = "select * from NOTICIAS where not_codigo=" & Request.QueryString("nt")
RS.open SQL, conn
%>
|
 |
|
|