arkadaşlar istatistik tutmak için bir bot yapmak istiyorum. internetten ufak bir kod buldum. işimi görüyor ama görsel olarak düzenleyemedim. bunu yapmak mümkün mü acaba? bulduğum kod şu;

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

On error resume next
site = "http://www.domain.com"

Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
  HTTP.Open "Get" , site, False
  HTTP.SEnd
Sayfa_Al = BinaryToString(HTTP.ResponseBody)
Set HTTP = Nothing


if err then

 response.write "HATA: "&err.description

 else
  Basla = InStr(1,Sayfa_Al, "<div id=""cont"">" , 1) + Len("<div id=""cont"">" )
  Bitir = InStr(Basla, Sayfa_Al, "<div class=""deso"">" , 1) - Basla
  Title = Mid(Sayfa_Al, Basla, Bitir)
  response.write Title &"<br /><br />" 
 end if
%>