' This runs when user chooses "Save records to server" from menu
Private Sub MenuSave_Click()
  Dim MyPacket
  Dim strURL As String, strFormData As String, strHead As String

  ' Serialize the MyRS recordset into a WDDX packet
  MyPacket = MySer.serialize(MyRS)

  ' Post the packet to the BookRobot.  The packet will
  ' be available to BookRobot.cfm as #Form.WDDXContent#
  strURL = RobotServer & "/Robots/BookRobotCommit.cfm"
  strFormData = "WDDXContent=" & MyPacket
  strHead = "Content-Type: application/x-www-form-urlencoded"

  ' Tell the Inet2 control to start posting the data
  Inet2.Execute URL:=strURL, Operation:="Post", _
    InputData:=strFormData, InputHdrs:=strHead

End Sub
