Consegui utilizar o IIS e visualizar o sistema de busca q o Luis criou.
Obrigado pelas dicas, e sempre q puder estarei pronto a ajudar tbm.



Pra quem quizer aprender mais sobre IIS acessa aqui http://www.criarweb.com/iis/
Abraços...
Israelf hasn't added any friends yet.
13/01/2007, 19:06
13/01/2007, 01:51
XPG não tem suporte a ASP nem nenhuma linguagem no Plano Free ...
Memos no plano pago ele não tem ASP no máximo PHP...
Mas aqui não ta entrando sua página ...
12/01/2007, 09:47
como esta seu cod?
<%
Busca = Trim(Request.form("buscando"))
%>
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("banco.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function
%>
<%
Busca=TiraAspas(Busca)
strSql = "SELECT * FROM cadastro WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>
Resultado da busca<br>
<%
if (len(busca)<=2) then
Response.write("Digite uma palavra com o mínimo de 3 letras para fazer a busca.")
ElseIf (Busca = "") then
Response.write("Você precisa escrever uma palavra para fazer uma busca.")
ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente ser menos específico."
Else
do While not objRS.EOF
%>
<%=objRS(TiraAspas("nome"))%><br>
<%
objRS.MoveNext
Loop
End IF
%>
08/01/2007, 00:03
07/01/2007, 23:37
Community Forum Software by IP.Board
Licensed to: Webmasters Online