LISTING 2: ReturnTest.asp
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", "http://expo-star/test.asp", _
  false
xmlhttp.send ""
'BEGIN CALLOUT A
MsgBox xmlhttp.ResponseText
'END CALLOUT A