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
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