Bot hakkında

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

Bu kod VB ile yazılmış. Nasıl bir düzenlemeden bahsediyorsunuz?

görsel olarak. mesela çektiğim sitede başlık var, izlenim sayısı var, eklenme tarihi var. localhostta çalıştırmak istiyorum üye olduğum bir siteye ait verilerimi de. onun için yapmak istedim. ama çok biçimsiz duruyor her şey.

Düzenli şekilde görünmesini istiyorsan basit bir tablo veya div oluştur, response.write title, response.write izlenme vs. gibi yap..