[Geoserver-users] Help: Pocket Pc Application

[Eugen G. <ga...@in...>]

Hi,

Can someone help me, I've written following Sub in VBScript, wich I wrote
for an Pocken PC Application.
My Pocket PC connect to GeoServer by WLAN.
Sub test

Dim xhttp, xmlDoc

Set xhttp = CreateObject("Microsoft.XMLHTTP")

Set xmlDoc=CreateObject("Microsoft.XMLDOM")

'xhttp.open "GET",
"http://192.168.101.1:8080/geoserver/wfs/GetCapabilities?", False

xhttp.setRequestHeader "CONTENT-TYPE", "text/xml"

xmlDoc.async = False

xhttp.send()
xmlDoc.loadXML(xhttp.responseText)

msgBox xmlDoc.xml

End Sub

-> As Response I get Nothing, No ERROR , message Box is empty???

Can somebody tell what's wrong, please???

Best Regards

Eugen