başka siteden bilgi çekmek

merhaba arkadaşlar

çalıştığım şirketin hazır web şablonuna bir siteden bilgi çekmek istiyoruz ama başaramadık

bizim site asp ile yapılmış hazır bir site bilgileri almak istediğimiz site ise "http://www.adanatb.org.tr/ " sitesidir bu sitedeki sayfa resminin hemen altında geçen tohum fiyatlarıyla ilgili alanı kendi sitemize eklemek istiyoruz
biz şöyle bir komut yazdık;

<%

Function GETHTTP(adres)

Set StrHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP.3.0¨ )

StrHTTP.Open “GET” , adres, false

StrHTTP.sEnd

GETHTTP = StrHTTP.Responsetext

Set StrHTTP = Nothing

End Function

%>



<%

dim aranan,temp,URL,Veri,AramaBaslangic,AramaBitis,Hata

URL = “http://www.adanatb.org.tr/”

Veri = GETHTTP(Url)

%>



<%

AramaBaslangic = “<!–BEGIN: HEADER–>”

AramaBitis = “<!–END: HEADER–>”

if Veri=”" then

Hata = 1

end if

temp=”"

if Hata > 0 then

temp=”Sayfada hata var”

else

KodBaslasin = Instr(Veri, AramaBaslangic)

KodBitsin = Instr(Veri, AramaBitis)

Sonuclar = Mid(Veri, (KodBaslasin), ((KodBitsin)-(KodBaslasin)))

Sonuclar = Replace(Sonuclar,”ASP Kodları”,”ASP Dersleri”)

temp = Sonuclar

end if

Response.Write temp

%>

acaba nerede yanlış yapıyoruz nasıl düzeltebiliriz.

Seni o siteden veri çekmen biraz zor çünkü site değil sanki kağnı

http://www.zumrut.org/AccessTR/index.php adresindeki gibi bir sonuçmu istiyorsunuz?

evet aynen böyle bir sonuç istiyoruz

---

bu site yavaş öldürüyo açılana kadar. bide izmir ticaret borsası var ama bu daha iyi napalım artık

Dosyayı vereyim o zaman size ancak PHP ile yazdım bunu. Sizin sunucu PHP destekliyor mu?

yok desteklemiyo sunucu windows site asp manuel yapmak çok zor oluyo o sitede değiştimi bizimkide ona ayak uydursun istiyorum yukarda yazdığım kodu desteklemedi hazır sistem bizimki bide fazlasıyla kısıtlı o yüzden olabilir ama scriptleri destekliyo