Pass variable to agent via URL

This is a way to pass a single variable to an agent. Simple modifications can be made to the loop for multiple values.
HTML • LotusScript

Dim strQueryString As String
Dim strProjeto As String
	
strQueryString = Strright(doc.Query_String_Decoded(0),"&")	
strParamList = Evaluate ({@Explode("} & strQueryString & {"; "&")})
	
For i=0 To Ubound(strParamList)
	If ( Strleft(strParamList(i) ,"=") = "username") Then
		username = Strright(strParamList(i) ,"=") 
	End If
Next

Written by Frank Joseph Brefere III

Posted by fbrefere001 on Thursday May 3, 2007