Merhaba Arkadaşlar Microsoft.XMLHTTP konusunda bir kaç araştırma yaptıktan sonra biraz yol aldım fakat bir noktada kesildim oda zaten son varmak istediğim yer

sorunum şu elimde bir sayfada belli aralıklardaki verileri alıp veri tabanına kayıt etmem için gerekli kod var:

<%
Function BinaryToString(Binary) 
    Dim cl1, cl2, cl3, pl1, pl2, pl3 
    Dim L 
        cl1 = 1 
        cl2 = 1 
        cl3 = 1 
        L = LenB(Binary) 
    Do While cl1<=L 
        pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
        cl1 = cl1 + 1 
        cl3 = cl3 + 1 
    If cl3>300 Then 
        pl2 = pl2 & pl3 
        pl3 = ""
        cl3 = 1 
        cl2 = cl2 + 1 
    If cl2>200 Then 
    pl1 = pl1 & pl2 
    pl2 = "" 
    cl2 = 1 
    End If 
    End If 
    Loop 
    BinaryToString = pl1 & pl2 & pl3 
End Function

On error resume next
site = "http://www."& adres &""

Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
  HTTP.Open "Get" , site, False
  HTTP.SEnd
Sayfa_Al = BinaryToString(HTTP.ResponseBody)
Set HTTP = Nothing


if err then

 response.write "HATA: "&err.description

 else
  Basla = InStr(1,Sayfa_Al, "<title>" , 1) + Len("<title>" )
  Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla
  Title = Mid(Sayfa_Al, Basla, Bitir)
  
  Basla = InStr(1,Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len("<meta name=""keywords"" content=""" )
  Bitir = InStr(Basla, Sayfa_Al, """>" , 1) - Basla 
  Keyws = Mid(Sayfa_Al, Basla, Bitir)
  
  Basla = InStr(1,Sayfa_Al, "<meta name=""description"" content=""" , 1) + Len("<meta name=""description"" content=""" )
  Bitir = InStr(Basla, Sayfa_Al, """>" , 1) - Basla 
  Descs = Mid(Sayfa_Al, Basla, Bitir)
 end if
%>

Ayrıca bir sayfadaki xxx.asp?id= den id si istediğim aralıkta ki sayfaları tamamen çekip veri tabanına kayıt etme kodu var

<%
abc = "http://beyazperde.mynet.com/film.asp?id="

Public Function alsana(al_gali)
	Set objalsana = Server.CreateObject("Microsoft.XMLHTTP" )
	objalsana.Open "GET",al_gali,FALSE
	objalsana.sEnd
	alsana = objalsana.Responsetext
	SET objalsana = Nothing
End Function

Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")

for i = 3817 to 3820
	url = abc & i
	strURL = url
	strVeri = alsana(strURL)
	sonuc = Mid(strVeri, 1, 999999999)

	SQL = "Select * from filmler where url ='" & url & "'"
	set rs = Server.CreateObject("ADODB.RecordSet")
	rs.open SQL,baglanti,1,3

	if rs.recordcount = 0 then rs.addnew
	rs("url") = url
	rs("sonuc") = sonuc
	rs.update
	Set rs=Nothing
next

Baglanti.Close
Set Baglanti=Nothing
%>

gel gelelim istediğim ikisini birleştirmek baktım kafam karıştı. işin içinde çıkamadım yardım eden belki çıkar diye buradan sormak istedim.

yani bir sayfadaki istediğim id aralığındaki sayfa kodları arasında istediğim veriyi veri tabanına kayıt etmek.

umararım anlatabilmişimdir. Şimdiden yardım eden arkdaşlarda Allah Razı olsun