Atualizar Twitter pelo asp

Fala ae galera, segue abaixo um script para vcs poderem implementar nos seus sites, com isso qualquer aplicação podera atualizar o twitter dinamicamente sempre quando ouver atualizações no site, basta usar a cabeça!

<%
Response.Buffer = True

Dim twitter
Set twitter = Server.CreateObject("Microsoft.XMLHTTP")

twitter_usuario = "nomedeusuario"
twitter_senha = "senha"

mensagem = "mensagem para postar no twitter, meu nome é patrique"

	twitter.Open "POST", "http://" & twitter_usuario & ":" & twitter_senha & "@twitter.com/statuses/update.xml?status=" & server.URLencode(mensagem), False
	twitter.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
	twitter.Send

Set twitter = Nothing

Response.Write "Mensagem enviada com sucesso!"
%>
[]'s