benim işime yarıyo baya

function canafar(msg,user,pass)
dim xml,url
url = "http://twitter.com/statuses/update.xml"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xml.Open "POST", url, false, user, pass
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "status=" & server.URLencode(msg)
canafar = xml.responseText
Set xml = nothing
end Function

durum = canafar("canafar","canafar k.a","canafar sifre") 
response.write("İşlem tamamlandı.")
fonksiyonu yapıstırın sitenin tepesine "canafar k.a" ve "canafar sifre" kısmına kendi bilgilerinizi yazın "canafar" kısma da mesajınızı yazın...