Sample ASP/VBScript to query remote XMLDBelt server:

<%
Response.Status = 200
Response.Clear 

Dim HTTP
Set HTTP = Server.CreateObject("Msxml2.XMLHTTP.4.0")

dim xmlCmd
'- select
'xmlCmd = "<edxm><query><select from='myxmldocument.xml
with='//events'/></query></edxm>"

'- setproperty
'xmlCmd = "<edxm><query><setproperty key='user
value='admin'/></query></edxm>"

'- getproperty  
'xmlCmd = "<edxm><query><getpropert
key='repository'/></query></edxm>"

xmlCmd = "<edxm><query><creat
file='%repository%events.xml'/></query></edxm>"

HTTP.open "POST", "http://localhost/xmldb/index.aspx", false
HTTP.send (xmlCmd)

Dim httpResponse

If http.status <> 200 Then
Response.ContentType = "text/html"
httpResponse = "HTTP Error #" & Http.status 
Else
Response.ContentType = "text/xml"
httpResponse = HTTP.responseText 
End If

Response.Write httpResponse

Set HTTP = Nothing

Response.End
%


-
hine
-----------------------------------------------------------------------
Posted via http://www.forum4designers.co
-----------------------------------------------------------------------
View this thread: http://www.forum4designers.com/message75799.htm