<% '*************************************************************** ' maintains state for VP-ASP using cookies or session variables ' Cookies are not currently supported ' VP-ASP 6.50 March 26, 2004 ' SSLshopcheckout.asp only '*************************************************************** const CookieKey="VPASP" Sub SetSess (field, value) Session(field)=value end sub ' Sub SetSessA (field, value) dim a(3) Session(field)=value end sub ' Function GetSess (field) dim value value=Session(field) Getsess=value End Function Function GetSessA (field) dim dataarea, temparray(100), tempcount, rc dim value, i, key, cartcount value=Session(field) GetsessA=value exit function End Function ' Function CreateHiddenElements '*************************************************************** '* Purpose: '* Grabs the data associated with the UserID and creates '* hidden form elements. '* Input: The assigned user id '* Return: Writes out the form element '* using the Response object. '****************************************************************** dim websess 'VP-ASP 6.50 - precautionary security fix if strwords = "" then exit function end if if isnull(strwords) then exit function end if websess=cleanchars(request("websess")) if websess="" then exit function Response.Write "" & vbcrlf End Function %>