bir siteden veri çekilecek yardım

selam arkadaşlar bir siteden veri çekmem gerekiyor çekeceğim site php ancak yayınlıcağım site asp. html veya asp şekilde çekmem gerekiyor bu konuda yardımcı olucak arkadaşlara minnettar olurum.

duyuruların çekileceği site: www.rotary2430.org.tr
anasayfada kayan duyuruları çekmem gerekiyor hiç bir şekilde veritabanına yazma gibi bi derdim yok sadece çekicem.

İsterseniz ücret karşılığında yapabilirim.

istediğiniz ücreti pm atın.

Bu kodu biraz kurcalayın çözersiniz.

<%
'on error resume next
set xmlhttp = server.createobject("msxml2.ServerXMLHTTP")
xmlhttp.open "POST", "http://www.rotary2430.org.tr/index.php", false
xmlhttp.setRequestHeader "Content-Type", "text/html"
xmlhttp.send data
'Response.write xmlhttp.responsetext
Sonuc = xmlhttp.responsetext

baslangic=instr(Sonuc,"duyurular")
son=instr(Sonuc," <div style=")
kestik=mid(Sonuc,baslangic,baslangic-son)
kestik = LTrim(kestik)
kestik = RTrim(kestik)
Response.write "<br>"
response.write kestik

%>

çok sağolasın hocam ancak bu kodda tr karakter sorunu alıyorum onu nasıl aşabilirim?

halletim hocam buyur güle güle kullan yoğunluktan biraz geç cevap verdim kusura bakma.

<%

'Türkçe karakter sorunu çözümü
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

Public Function VeriAl(strGelen)

Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )

objVeriAl.Open "GET" , strGelen, FALSE

objVeriAl.sEnd

VeriAl = BinaryToString(objVeriAl.ResponseBody)

SET objVeriAl = Nothing

End Function



' Adres satırı
strAdres = "http://www.rotary2430.org.tr/index.php"


strVeri = VeriAL(strAdres)


%>

<%

Sonuc = strVeri

baslangic=instr(Sonuc,"duyurular")
son=instr(Sonuc,"<br />")
kestik=mid(Sonuc,baslangic,baslangic-son)
'response.write kestik
kestik = LTrim(kestik)
kestik = RTrim(kestik)
response.write kestik

%>

çok teşekkür ederim hocam işime yaradı repini verdim

Ben teşekkür ederim hocam ne demek elimden geldiğince yardımcı olmaya çalışıyorum.

BinaryToString fonksiyonu büyük boyutlu verilerde aşırı kasıyor bu nedenle tr karakter sorunu yaşamamak için asphttp bileşenini kullanmanızı tavsiye ederim..