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
