marcellogbt

esse 3,3 define de qual maneira o banco sera aberto

nesse caso ai: adOpenStatic, adLockOptimistic

esse lugar e onde vc define se a consulta sera somente leitura, ou sera um aconsulta atualizavel e assim por diante

Gostaria de saber se voce sabe como faço para reprogramar minha pagina de resultado_procura.asp, que antes era conectada pela caixa de busca conforme segue:

<%
comando1 = "select * from categorias"
comando2 = "select * from cidades order by cidade"
Set Conn = server.createobject("adodb.connection")
Conn.open Connstring, "", ""
Set rs1 = Conn.execute(comando1)
Set rs2 = Conn.execute(comando2)
%>
<form method="get" name="procura" action="resultado_procura7.asp">
<div align="left"></div>
<table width="56%" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#3399CC">
<tr>
<td><font face="Arial, Helvetica, sans-serif" size="2"><font face="Arial, Helvetica, sans-serif" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Procurar
por</font></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">:</font></font><br>
<input type="text" name="palavra_procura" size="17" class="formulario">
<font face="Arial, Helvetica, sans-serif" size="2"><font size="2" face="Arial, Helvetica, sans-serif">
</font></font><br> <font face="Arial, Helvetica, sans-serif" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">na
cidade de: </font></font> <br>
<select name="cidade" class="formulario" id="cidade">
<option value="#" selected>--------- cidade ---------</option>
<% while not rs2.EOF %>
<option value="<%=rs2("id_cidade")%>"><%=rs2("cidade")%></option>
<%
rs2.MoveNext
wend
%>
</select><br>
<font face="Arial, Helvetica, sans-serif" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">na
categoria de:</font><br>
<select name="id_categoria" class="formulario">
<option value="#" selected>------ categoria ------</option>
<% while not rs1.eof %>
<option value="<%=rs1("id_categoria")%>"><%=rs1("categoria")%></option>
<%
rs1.MoveNext
wend
%>
</select>
<input type="hidden" name="chave_procura" value="formulario">
</font>
<p align="center"><font face="Arial, Helvetica, sans-serif" size="2">
<input type="submit" name="Submit" value="Procurar" class="formulario">
</font></p>
</td>
</tr>
</table>

<div align="left">
<%
Conn.Close
Set rs1 = Nothing
%>
</div>
</form>

e dai no inicio da pagina resultado_procura.asp, ela respondia desta forma:


<!--#include file="path_bd_guia.inc" -->
<%
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0
Response.Buffer = True

Private Function ConverteTexto(varTexto)
Dim y, x, z, limite
limite = Len(Trim(varTexto))
y = ""
for x = 1 to limite
z = Mid(varTexto, x, 1)
if z = CHR(10) Then
z = "<br>"
end if
y = y & z
next
ConverteTexto = y
End Function

Function Validacao(s)

sStringsRecusados = array(" insert", " update", " delete", " drop", "insert ", "update ", "delete ", "drop ", "-", "'", """", "@@")
Validacao = True
For i = Lbound(sStringsRecusados) to UBound(sStringsRecusados)
if (InStr(1, LCase(s), sStringsRecusados(i), vbTextCompare) <> 0) Then
Validacao = False
Exit Function
End if
Next

sStringCharValidos = "abcdefghijklmnopqrstuvwyxzABCDEFGHIJKLMNOPQRSTUVWYXZ0123456789ÁÀÃÂÄÇÉÈÊËÍÌÏÓÒÔÖÚÙÜÑáàãâäçéèêëíìïóòôöúùüñ-_@/\&!?.%*()[]{}:,=#+$ºª" & vbCrLf
For i = 1 To len(s)
Caractere = mid(s, i, 1)
If (Instr(sStringCharValidos, Caractere) = 0) Then
Validacao = False
Exit Function
End if
Next
End Function

'Function ValidaEntrada()

For Each campo in Request.Querystring
If Not Validacao(Request.Querystring(campo)) Then
Response.Write "Você digitou caractere(s) proibido(s) no parâmetro " & campo & "!" & "<br>" & "Favor refazer a sua pesquisa. <A HREF=""index_site.asp"">Página Principal</A>"
Response.End
End if
Next
'End Function
%>

<%
chave_procura = request.querystring("chave_procura")
estado = request.querystring("estado")
cidade = request.querystring("cidade")
'id_categoria = session("id_categoria")
if chave_procura="formulario" then
id_categoria = request.querystring("id_categoria")
elseif chave_procura="mapa" then
id_categoria = request("santoscompra")("categoria")
end if
if cidade="#" or id_categoria="#" then
response.redirect("index_site.asp")
end if
select case id_categoria
case "1"
categoria = "Advogados"

e assim por diante até a ultima categoria, e depois lá abaixo a construção do sql era assim na consulta feita pelo formulario:


<%
a="'"
Set Conn= server.createobject("adodb.connection")
Conn.open ConnString,"",""

intRecsPerPage="15"

set go = Server.CreateObject("ADODB.Recordset")

if chave_procura = "formulario" then
palavra_procura = request.querystring("palavra_procura")

if id_categoria = "1" then
sSQL="select * from advogados where cod_cidade=" + cidade + " and cod_categoria=" + id_categoria + " ORDER BY ADVOGADOS"


e desta forma pelo mapa:

else
response.redirect("index_site.asp")
end if

elseif chave_procura = "mapa" then
cidade = request.querystring("cidade")

if id_categoria = "1" then
sSQL="select * from advogados where cod_cidade=" + cidade + " and cod_categoria=" + id_categoria + " ORDER BY ADVOGADOS"

e no fim de tudo isso, vinha este codigo:

end if

end if

go.Open sSQL, Conn,3,3

if go.eof then
%>

BEM, MINHA DUVIDA É A SEGUINTE, PRECISO MUDAR A FORMA DE BUSCA, ENTÃO ESTOU INTRODUZINDO UMA COMBO TRIPLA COM A CATEGORIA, DEPOIS ESCOLHA A CIDADE, E OS BAIRROS CARREGAM AUTOMATICAMENTE REFERENTES A CIDADE ESCOLHIDA, MAS QUANDO FAÇO A BUSCA, ELE DA UMA MENSAGEM DE ERRO QUE É EXATAMENTE A SEGUINTE:

Tipo de erro:
ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/santos/resultado_procuraasp, line 1116

ESTA LINHA 1116, É EXATAMENTE A QUE DIZ (go.Open sSQL, Conn,3,3), SERÁ QUE VOCE PODE ME AJUDAR A FAZER A ALTERAÇÃO NECESSÁRIA PARA QUE FUNCIONE CORRETAMENTE?????

DESDE JÁ AGRADEÇO SUA ATENÇÃO E PRESTEZA

MARCELO