Sub initialize
Dim session as new notessession
Dim note as notesdocument
Dim http_post as string
Set note = session. documentcontext
'Gets post information passed to server
Http_post = Note. request_content (0)
End sub
The sample function below when passed the name of a variable submitted by the post command will return its value.
Function getparameter (ST as string) as string
Dim session as new notessession
Dim note as notesdocument
Dim http_post as string
Dim myarray as Variant
Dim myvar as Variant
Getparameter = ""
Set note = session. documentcontext
Http_post = Note. request_content (0)
If (instr (http_post, "=") <> 0) then
Myarray = Split (http_post ,"&")
Forall X in myarray
If (instr (1, x, St, 5) <> 0) then
If (instr (x, "=") <> 0) then
Myvar = Split (x, "= ")
Getparameter = Replace (myvar (1), "+ ","")
End if
Exit Function
End if
End forall
End if
End Function