Busca Com Várias Palavras

[Guest - Felipe -]

É o seguinte, galera...

Fiz um sistema de buscas de notícias perfeito, mas ele não realiza a busca se o usuário digitar mais de uma palavra. Com uma só palavra, beleza, mas mesmo separando por vírgulas, colocando entre aspas, enfim, nada faz com que ele busque se digitada mais de uma palavra no campo. I NEED HELP!!!

Caso ajude, a instrução SQL é:

SELECT *

FROM noticias

WHERE texto LIKE '%MMColParam%'

"texto" é o nome de um campo na tabela notícias.

as variáveis:

Name: MMColParam

Default Value: 1 (já tentei mudando este campo para "%")

Run-time Value: Request.QueryString("busca")

"busca" é o nome do campo de testo onde o usuário digita a palavra-chave.

Uso o DreamWeaver MX e banco de dados Access 2003

Muito obrigado!

[ViniciusJau]

do jeito que está ele não vai buscar mais de uma palavra.. ele vai buscar se o cara acrescentar alguma coisa a a palavra.. entende ?

não entendi essa parte:

Name: MMColParam

Default Value: 1 (já tentei mudando este campo para "%")

Run-time Value: Request.QueryString("busca")

dá um responde.write para ver como ele está passando as variaveis...

[Guest - Felipe -]

