<%

'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

'Query_String

obje = request.querystring

obje = split(obje,"|")

if obje(1)="" then
Response.Write("Boş bırakmayınız.")
Response.End()
end if

' Adres satırı
strAdres = "http://www.haberler.com/"&obje(1)&"/"


strVeri = VeriAL(strAdres)


'Değerlerimiz

objee = split(strVeri,"<div id=""habermetni"">")

yazdir = Instr(objee(1),"<table border=""0"">")

yazdir2 = Left(objee(1),yazdir-1)



deger1 = yazdir2

'Veriyi yazdıralım.

%>

<%=deger1%>