<%
arakelime=Request("ara")
URL= "http://www.google.com.tr/search?hl=tr&q="&arakelime&"&meta="
On Error Resume Next
Set Veri_al= Server.CreateObject("Softwing.AspTear")
Sayfa_Al = Veri_al.Retrieve(URL,2,"","","")
'Hata Kodumuz "0" dan faklı yani hata var ise.
if Err <> 0 then
response.write Sayfa_Al
'Response.Write "İşlem sırasında bir hata oluştu.<br>"
'Response.Write "<b>Hata Açıklaması :</b> "& Err.Description
'eğer hata var ise aşağıda yazdığımız kısımları sayfamıza yazmasın.
Response.End
end if

%>



<%
For i=1 to 10
%>


<%
Basla = InStr(1,Sayfa_Al, "<em>" , 1) + Len("<em>" )
Bitir = InStr(Basla, Sayfa_Al, "</a></h3>" , 1) - Basla
Title = Mid(Sayfa_Al, Basla, Bitir)
response.write Title &"<br /><br />"


%>

<% Next %>