Não entendi bem a sua análise, mas de qualquer forma, passo o código completo. (é um pouco extenso, mas se tiver um pouco ce paciência, eu agradeço muito. Não tenho muita experiência com ASP, estou aprendendo agora...

segue o código da página:

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/ney.asp" -->

<%

Dim noticias__MMColParam

noticias__MMColParam = "%"

If (Request.QueryString("busca") <> "") Then

noticias__MMColParam = Request.QueryString("busca")

End If

%>

<%

Dim noticias

Dim noticias_numRows

Set noticias = Server.CreateObject("ADODB.Recordset")

noticias.ActiveConnection = MM_ney_STRING

noticias.Source = "SELECT * FROM noticias WHERE texto LIKE '%" + Replace(noticias__MMColParam, "'", "''") + "%'"

noticias.CursorType = 0

noticias.CursorLocation = 2

noticias.LockType = 1

noticias.Open()

noticias_numRows = 0

%>

<%

Dim links

Dim links_numRows

Set links = Server.CreateObject("ADODB.Recordset")

links.ActiveConnection = MM_ney_STRING

links.Source = "SELECT * FROM links_menu_lateral"

links.CursorType = 0

links.CursorLocation = 2

links.LockType = 1

links.Open()

links_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = 10

Repeat1__index = 0

noticias_numRows = noticias_numRows + Repeat1__numRows

%>

<%

' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim noticias_total

Dim noticias_first

Dim noticias_last

' set the record count

noticias_total = noticias.RecordCount

' set the number of rows displayed on this page

If (noticias_numRows < 0) Then

noticias_numRows = noticias_total

Elseif (noticias_numRows = 0) Then

noticias_numRows = 1

End If

' set the first and last displayed record

noticias_first = 1

noticias_last = noticias_first + noticias_numRows - 1

' if we have the correct record count, check the other stats

If (noticias_total <> -1) Then

If (noticias_first > noticias_total) Then

noticias_first = noticias_total

End If

If (noticias_last > noticias_total) Then

noticias_last = noticias_total

End If

If (noticias_numRows > noticias_total) Then

noticias_numRows = noticias_total

End If

End If

%>

<%

' *** Recordset Stats: if we don't know the record count, manually count them

If (noticias_total = -1) Then

' count the total records by iterating through the recordset

noticias_total=0

While (Not noticias.EOF)

noticias_total = noticias_total + 1

noticias.MoveNext

Wend

' reset the cursor to the beginning

If (noticias.CursorType > 0) Then

noticias.MoveFirst

Else

noticias.Requery

End If

' set the number of rows displayed on this page

If (noticias_numRows < 0 Or noticias_numRows > noticias_total) Then

noticias_numRows = noticias_total

End If

' set the first and last displayed record

noticias_first = 1

noticias_last = noticias_first + noticias_numRows - 1

If (noticias_first > noticias_total) Then

noticias_first = noticias_total

End If

If (noticias_last > noticias_total) Then

noticias_last = noticias_total

End If

End If

%>

<%

Dim MM_paramName

%>

<%

' *** Move To Record and Go To Record: declare variables

Dim MM_rs

Dim MM_rsCount

Dim MM_size

Dim MM_uniqueCol

Dim MM_offset

Dim MM_atTotal

Dim MM_paramIsDefined

Dim MM_param

Dim MM_index

Set MM_rs = noticias

MM_rsCount = noticias_total

MM_size = noticias_numRows

MM_uniqueCol = ""

MM_paramName = ""

MM_offset = 0

MM_atTotal = false

MM_paramIsDefined = false

If (MM_paramName <> "") Then

MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")

End If

%>

<%

' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter

MM_param = Request.QueryString("index")

If (MM_param = "") Then

MM_param = Request.QueryString("offset")

End If

If (MM_param <> "") Then

MM_offset = Int(MM_param)

End If

' if we have a record count, check if we are past the end of the recordset

If (MM_rsCount <> -1) Then

If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last

If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

End If

End If

' move the cursor to the selected record

MM_index = 0

While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

If (MM_rs.EOF) Then

MM_offset = MM_index ' set MM_offset to the last possible record

End If

End If

%>

<%

' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page

MM_index = MM_offset

While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size

If (MM_rs.EOF) Then

MM_rsCount = MM_index

If (MM_size < 0 Or MM_size > MM_rsCount) Then

MM_size = MM_rsCount

End If

End If

' if we walked off the end, set the offset based on page size

If (MM_rs.EOF And Not MM_paramIsDefined) Then

If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then

If ((MM_rsCount Mod MM_size) > 0) Then

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

End If

End If

' reset the cursor to the beginning

If (MM_rs.CursorType > 0) Then

MM_rs.MoveFirst

Else

MM_rs.Requery

End If

' move the cursor to the selected record

MM_index = 0

While (Not MM_rs.EOF And MM_index < MM_offset)

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

End If

%>

<%

' *** Move To Record: update recordset stats

' set the first and last displayed record

noticias_first = MM_offset + 1

noticias_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then

If (noticias_first > MM_rsCount) Then

noticias_first = MM_rsCount

End If

If (noticias_last > MM_rsCount) Then

noticias_last = MM_rsCount

End If

End If

' set the boolean used by hide region to check if we are on the last record

MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

End If

Next

' add the Form variables to the MM_keepForm string

For Each MM_item In Request.Form

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

End If

Next

' create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "") Then

MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove

Dim MM_moveParam

Dim MM_moveFirst

Dim MM_moveLast

Dim MM_moveNext

Dim MM_movePrev

Dim MM_urlStr

Dim MM_paramList

Dim MM_paramIndex

Dim MM_nextParam

MM_keepMove = MM_keepBoth

MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters

If (MM_size > 1) Then

MM_moveParam = "offset"

If (MM_keepMove <> "") Then

MM_paramList = Split(MM_keepMove, "&")

MM_keepMove = ""

For MM_paramIndex = 0 To UBound(MM_paramList)

MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)

If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then

MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)

End If

Next

If (MM_keepMove <> "") Then

MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)

End If

End If

End If

' set the strings for the move to links

If (MM_keepMove <> "") Then

MM_keepMove = MM_keepMove & "&"

End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"

MM_moveLast = MM_urlStr & "-1"

MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)

If (MM_offset - MM_size < 0) Then

MM_movePrev = MM_urlStr & "0"

Else

MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)

End If

%>

<html>

<head>

