Lotusphere and USA travel authorization

I am finally ready with all my Lotusphere bookings. But as it is right now, I'll have to stay in 3 hotels. First 1 night in "Dolphin", then 4 nights in "Port Orleans Riverside" and then 1 night in "Swan". I am on the waiting list for "Port Orleans Riverside", hope that I'll get at least 1 hotel switch less.

When booking the flight ticket, I noticed a warning that from 12 January travelers must electronically register at least 72 hours prior to travel. See below for more info.

Link:
http://www.cbp.gov/linkhandler/cgov/travel/id_visa/esta/about_esta/esta_intro/esta_english.ctt/esta_english.pdf
Extract:
Effective January 12, 2009, all VWP travelers will be required to obtain an electronic travel authorization prior to boarding a carrier to travel by air or sea to the U.S. under the VWP.

VWP=Visa Waiver Program

Tag: Lotusphere

Sametime bot shows latest Lotusphere2007 blogs

Today I've created a new bot function which shows latest 20 blog posts tagged with "Lotusphere2007" on Technorati. Took me 20 minutes to modify it from an old example of LotusScript agent and setup STWidget, the LotusScript agent code can be improved but it works.

It works like this: you type "Lotusphere2007" (not case sensitive) to sametime bot and it responds with the 20 latest blog posts. You can click the links in the result to read the post.

Here you can try the "Lotusphere2007" bot live: http://www.botstation.com/sametime/stwidget_lotusphere.html

Or just try it embedded at the end of this post with help of Sametime Widget.

Code of the LotusScript agent which bot calls to get the results:
Function AgentMain(doc As notesdocument)
Dim param As String
param= doc.ArgValue(0)
Dim objHttp, i
Set objHttp = CreateObject("Microsoft.XMLHTTP")
url = |http://feeds.technorati.com/feed/posts/tag/lotusphere2007|
objHttp.open "GET", url, False, "", ""
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.send("") 'send request to web server

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.loadXML (objHttp.ResponseText)
Set xmlLst = xmlDoc.getElementsByTagName("item")
cnt=0
For i = 0 To xmlLst.length - 1
cnt=cnt+1
Set xmlNode = xmlLst.Item(i)
Set att=xmlnode.childnodes
Forall child In att
If child.nodename="title" Then
tmp=tmp+Cstr(i)+". "+child.text+": "
End If
If child.nodename="link" Then
tmp=tmp+|<a href="|+child.text+|" target="_blank">Link</a><br/><br/>|
End If
If cnt=20 Then i=xmlLst.length
End Forall
Next

AgentMain="Last 20 posts in category Lotusphere2007:"+"<br/>"+tmp
End Function








Tags: Lotusphere2007 sametime sametime bot