Maybe this fixes the problem:
…
Call ReadProfile<br/>
Call ReadWebProfile<br/>
Set db = session.currentdatabase<br/>
Const TEMPNotesMacro = |@If(@Contains(@RegQueryValue("HKEY_LOCAL_MACHINE"; "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"; "TEMP");"%SystemRoot%");@ReplaceSubstring(@RegQueryValue("HKEY_LOCAL_MACHINE"; "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"; "TEMP");"%SystemRoot%";@RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion"; "SystemRoot"));@RegQueryValue("HKEY_LOCAL_MACHINE"; "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"; "TEMP"))|<br/>
xTemp = Evaluate(TEMPNotesMacro)<br/>
ONPD_Temp = xTemp(0)<br/>
…
There is sure some space for improvement so please send me your code for review.
Christian