Figure 2 Windows DNA 2000 Components

Tool
Purpose
Visual Studio
Components
AppCenter Server
Server array
Commerce Server 4.0
E-commerce
BizTalk Server
Business
Babylon
Legacy data
SQL Server 7.5 (Shiloh)
Database server
Windows 2000
System services
Figure 6 XMLHttpRequest Methods and Properties
Methods
Description
Abort
Cancels the current HTTP request
GetAllResponseHeaders
Retrieves the values of all headers
GetResponseHeader
Retrieves the value of a single header
Open
Opens the conversation with the server by specifying a URL and method
Send
Sends HTTP request and waits for a response
SetRequestHeader
Assigns a value to an HTTP header
Properties
Description
onreadystatechange
Handler for the event denoting the change of state
readystate
Property that determines the readiness of the object
responseBody
Returns the response body as an array of unsigned bytes
responseStream
Returns the response body as an IStream pointer
responseText
Returns the response body as a raw text string
responseXML
Returns the response body as a parsed XMLDOM
status
Status code of an HTTP request
statustext
Comment line for the current HTTP request
Figure 7 An XML-based Web Service

<%
    Function Quote(s)
        Quote = Chr(34) & s & Chr(34)
    End Function

    classID = Request.QueryString("ClassID")
    strSQL = "select * from topics where class=" & classID
    Set rs = CreateObject("ADODB.Recordset")
    rs.CursorLocation = 3
    rs.Open  strSQL,"DSN=Seminars"

    ' Scan topics
    while Not rs.EOF
        strTopic = rs("Topic")
        topicID = rs("TopicID")
        Response.Write "<TOPIC name=" + Quote(strTopic) + ">" & vbCrLf

        ' Get subtopics
        strSQL1 = "select * from subtopics where " & _
            "class=" & classID & " and " & _
            "topicID=" & topicID

        Set rsSub = CreateObject("ADODB.Recordset")
        rsSub.CursorLocation = 3
         rsSub.Open  strSQL1,"DSN=Seminars"

        while Not rsSub.EOF
            strName = rsSub("SubTopic")
            Response.Write "<SUBTOPIC name=" & Quote(strName) & ">" &
                vbCrLf
            Response.Write rsSub("Description") & vbCrLf
            Response.Write "</SUBTOPIC>" & vbCrLf
            rsSub.MoveNext
        wend

        rsSub.Close
        Set rsSub = Nothing

        ' New topic
        Response.Write "</TOPIC>" & vbCrLf
        rs.MoveNext
    wend
    Response.Write text
%>