Dim args As String() = WebCommandLineHelper.GetCommandLineArgs(argsFromMain)
If args.Length > 0 Then
For j As Integer = 0 To args.Length - 1
Dim pair As String() = args(j).Split("&"c)
For i As Integer = 0 To pair.Length - 1
Dim val As String() = pair(i).Split("="c)
Select Case val(0).ToLower()
Case "prm"
'remore redundand items and check for case dependency
strUserName = val(1).ToString()
Exit Select
Case "prm1"
strPRM1 = val(1).ToString()
Exit Select
Case "prm2"
strPRM2 = val(1).ToString()
Exit Select
End Select
Next
Next
End If
If args.Length > 0 Then
For j As Integer = 0 To args.Length - 1
Dim pair As String() = args(j).Split("&"c)
For i As Integer = 0 To pair.Length - 1
Dim val As String() = pair(i).Split("="c)
Select Case val(0).ToLower()
Case "prm"
'remore redundand items and check for case dependency
strUserName = val(1).ToString()
Exit Select
Case "prm1"
strPRM1 = val(1).ToString()
Exit Select
Case "prm2"
strPRM2 = val(1).ToString()
Exit Select
End Select
Next
Next
End If