Visual Basic

desanti wrote:

So it seems a way should exist.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

<Serializable()>
Public Class ws_subscribersCount_Response

    Private m_response_Code As String
    Private m_response_Text As String
    Private m_count As Integer

    Public Property response_Code As String
        Get
            Return m_response_Code
        End Get
        Set(value As String)
            m_response_Code = value
        End Set

    End Property

    Public Property response_Text As String
        Get
            Return m_response_Text
        End Get
        Set(value As String)
            m_response_Text = value
        End Set

    End Property

    Public Property count As Integer
        Get
            Return m_count
        End Get
        Set(value As Integer)
            m_count = value
        End Set

    End Property

End Class

Dim subscribers as New ws_subscribersCount_Response()

subscribers.response_Code = "OK"
subscribers.response_Text = m_count & " subscribers have loaded successfully"
subscribers.count = m_count   

Dim writer As MemoryStream = Nothing

//Start of Quote Process 
Dim XMLRequest As UPSRequest.AccessRequest
XMLRequest = New UPSRequest.AccessRequest

XMLRequest.AccessLicenseNumber = sUPSsi.AccessLicenseNumber
XMLRequest.UserId = sUPSsi.UserID
XMLRequest.Password = sUPSsi.Password

//Now Lets Write out the file as a MemoryStream
Dim serializer As XmlSerializer
serializer = New XmlSerializer(GetType(UPSRequest.AccessRequest))

writer = New MemoryStream()
serializer.Serialize(writer, XMLRequest)
writer.Position = 0

//Now we have to write out a file for certification
Dim request_serializer As XmlSerializer = Nothing
request_serializer = New XmlSerializer(GetType(UPSRequest.AccessRequest))

If (True = p_Write_Certification_Request) Then

Using request_writer As New StreamWriter(HttpContext.Current.Server.MapPath("~\Logs\UPS\"AccessRequest.xml"))

   request_serializer.Serialize(request_writer, XMLRequest)

End Using

End If