<!--#include file="cabecalho.asp" -->
<!--#include file="../funcoes.asp" -->
<%
Dim noticias__MMColParam
noticias__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  noticias__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim noticias
Dim noticias_cmd
Dim noticias_numRows

Set noticias_cmd = Server.CreateObject ("ADODB.Command")
noticias_cmd.ActiveConnection = MM_Loja_Antigo_STRING
noticias_cmd.CommandText = "SELECT * FROM noticias WHERE id = ?" 
noticias_cmd.Prepared = true
noticias_cmd.Parameters.Append noticias_cmd.CreateParameter("param1", 5, 1, -1, noticias__MMColParam) ' adDouble

Set noticias = noticias_cmd.Execute
noticias_numRows = 0

if noticias.eof Then
	Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME"))
End if

Dim noticias2
Dim noticias2_cmd

Set noticias2_cmd = Server.CreateObject ("ADODB.Command")
noticias2_cmd.ActiveConnection = MM_Loja_STRING
noticias2_cmd.CommandText = "SELECT * FROM noticias WHERE noticiatitulo like '%"& noticias.fields.item("titulo").value &"%'" 
noticias2_cmd.Prepared = true

Set noticias2 = noticias2_cmd.Execute

if not noticias2.eof then
	Response.Redirect("http://" & request.ServerVariables("SERVER_NAME") & "/noticia/" & noticias2.fields.item("noticiaid").value & "/" & Nome_Url(noticias2.fields.item("noticiaTitulo").value))
Else
	Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME"))
End if
%>