%
dim lInstance, fMaintMode
dim sC, sCC
sub ConcatStorage(argN, argS)
dim sString
Application.Lock()
sString = Application("Storage" & argN)
if (len(sString) < 2040) then
sString = sString & argS & ","
else
if right(sString,3) <> "+++" then
sString = sString & "+++"
end if
end if
Application("Storage" & argN) = sString
Application.UnLock()
end sub
sC = Request.QueryString("C")
if len(sC)> 0 then
sCC = "?C=" & sC
else
sCC = ""
end if
call ConcatStorage(34, Request.ServerVariables("REMOTE_ADDR") & "-" & sC & "-" & now()) 'view
if Session("MLInstance") > 0 then
lInstance = clng(Session("MLInstance") + 1)
else
lInstance = 1
end if
fMaintMode = (Application("MaintModeData") > 0)
%>
You can subscribe to our monthly newsletter and emails regarding upcoming workshops by clicking on the link. In each email you receive, there will be a link to unsubscribe or change your areas of interest. Your privacy is important to us - please read our Email Privacy Policy.