Merhabalar, aşağıda bir bot denemesi yaptım, listelenen haberlerden ilk haberin linkinin içine giriyor ve haber detayını alıyorum, fakat diğer haberlerin linkine giremiyorum, 8 tane haberin detayını çekmesi gerekiyor, fakat 8 kere aynı haberin içeriğini çekiyor, döngüde problem var sanırım, ama bir türlü çözemedim mantığı.
<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
url = "http://galatasaraysd.org/etkinlikler"
kaynak = GETHTTP(url)
kaynakbasla = instr(kaynak, "<html xmlns=""http://www.w3.org/1999/xhtml"">")
kaynakbit = instrRev(kaynak, "</html>")
gaynah = mid(kaynak, kaynakbasla, kaynakbit-kaynakbasla)
haberadi1 = split(gaynah, "<div id=""Haberler_AnaSayfa_Baslik""><a href=""/haberoku/")
for i=1 to ubound(haberadi1)
haberadi =split(haberadi1(i),"/")
url2 = "http://galatasaraysd.org/haberoku/"& haberadi(0) &""
kaynak2 = GETHTTP(url2)
kaynakbasla2 = instr(kaynak2, "<html xmlns=""http://www.w3.org/1999/xhtml"">")
kaynakbit2 = instrRev(kaynak2, "</html>")
gaynah2 = mid(kaynak2, kaynakbasla2, kaynakbit2-kaynakbasla2)
baslik1 = split(gaynah2, "<title>")
baslik =split(baslik1(i),"</title>")
detay1 = split(gaynah2, "<div id=""haberdetayi"">")
detay =split(detay1(i),"</div>")
response.write baslik(0)
response.write "<br/>"
response.write detay(0)
response.write "<br/>"
response.write "<br/>"
next
%>