Örneğin;
querystring 'i 1 den 99 'a kadar olan bir sayfam var ve bu sayfadan ASPTear veya XMLHTTP ile verileri almak istiyorum. Fakat 1 den 99 'a kadar say diye kurduğum döngü ne ASPTear da ne de XMLHTTP'de çalışıyor. Sorunu anlayamadım, çünkü dögüyü yazdırdığımda çalışıyor bir
sorun yok ama ASPTear veya XMLHTTP de çalışmıyor.
<%
abc = "http://localhost/sayfa.
ASP?id="
for i = 1 to 99
url = abc & i
next
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
strURL = url
strVeri = alsana(strURL)
sonuc = Mid(strVeri,1,999999999)
'Kodun sağlaması ve çalıştığının delili burada.
for m = 1 to 99
response.write abc & m & "<br>"
next
Set baglanti =
server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={
Microsoft Access Driver (*.mdb)}; DBQ=" &
server.MapPath("db.mdb")
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
end if
rs.movenext
'next
rs.Close
Set rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
%>