<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'COOKIE CHECK 'This just simply sets a cookie, then redirects 'back '----------------------------------------------- response.cookies(Application(LICENSENUMBER & "cookiename"))("cookiecheck") = "yes" 'response.Write "*" & request.cookies(Application(LICENSENUMBER & "cookiename"))("cookiecheck") & "*" 'response.End 'Get the redirection details from the querystring strPage = request.QueryString("page") strQS = replace(request.QueryString("qs"), "amp;", "&") 'Make sure the page isn't pointing to a different URL if instr(strPage, "/") > 0 then strPage = "" '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close Set objDataConn = Nothing 'Redirect back to the scriptname, passing a querystring saying the cookie should be planted 'response.redirect(strPage & "?cookiecheck=yes&" & strQS) %>