<%
'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

%>