7
hi all,
iam new on .net,,,
iam make it as string and convert it to xml
how i can recieve XML..
Private Sub btnRequest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRequest.Click
Dim strBuildxml As String = "" '"<?xml version=" & "1.0" & " ?>" & Microsoft.VisualBasic.ControlChars.NewLine
Try
'===============================
'build <InfoLinkDocument>
strBuildxml &= "<InfoLinkDocument>" & Microsoft.VisualBasic.ControlChars.NewLine
'===============================
' build <AccessRequest>
strBuildxml &= "<AccessRequest>" & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<DocumentType>" & txtDocumentType.Text & "</DocumentType> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<EntityID>" & txtEntityID.Text & "</EntityID> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<Version>" & txtVersion.Text & "</Version> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<TimeStamp>" & txtTimeStamp.Text & "</TimeStamp> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<Reference1>" & txtReference1.Text & "</Reference1> " & Microsoft.VisualBasic.ControlChars.NewLine
If txtReference2.Text <> "" Then
strBuildxml &= "<Reference2>" & txtReference2.Text & "</Reference2> " & Microsoft.VisualBasic.ControlChars.NewLine
End If
If txtReference3.Text <> "" Then
strBuildxml &= "<Reference3>" & txtReference3.Text & "</Reference3> " & Microsoft.VisualBasic.ControlChars.NewLine
End If
If txtReference4.Text <> "" Then
strBuildxml &= "<Reference4>" & txtReference4.Text & "</Reference4> " & Microsoft.VisualBasic.ControlChars.NewLine
End If
If txtReference5.Text <> "" Then
strBuildxml &= "<Reference5>" & txtReference5.Text & "</Reference5> " & Microsoft.VisualBasic.ControlChars.NewLine
End If
strBuildxml &= "<ReplyEmailAddress>" & txtReplyEmailAddress.Text & "</ReplyEmailAddress> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<NotifyOnSuccess>" & ddlNotifyOnSuccess.SelectedValue.ToString & "</NotifyOnSuccess> " & Microsoft.VisualBasic.ControlChars.NewLine
'Close <AccessRequest>
'===============================
strBuildxml &= "</AccessRequest>" & Microsoft.VisualBasic.ControlChars.NewLine
'===============================
' build <HAWB>
strBuildxml &= "<HAWB>" & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<HAWBNumber>" & txtHAWBNumber.Text & "</HAWBNumber> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<HAWBOriginEntity>" & txtHAWBOriginEntity.Text & "</HAWBOriginEntity> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<HAWBDestinationEntity>" & txtHAWBDestinationEntity.Text & "</HAWBDestinationEntity> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<Services>" & txtServices.Text & "</Services> " & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "<ProductType>" & txtProductType.Text & "</ProductType> " & Microsoft.VisualBasic.ControlChars.NewLine
'Close <HAWB>
'===============================
strBuildxml &= "</HAWB>" & Microsoft.VisualBasic.ControlChars.NewLine
strBuildxml &= "</InfoLinkDocument>" & Microsoft.VisualBasic.ControlChars.NewLine
Session("Request") = strBuildxml
Response.Redirect("frmResult1.aspx")
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
