Eski model ASP kullanarak tasarlamak zorunda kaldığım Kardemir şirketinin web sayfalarında girilen haberlerin Twitter’a otomatik gönderimesi senaryosu mevcuttu. Bunu gerçekleştirecek kodu internette bir yerden buldum ancak nereden bulduğunu bulamadım. Aşağıdaki fonksiyonu kullanarak içinde Türkçe karakter dahil bulunan 140 karakteri geçmeyen metninizi Twitter’a POST edebilirsiniz.

TwitterPost("Bugün hava çok güzel demeyi çok isterdim...")

Function TwitterPost(txt)

Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
twitter_username = "kullanici"	'twitter kullanıcı adınız
twitter_password = "sifre"	'twitter şifreniz
new_status = txt		'gondermek istediğiniz durum metniniz
xml.Open "POST", "http://" & twitter_username & ":" & twitter_password & "@twitter.com/statuses/update.xml?status=" & server.URLencode(new_status), False
xml.setRequestHeader "Content-Type", "content=text/html; charset=utf-8"
xml.Send
Response.Write xml.responseText		'Twitterın cevabı

Set xml = Nothing

End Function

Eğer Türkçe karakterde problem yaşarsanız, UTF-8 bölümünü ISO-8859-9 ile değiştirebilirsiniz. Zaten yakında veritabanlarında, statik-dinamik kodlamalarda karşılaşılan karakter problemleriyle ilgili genel bir yazı yazacağım. Ama o zamana kadar bu ilacınız olacaktır.