aranan=request("webaranan")
aranan=Replace(aranan,"_","")
aranan=server.urlencode(aranan)
sira=request("sira")
post_to_url="https://www.google.com/wml?q="&aranan&"&start="&sira&"&hl=tr&num=5&ie=UTF-8"
Set smslustARA = Server.CreateObject("Msxml2.XMLHTTP")
smslustARA.open "GET",post_to_url, false
smslustARA.send
sonuc=smslustARA.responseText
if sira="" then
sira="0"
else
sira=sira
end if
bas=":<br/>"
son="Sonraki 5..."
yerbasi=instr(sonuc,bas)
yersonu=instr(sonuc,son)
sonuc=mid(sonuc,yerbasi,yersonu)
sonuc=Replace(sonuc,"Google 1-5:","")
sonuc=Replace(sonuc,"<br/>","<br><br><img src='files/buttonRight.gif' border='0' align='absmiddle' vspace='1' hspace='1'>")
sonuc=Replace(sonuc,"Sonraki 5...","")
sonuc=Replace(sonuc,"</card></wml>","")
sonuc=Replace(sonuc,"https://wmlproxy.google.com/wmltrans/h=tr/g=/q="&aranan&"/s="&sira&"/u=","https://")
sonuc=Replace(sonuc,"c=0","")
sonuc=Replace(sonuc,"@2F","/")
sonuc=Replace(sonuc,"<a","<a target=_blank class=menu")
sonuc=Replace(sonuc,"//","/")
sonuc=Replace(sonuc,"http:/","https://")
sonuc=Replace(sonuc,"@7E","~")
sonuc=Replace(sonuc,".htm/",".htm")
sonuc=Replace(sonuc,".html/",".html")
sonuc=Replace(sonuc,".asp/",".asp")
sonuc=Replace(sonuc,".php/",".php")
sonuc=Replace(sonuc,".pdf/",".pdf")
sonuc=Replace(sonuc,".mp3/",".mp3")
sonuc=Replace(sonuc,".exe/",".exe")
sonuc=Replace(sonuc,".doc/",".doc")
sonuc=Replace(sonuc,".xla/",".xla")
sonuc=Replace(sonuc,".xml/",".xml")
sonuc=Replace(sonuc,".cgi/",".cgi")
sonuc=Replace(sonuc,".pl/",".pl")
sonuc=Replace(sonuc,".chm/",".chm")
sonuc=Replace(sonuc,".mov/",".mov")
sonuc=Replace(sonuc,".avi/",".avi")
sonuc=Replace(sonuc,".mpg/",".mpg")
sonuc=Replace(sonuc,".mdb/",".mdb")
sonuc=Replace(sonuc,".rar/",".rar")
sonuc=Replace(sonuc,".arj/",".arj")
sonuc=Replace(sonuc,".zip/",".zip")
sonuc=Replace(sonuc,".xls/",".xls")
sonuc=Replace(sonuc,".bmp/",".bmp")
sonuc=Replace(sonuc,".gif/",".gif")
sonuc=Replace(sonuc,".jpg/",".jpg")
sonuc=Replace(sonuc,".vxd/",".vxd")
sonuc=Replace(sonuc,".dll/",".dll")
sonuc=Replace(sonuc,"@2D","-")
sonuc=Replace(sonuc,"@5F","_")
sonuc=Replace(sonuc,"@3F","?")
sonuc=Replace(sonuc,"@3D","=")
sonuc=Replace(sonuc,"@26","&")
sonuc=Replace(sonuc,"@40","@")
For sayi=0 to 9
sonuc=Replace(sonuc,""&sayi&"/",""&sayi&"")
next
set smslustARA=Nothing
if sira="" Then
nextsira=5
presira=""
else
nextsira=sira+5
presira=sira-5
if sira=0 Then
presira=""
else
presira=presira
if presira=0 Then
presira=""
end if
end if
end if
if sonuc="" Then
sonucYaz="<br>Aranan kelime bulunamadi<BR>"
else
sonuc=Replace(sonuc,"<a target=_blank class=menu href=""/wml?q="&aranan&"&num=5&hl=tr&ie=UTF-8&start="&nextsira&"""></a>","<br>")
sonuc=Replace(sonuc,"<br><br><img src='files/buttonRight.gif' border='0' align='absmiddle' vspace='1' hspace='1'><br>","<br>")
sonucYaz=sonuc
end if
oncekibes="<a href="""& Request.ServerVariables("SCRIPT_NAME") &"?page=webara&show=ok&webaranan="&aranan&"&sira="&presira&""" class=""menu"" title=""Onceki bes"">Onceki 5</a>"
sonrakibes="<a href="""& Request.ServerVariables("SCRIPT_NAME") &"?page=webara&show=ok&webaranan="&aranan&"&sira="&nextsira&""" class=""menu"" title=""Sonraki bes"">Sonraki 5</a>"
%>
<center>
<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
<td></td>
<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
<td></td>
<td width="100%">
<span style="position:relative; top:-4px;" class="homePageFeatures"><b><font color="#ff3300">::</font>
smsLusT Internette arama sonucu</b></span>
</td>
<td></td>
</tr>
<tr>
<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
<td></td>
<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td>
</tr>
</table>
<img src="files/miscSpacer.gif" height="10">
<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
<td></td>
<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
<td></td>
<td width="100%">
<span style="position:relative; top:-4px;" class="homePageFeatures"><b><font color="#ff3300">Bulunan linkler<%=sonucYaz%></span>
</td>
<td></td>
</tr>
<tr>
<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
<td></td>
<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td>
</tr>
</table>
<img src="files/miscSpacer.gif" height="10">
<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
<td colspan="2"></td>
<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
<td></td>
<td width="50%">
<span style="position:relative; top:-4px;" class="homePageFeatures"><b><p align="center"><%=oncekibes%></p></b></span>
</td>
<td width="50%">
<span style="position:relative; top:-4px;" class="homePageFeatures"><b><p align="center"><%=sonrakibes%></p></b></span>
</td>
<td></td>
</tr>
<tr>
<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
<td colspan="2"></td>
<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td
Benimki biraz uzun oldu dreamweaver den host a taşıyordum