Recieve xml

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • hamzeh83
    New Member
    • Jul 2008
    • 7

    Recieve xml

    hi all,
    iam new on .net,,,
    iam make it as string and convert it to xml
    how i can recieve XML..





    Private Sub btnRequest_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnRequest.Clic k
    Dim strBuildxml As String = "" '"<?xml version=" & "1.0" & " ?>" & Microsoft.Visua lBasic.ControlC hars.NewLine
    Try
    '============== =============== ==
    'build <InfoLinkDocume nt>

    strBuildxml &= "<InfoLinkDocum ent>" & Microsoft.Visua lBasic.ControlC hars.NewLine

    '============== =============== ==
    ' build <AccessReques t>
    strBuildxml &= "<AccessRequest >" & Microsoft.Visua lBasic.ControlC hars.NewLine

    strBuildxml &= "<DocumentType> " & txtDocumentType .Text & "</DocumentType> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<EntityID> " & txtEntityID.Tex t & "</EntityID> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<Version>" & txtVersion.Text & "</Version> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<TimeStamp >" & txtTimeStamp.Te xt & "</TimeStamp> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<Reference 1>" & txtReference1.T ext & "</Reference1> " & Microsoft.Visua lBasic.ControlC hars.NewLine

    If txtReference2.T ext <> "" Then
    strBuildxml &= "<Reference 2>" & txtReference2.T ext & "</Reference2> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    End If
    If txtReference3.T ext <> "" Then
    strBuildxml &= "<Reference 3>" & txtReference3.T ext & "</Reference3> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    End If
    If txtReference4.T ext <> "" Then
    strBuildxml &= "<Reference 4>" & txtReference4.T ext & "</Reference4> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    End If
    If txtReference5.T ext <> "" Then
    strBuildxml &= "<Reference 5>" & txtReference5.T ext & "</Reference5> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    End If

    strBuildxml &= "<ReplyEmailAdd ress>" & txtReplyEmailAd dress.Text & "</ReplyEmailAddre ss> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<NotifyOnSucce ss>" & ddlNotifyOnSucc ess.SelectedVal ue.ToString & "</NotifyOnSuccess > " & Microsoft.Visua lBasic.ControlC hars.NewLine

    'Close <AccessReques t>
    '============== =============== ==
    strBuildxml &= "</AccessRequest>" & Microsoft.Visua lBasic.ControlC hars.NewLine

    '============== =============== ==
    ' build <HAWB>

    strBuildxml &= "<HAWB>" & Microsoft.Visua lBasic.ControlC hars.NewLine

    strBuildxml &= "<HAWBNumbe r>" & txtHAWBNumber.T ext & "</HAWBNumber> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<HAWBOriginEnt ity>" & txtHAWBOriginEn tity.Text & "</HAWBOriginEntit y> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<HAWBDestinati onEntity>" & txtHAWBDestinat ionEntity.Text & "</HAWBDestination Entity> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<Services> " & txtServices.Tex t & "</Services> " & Microsoft.Visua lBasic.ControlC hars.NewLine
    strBuildxml &= "<ProductTy pe>" & txtProductType. Text & "</ProductType> " & Microsoft.Visua lBasic.ControlC hars.NewLine

    'Close <HAWB>
    '============== =============== ==

    strBuildxml &= "</HAWB>" & Microsoft.Visua lBasic.ControlC hars.NewLine


    strBuildxml &= "</InfoLinkDocumen t>" & Microsoft.Visua lBasic.ControlC hars.NewLine
    Session("Reques t") = strBuildxml

    Response.Redire ct("frmResult1. aspx")

    Catch ex As Exception

    Response.Write( ex.Message)

    End Try

    End Sub
Working...