kodlar...

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ı.")

canafar k.a ve , canafar sifre yi kendinize göre ayarlayın "canafar" yerine de mesajı yazıp gönderin baya işime yarıyo