VBScript - Google Search Parser and Insert into MSSQL

htmlParser.vbs

aramaSeti="araba,bal�k,ferrari,jeton,kelaynak"
' aranacak kelimeler �nce url tipi karakterler ta��mal� TR karakterler ve bo�luklar �evrilmeli
linkTemelAdresi ="http://news.google.com/news/search?pz=1&cf=all&ned=tr_tr&hl=tr&q="

arananlar = split(aramaSeti,",")
	For araNo=0 to UBound(arananlar)-1
		Dim objHttp
			Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
			objHttp.Open "GET", linkTemelAdresi & arananlar(araNo), False
			msgbox(linkTemelAdresi & arananlar(araNo))
			objHttp.Send
			gelenHtml = objHttp.ResponseText
			htmlAyikla arananlar(araNo),kelimeyiURIyap(arananlar(araNo)),gelenHtml
			Set objHttp = Nothing
	Next

Function htmlAyikla(ananKelime,arananKelimeURI,gonderilenHTML)
msgbox(gonderilenHTML)
if InStr(gonderilenHTML,"href")>0 then
ayiklama_1_dizisi = split(gonderilenHTML,"href=")	
Else
msgbox("Gelen metinde href yer alm�yor")
End if


For cvb=1 TO Ubound(ayiklama_1_dizisi) Step 2
msgbox(LEFT(ayiklama_1_dizisi(cvb),75))
next
	
' ay�klama sonu�lar� kaydettirilmeli, url ve aranan kelime birlikte	
	'baglanKaydet arananKelime,arananKelimeURI,bulunanURL
End Function	
	
	
	
	
	'Ba�lant� ve kay�t fonksiyonu
Function baglanKaydet(arananKelime,arananKelimeURI,bulunanURL)
'-------------Bypass---<
		' MSSQLe ba�lant�<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
		DIM baglanti
		set baglanti = CreateObject("ADODB.Connection")
		baglanti.ConnectionString = "Provider=SQLNCLI; DRIVER=SQL Server; SERVER=.; UID=databaseuid; PWD=password; DATABASE=databasename;"
		baglanti.open
'----------------------<
kayitSQLi = "INSERT INTO haberal (urlmiz,baslik,haber,foto,tarih) VALUES ('"& urlsi &"','"& baslik &"','"& haber &"','"& foto &"',CONVERT(smalldatetime,'"& Now &"',104))"
msgbox(kayitSQLi)
	baglanti.Execute kayitSQLi
	Set baglanti = Nothing
End Function

function kelimeyiURIyap(gelenkelime)
	' kelimeyi urlme i�lemleri
	gidenKelime=gelenkelime
	kelimeyiURIyap = gidenKelime
End function


Function dosyaYapYaz(gelenIcerik)
dim filesys, filetxt, getname, path
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile(WScript.ScriptFullName &"\somefile.txt", True)
filetxt.WriteLine(gelenIcerik)
filetxt.Close

End function