Response.CodePage = 65001 
Response.CharSet = "utf-8" 
private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
StrHTTP.Open "GET" , adres, false  
StrHTTP.sEnd  
GETHTTP = fonkStream(strhttp.ResponseBody,"windows-1254") 
Set StrHTTP = Nothing  
End Function  

function fonkStream(Veri,KarakterSet)
dim objStream
set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Type = 1
 objStream.Mode = 3
 objStream.Open
 objStream.Write Veri
 objStream.Position = 0
 objStream.Type = 2
 objStream.Charset = KarakterSet
 fonkStream = objStream.ReadText 
 objStream.Close
set objStream = Nothing
end function

site = gethttp("http://kayserieo.org.tr") 
bol = split(site,"<tr><td colspan=2>")
bol2 = split(bol(1),"<tr>")
response.Write "24 saat açıklar <br />"
for i=1 to ubound(bol2)
isim1 = instr(1,bol2(i),"return false"">")+14
isim2 = instr(1,bol2(i),"</a>")
isim = mid(bol2(i),isim1,isim2-isim1)
response.Write ">"&isim&"<br />" 
next
kes1 = instr(1,bol(2),"24 saat açıklar")+15
kes2 = instr(1,bol(2),"</table>")
kes = mid(bol(2),kes1,kes2-kes1) 
response.Write "gece 1 e kadar acıklar <br />"
bol3 = split(kes,"<tr>")
for a=1 to ubound(bol3)
isim11 = instr(1,bol3(a),"return false"">")+14
isim12 = instr(1,bol3(a),"</a>")
isim10 = mid(bol3(a),isim11,isim12-isim11)
response.Write ">"&isim10&"<br />"
next

<meta http-equiv="content-type" content="text/html;charset=iso-8859-9" />
<meta http-equiv="content-type" content="text/html;charset=windows-1254" />