' This runs when user chooses "Get Records From Server" from menu
Private Sub MenuGet_Click()

  ' If user clicks okay in simple confirmation dialog box...
  If MsgBox("Get book data from server?", vbOKCancel) = vbOK Then
    Dim strURL As String

    ' Add a "Columns" element to the request structure
    ' Then serialize the structure into MyPacket
    RequestStruct.setProp "Columns", _
      "BOOKID,ISBN,TITLE,AUTHORFIRSTNAME,AUTHORLASTNAME"
    MyPacket = MySer.serialize(RequestStruct)

    ' Fetch WDDX Packet of data from Book Robot,
    ' Passing the request packet as a URL Parameter
    strURL = RobotServer & "/Robots/BookRobot.cfm?WDDXContent=" & MyPacket
    MyXML = Inet1.OpenURL(strURL)

    ' Deserialize the packet into a recordset
    Set MyRS = MyDeser.deserialize(MyXML)
    MyRS.addColumn ("WASEDITED")

    ' Fill various controls on the form with data
    InitControls

  End If

End Sub