<style>

a { text-decoration:none; }

</style>

<style>

a:hover{color:#5d698d;}

</style>

<title>cabeca_site_ney_nova.gif</title>

<meta http-equiv="Content-Type" content="text/html;">

<!-- Fireworks MX Dreamweaver MX target. Created Thu Oct 20 17:57:33 GMT-0200 (Horário brasileiro de verão) 2005-->

<meta name="generator" content="Namo WebEditor v5.0(Trial)">

</head>

<body bgcolor="#CCCCCC" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" link="black" vlink="black" alink="black">

<table style="border-collapse:collapse;" align="center" border="0" cellpadding="0" cellspacing="0" width="775">

<tr>

<td width="775" height="151" colspan="3" background="images/main.jpg" style="border-top-width:1; border-right-width:1; border-bottom-width:1; border-left-width:1; border-color:black; border-style:solid;">

<p style="border-collapse:collapse;" align="center">&nbsp;</p>

</td>

</tr>

<tr>

<td width="775" height="19" colspan="3" background="images/deg.jpg" style="border-top-width:1; border-right-width:1; border-bottom-width:1; border-left-width:1; border-color:black; border-style:solid;">

<p align="center"><span style="font-size:8pt;"><a href="default.asp"><b><font face="Arial" color="black">PRINCIPAL</font></b></a><font face="Arial" color="black"><b> &nbsp;|&nbsp;&nbsp;</b></font><a href="noticias.asp"><b><font face="Arial" color="black">NOTÍCIAS</font></b></a><font face="Arial" color="black"><b> &nbsp;|&nbsp;&nbsp;</b></font><a href="projetos_requerimentos.asp"><b><font face="Arial" color="black">PROJETOS

E REQUERIMENTOS</font></b></a><font face="Arial" color="black"><b> &nbsp;|&nbsp;&nbsp;</b></font><a href="eventos_menu.asp"><b><font face="Arial" color="black">APOIO A EVENTOS</font></b></a><font face="Arial" color="black"><b> &nbsp;|&nbsp;&nbsp;</b></font><a href="agenda.asp"><b><font face="Arial" color="black">AGENDA</font></b></a><font face="Arial" color="black"><b>

&nbsp;|&nbsp;&nbsp;</b></font><a href="album_menu.asp"><b><font face="Arial" color="black">GALERIA DE FOTOS</font></b></a></span></p>

</td>

</tr>

<tr>

<td width="775" height="169" colspan="3" bgcolor="#E7E3E7" style="border-top-width:1; border-right-width:1; border-left-width:1; border-top-color:black; border-right-color:black; border-left-color:black; border-top-style:solid; border-right-style:solid; border-left-style:solid;"> <table style="border-collapse:collapse;" align="center" cellpadding="0" cellspacing="0" width="765">

<tr>

<td width="175" height="5" valign="top">

<p><span style="font-size:1pt;">&nbsp;</span></p>

</td>

<td width="4" height="5" valign="top">

<p><span style="font-size:1pt;">&nbsp;</span></p>

</td>

<td width="586" height="5" valign="top" style="border-bottom-width:1; border-bottom-color:rgb(102,102,102); border-bottom-style:solid;">

<p><span style="font-size:1pt;">&nbsp;</span></p>

</td>

</tr>

<tr>

<td width="175" height="343" valign="top" rowspan="3" bgcolor="#E7E3E7">

<table style="border-collapse:collapse;" cellspacing="0" width="172">

<tr>

<td width="170" height="165" valign="top" background="images/degmenu.jpg" style="border-width:1; border-color:rgb(102,102,102); border-style:solid;">

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="historia.asp">A História de Ney Perez</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="atendimento.asp">Atendimento à comunidade</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="cidade.asp">Cidade Ocidental</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="governo.asp">De olho no governo</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD height="22"><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="partido.asp">Partido Político - PPS</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="equipe.asp">Nossa Equipe</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="parceiros.asp">Parceiros</A>

</B></FONT></SPAN></TD></TR></TBODY></TABLE>

<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%" border=0>

<TBODY>

<TR>

<TD><SPAN style="FONT-SIZE: 8pt"><FONT face=Arial><B>:: <A

href="links.asp">Links</A> </B></FONT></SPAN></TD></TR></TBODY></TABLE>

<p style="margin-top:3; margin-right:8; margin-bottom:3; margin-left:8;" align="left">

</p>

</td>

</tr>

<tr>

<td width="170" height="172" bgcolor="#E7E3E7" valign="bottom" style="border-top-width:1; border-top-color:rgb(102,102,102); border-top-style:solid;">

<p style="margin-top:0; margin-bottom:0;" align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0" width="140" height="130">

<param name="movie" value="images/100.swf">

<param name="play" value="true">

<param name="loop" value="true">

<param name="quality" value="high">

<embed src="images/100.swf" play="true" loop="true" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" width="140" height="130"></embed>

</object></p>

<p style="margin-top:0; margin-bottom:0;" align="center"><font face="Arial"><span style="font-size:10pt;"><b>Fale

com o amigo Ney Perez. Clique no coração!</b></span></font></p>

</td>

</tr>

</table>

</td>

<td width="4" height="343" valign="top" rowspan="3" bgcolor="#E7E3E7" style="border-right-width:1; border-right-color:rgb(102,102,102); border-right-style:solid;">

<p>&nbsp;</p>

</td>

<td width="586" height="17" valign="top" bgcolor="#636563" style="border-top-width:1; border-right-width:1; border-left-width:1; border-top-color:rgb(102,102,102); border-right-color:rgb(102,102,102); border-left-color:rgb(102,102,102); border-top-style:solid; border-right-style:solid; border-left-style:solid;">

<p><img src="images/cab_noticias.gif" width="584" height="22" border="0"></p>

</td>

</tr>

<tr>

<td width="586" height="5" valign="top" bgcolor="#5D698D" style="border-right-width:1; border-left-width:1; border-right-color:rgb(102,102,102); border-left-color:rgb(102,102,102); border-right-style:solid; border-left-style:solid;">

<p><span style="font-size:3pt;">&nbsp;</span></p>

</td>

</tr>

<tr>

<td width="586" height="313" valign="top" bgcolor="white" style="border-right-width:1; border-bottom-width:1; border-left-width:1; border-right-color:rgb(102,102,102); border-bottom-color:rgb(102,102,102); border-left-color:rgb(102,102,102); border-right-style:solid; border-bottom-style:solid; border-left-style:solid;">

<p style="margin:0;" align="left">

<% If Not noticias.EOF Or Not noticias.BOF Then %>

&nbsp;<span style="font-size:8pt;"><b><font face="Arial">Encontradas

<%=(noticias_total)%> notícias. Mosrando de <%=(noticias_first)%> a <%=(noticias_last)%></font></b></span>

<% End If ' end Not noticias.EOF Or NOT noticias.BOF %>

</p>

<% If noticias.EOF And noticias.BOF Then %>

<p style="margin:0;" align="left">&nbsp;<strong><font size="1" face="Arial, Helvetica, sans-serif">A

pesquisa solicitada não retornou resultados. <a href="noticias.asp">Clique

aqui </a>e tente novamente</font></strong></p>

<% End If ' end noticias.EOF And noticias.BOF %>

<p style="margin:0;" align="left">&nbsp;</p>

<div align="left">

<table style="margin-right:0; margin-left:0;" border="0" cellpadding="0" cellspacing="0" width="581">

<%

While ((Repeat1__numRows <> 0) AND (NOT noticias.EOF))

%>

<tr>

<td width="581" height="19">

<p style="margin-right:5; margin-left:5;" align="left"><font color="#990000" face="Arial, Helvetica, sans-serif"><span style="font-size:9pt;"><%=(noticias.Fields.Item("data").Value)%> - </span></font><A HREF="noticia_det.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "titulo=" & noticias.Fields.Item("titulo").Value %>"><strong><font face="Arial, Helvetica, sans-serif" color="#003399"><span style="font-size:9pt;"><%=(noticias.Fields.Item("titulo").Value)%></span></font></strong></A></p></td>

</tr>

<tr>

<td width="581">

<p style="margin-right:5; margin-left:5;"><font color="#666666" face="Arial, Helvetica, sans-serif"><span style="font-size:8pt;"><%=(noticias.Fields.Item("sutia").Value)%></span></font></td>

</tr>

<tr>

<td width="581">

<p><span style="font-size:8pt;">&nbsp;</span></p></td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

noticias.MoveNext()

Wend

%>

</table>

</div>

<div align="right">

<table border="0" width="50%">

<tr>

<td width="23%" align="center">

<strong><span style="font-size:8pt;"><font face="Arial"><% If MM_offset <> 0 Then %>

</font></span><a href="<%=MM_moveFirst%>"><span style="font-size:8pt;"><font face="Arial">PRIMEIRA</font></span></a><span style="font-size:8pt;"><font face="Arial">

<% End If ' end MM_offset <> 0 %>

</font></span></strong></td>

<td width="31%" align="center">

<strong><span style="font-size:8pt;"><font face="Arial"><% If MM_offset <> 0 Then %>

</font></span><a href="<%=MM_movePrev%>"><span style="font-size:8pt;"><font face="Arial">ANTERIOR</font></span></a><span style="font-size:8pt;"><font face="Arial">

<% End If ' end MM_offset <> 0 %>

</font></span></strong></td>

<td width="23%" align="center">

<strong><span style="font-size:8pt;"><font face="Arial"><% If Not MM_atTotal Then %>

</font></span><a href="<%=MM_moveNext%>"><span style="font-size:8pt;"><font face="Arial">PRÓXIMA</font></span></a><span style="font-size:8pt;"><font face="Arial">

<% End If ' end Not MM_atTotal %>

</font></span></strong></td>

<td width="23%" align="center">

<strong><span style="font-size:8pt;"><font face="Arial"><% If Not MM_atTotal Then %>

</font></span><a href="<%=MM_moveLast%>"><span style="font-size:8pt;"><font face="Arial">ÚLTIMA</font></span></a><span style="font-size:8pt;"><font face="Arial">

<% End If ' end Not MM_atTotal %>

</font></span></strong></td>

</tr>

</table>

</div>

<p style="margin-top:0; margin-right:5; margin-bottom:0; margin-left:5;" align="left"><span style="font-size:8pt;">&nbsp;</span></p>

</td>

</tr>

</table>

</td>

</tr>

<tr>

<td width="181" bgcolor="#E7E3E7" style="border-left-width:1; border-left-color:black; border-left-style:solid;"><p align="left">&nbsp;</p>

</td>

<td width="404" bgcolor="#E7E3E7">

<p>&nbsp;</p>

</td>

<td width="190" bgcolor="#E7E3E7" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p align="right" style="margin-top:0; margin-bottom:0;">&nbsp;</p>

</td>

</tr>

<tr>

<td width="181" style="border-bottom-width:1; border-left-width:1; border-bottom-color:black; border-left-color:black; border-bottom-style:solid; border-left-style:solid;">

<p>&nbsp;</p>

</td>

<td width="404" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;">

<p align="center"><b><span style="font-size:7pt;"><font face="Arial">©

Vereador Ney Perez 2005&nbsp;- Todos os direitos reservados</font></span></b></p>

</td>

<td width="190" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">

<p>&nbsp;</p>

</td>

</tr>

</table>

</body>

</html>

<%

noticias.Close()

Set noticias = Nothing

%>

<%

links.Close()

Set links = Nothing

%>