'create URL
URL = "[URL unfurl="true"]http://tivo.domain.com:9900/displaytext?text="[/URL] & message & "&delay=20&x=0&y=0&fg=153&bg=1&submit=Display+Text"
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", URL , False
objXmlHttp.send
Response.Write "Status: " & objXmlHttp.status & " " _
& objXmlHttp.statusText & "<br />"
strHTML = objXmlHttp.responseText
If objXmlHttp.status = "200" Then
'Response.Write(objXmlHttp.status)
'Response.Write("Yes<br>")
End IF