I am trying to understand why the following code is not working. Can anyone Help?
Sub GetSessionTicket
Dim Job1, Job2 As HttpJob
Dim SI As Map
Job1.Initialize("Job1", Me)
SI.Initialize
Si.Put("TitleID": "8C36")
SI.Put("username": "CC")
SI.Put("password:, "CC55"
Job1.PostString("https://www.8C36.DomainName.com/Client/LoginWithDomainName", SI,Null)
Log("SessionTicket=" & SessionTicket, "Success"=, & success.ticket)
If TicketSucccess = True Then
SelectTicket.SessionTicket
Log(Ticket.Get.String)
Else
Log("Error:" &Ticket.ErrorMessage)
ToastMessageShow("Error: &Ticket.ErrorMessage, True)
End If
Ticket.Release
End Sub
Sub GetSessionTicket
Dim Job1, Job2 As HttpJob
Dim SI As Map
Job1.Initialize("Job1", Me)
SI.Initialize
Si.Put("TitleID": "8C36")
SI.Put("username": "CC")
SI.Put("password:, "CC55"
Job1.PostString("https://www.8C36.DomainName.com/Client/LoginWithDomainName", SI,Null)
Log("SessionTicket=" & SessionTicket, "Success"=, & success.ticket)
If TicketSucccess = True Then
SelectTicket.SessionTicket
Log(Ticket.Get.String)
Else
Log("Error:" &Ticket.ErrorMessage)
ToastMessageShow("Error: &Ticket.ErrorMessage, True)
End If
Ticket.Release
End Sub