[Resolvido] você quiz dizer...

[desisto 0]

mas acaba limitando o sistema

o usuario pode errar a letra que quiser :)

[Patrique 0]

hahahahahahahahahha mais ae a culpa não é minha... e sim do google hehehehe já que eu fiz utilizando xmlhttp rsrsrsrsrsrsrsrsrsrsrrsrs portanto se não aparecer lá no google não vai aparecer no meu kkkkkkkkkk

 

Aos interessados pela gambiarra

 

<%
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0

Public Function BinaryToString(xBinary)
	Dim Binary
	Dim RS, LBinary
	If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
	Const adLongVarChar = 201
	Set RS = CreateObject("ADODB.Recordset")
	LBinary = LenB(Binary)
	If LBinary>0 Then
		RS.Fields.Append "mBinary", adLongVarChar, LBinary
		RS.Open
		RS.AddNew
		RS("mBinary").AppendChunk Binary
		RS.Update
		BinaryToString = RS("mBinary")
	Else
		BinaryToString = ""
	End If
	Set RS = Nothing
End Function

Public Function MultiByteToBinary(MultiByte)
	Dim RS, LMultiByte, Binary
	Const adLongVarBinary = 205
	Set RS = CreateObject("ADODB.Recordset")
	LMultiByte = LenB(MultiByte)
	If LMultiByte>0 Then
		RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
		RS.Open
		RS.AddNew
		RS("mBinary").AppendChunk MultiByte & ChrB(0)
		RS.Update
		Binary = RS("mBinary").GetChunk(LMultiByte)
	End If
	Set RS = Nothing
	MultiByteToBinary = Binary
End Function
%>
<%
palavra = request.form("palavra")

pesquisa = "http://www.google.com.br/search?hl=pt-BR&q="& palavra &"&meta=&aq=f&oq="

On Error Resume Next

Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
	xmlhttp.Open "GET",pesquisa, False
	xmlhttp.setRequestHeader "ContentType","text/html"
	xmlhttp.Send()

	codigo = BinaryToString(xmlhttp.ResponseBody)

	antes = "result&cd=1&q="
	depois = "&spell=1"
	codigo = Replace(codigo,antes,"##")
	codigo = Replace(codigo,depois,"##")
	path = split(codigo,"##")
	sugerida = path(1)

%>

<form action="voce.asp" method="post">
	<input type="text" size="20" name="palavra" />
	<input class="button" type="image" style='border:0px' src="http://www.fepam.rs.gov.br/licenciamento/imagens/botao_buscar_conteudo_lista.jpg" />
</form>

<%
if request.form("palavra") = "" then
response.write "Faça a busca por alguma palavra"
else
	if sugerida = "" then
		response.write "Nenhuma sugestão encontrada"
	else
		response.write "Você quis dizer: <a href=pesquisa.asp?busca="& sugerida &">"& sugerida &"</a>"
	end if
end if

%>

Minha conta para o desposito de 1.000 pila é

 

Banco Real

 

Agencia: 0265

Conta: 1736636-0

Patrique André Alves da Silva

 

heheheheeh

 

[]'s

[hargon 64]

eu fiz utilizando xmlhttp rsrsrsrsrsrsrsrsrsrsrrsrs

Eu juro que cheguei a pensar que você fez dessa forma... kkk

[desisto 0]

hahahahahahahahahha mais ae a culpa não é minha... e sim do google hehehehe já que eu fiz utilizando xmlhttp rsrsrsrsrsrsrsrsrsrsrrsrs portanto se não aparecer lá no google não vai aparecer no meu kkkkkkkkkk

o pior é que a culpa nao é nem sua nem do google, e sim do cara que escreveu

o google indexou palavras erradas como certo

bostafogo, lucianta gimenez...

 

o melhor é fazer o proprio

 

[]s