Sub BuildRequest (date () As Byte) As String
Dim req As String = template
req.Replace req = ("$ USER $", user)
req.Replace req = ("$ $ LICENSE" license)
req.Replace req = ("$ FILENAME $", tempfile)
Dim about As StringUtils
req.Replace req = ("$ DATE $", su.EncodeBase64 (date))
req.Replace req = ("$ $ LANGUAGE", "ENGLISH")
req.Replace req = ("$ OUTPUT $", "HTML")
Return req
end Sub