143 berichten
Prachtige dag voor een wandeling en een prachtige route. Zelfs in en rond stad Antwerpen zijn er volop mooie wandeltochten te maken. 6 km op de teller, nog 25 te gaan. (bestemming: Lier)<%
identicaAccount = "Steffest"
identicaPass = "*********"
identica("hello identicaworld!")
function identica(message)
' based on http://monkey.linuxworld.com/scripts/twit
url_login = "http://identi.ca/main/login"
url_post = "http://identi.ca/notice/new"
' first: login
useragent = Request.ServerVariables("HTTP_USER_AGENT")
poststring = "nickname=" & identicaAccount & "&password=" & identicaPass
set objXMLHTTP = Server.CreateObject("MSXML2.SERVERXMLHTTP")
objXMLHTTP.Open "POST", url_login, false
objXMLHTTP.setRequestHeader "User-Agent",useragent
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send poststring
' then send the message
message=server.URLEncode(message)
poststring = "status_textarea=" & message
objXMLHTTP.Open "POST", url_post, false,plurkAccount,plurkPass
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send poststring
identica = objXMLHTTP.responseText
end function
En hij is al open, sè! 
Hier moet elk Antwerps hart toch bijzijn: De opgekuiste koepel van het Centraal Station wordt dit weekend onthuld. De marmeren vloer op zich is al heel mooi, maar als de koepel zichzelf erin spiegelt, is dat waarlijk spectaculair. Ik weet nog dat ik als kleine snotneus mijn Bert en Ernie ballon express in het midden van de inkomhal losliet om hem zo helemaal naar boven te zien dwarrelen. Een maand later hing ie daar nog steeds. Ik woonde toen ver van Antwerpen vandaan, maar vond het toen al prachtig. *snif* een snuifje nostalgie, en daar is alle tijd voor als je weeral in dit prachtstation zit te wachten op een vertraagde trein.
de Twit2art kunstwerkjes zijn prachtig aan het evolueren.
Spelen met de HTC Diamond.
<%
plurkAccount = "Steffest"
plurkPass = "*********"
plurk("hello plurkworld!")
function plurk(message)
' big thanks to Ryan Lim for doing the digging
' translated from http://code.google.com/p/rlplurkapi/
' this is just a small function to send a plurk
' for a more complete API: http://code.google.com/p/rlplurkapi/
url_login = "http://www.plurk.com/Users/login?redirect_page=main'"
url_post = "http://www.plurk.com/TimeLine/addPlurk"
' first: login
poststring = "nick_name=" & plurkAccount & "&password=" & plurkPass
set objXMLHTTP = Server.CreateObject("MSXML2.SERVERXMLHTTP")
objXMLHTTP.Open "POST", url_login, false,plurkAccount,plurkPass
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send poststring
' then send the plurk
lang = "en"
qualifier = ":"
nocomments = "0"
' get the ISO8601date
postdate = ISO8601date(now(),"+02")
message=server.URLEncode(message)
poststring = "posted="&postdate&"&qualifier=" & qualifier& "&content="&message&"&lang="&lang&"&no_comments=" & nocomments & "&limited_to="
objXMLHTTP.Open "POST", url_post, false,plurkAccount,plurkPass
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send poststring
plurk = objXMLHTTP.responseText
set objXMLHTTP=nothing
end function
function ISO8601date(dt,timezone)
ISO8601date = year(dt) & "-" & padding(month(dt)) & "-" & padding(day(dt)) & "T" & hour(dt) & ":" & minute(dt) & ":" & second(dt) & timezone & ":00"
end function
function padding(s)
if len(s)=1 then
padding="0" & s
else
padding = s
end if
end function
