[absconder]

dediğim gibi, algoritma yanlış. aşağıdaki kod işinizi görür sanırım.

<%
abc = "http://localhost/sayfa.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 = 1 to 99
	url = abc & i
	strURL = url
	strVeri = alsana(strURL)
	sonuc = Mid(strVeri, 1, 999999999)

	SQL = "Select * from tablo where hucre ='" & 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
%>