<% IF !EMPTY(UPPER(REQUEST.servervariables('QUERY_STRING'))) response.setcookie( 'lc_username',ALLTRIM(UPPER(REQUEST.servervariables('QUERY_STRING'))),,"/" ) ENDIF lc_username=ALLTRIM(REQUEST.getcookie('lc_username')) --> You will not be able to retrieve cookies
sent in the same script. The GetCookie
method only returns cookies received from
the browser. SELECT * ; FROM ACCESS ; WHERE ALLTRIM(username) = ALLTRIM(lc_username) ; INTO CURSOR temp &&columns accesscode, location USE IN ACCESS IF _TALLY = 0 m.errmess = 'You have no permissions in HAP-EP' SELECT form_text FROM gen_html WHERE form_id LIKE 'note' INTO ARRAY formtxt m.access = -1 m.hap_access = -1 html_out = mergetxt(M.formtxt) ------------------------> You should NEVER use html_out with fwx
files, or calls to the Response, Auth
and Session objects RETURN ENDIF response.setcookie( 'ln_hap_access', ALLTRIM(STR(temp.accesscode)),,"/" )
response.setcookie( 'ln_userid', ALLTRIM(STR(temp.accesscode)),,"/" ) response.setcookie( 'lc_user_loc', temp.location,,"/" ) response.setcookie( 'lc_userloc', temp.location,,"/" ) response.setcookie( 'lc_u_loc', temp.location,,"/" ) m.hap_access = VAL(REQUEST.getcookie('ln_hap_access')) --> See 1st note above m.user_loc = REQUEST.getcookie('lc_user_loc') --> See 1st note above m.userloc = REQUEST.getcookie('lc_userloc') --> See 1st note above m.userid = REQUEST.getcookie('ln_userid') --> See 1st note above m.u_loc = REQUEST.getcookie('lc_u_loc') --> See 1st note above m.username = REQUEST.getcookie('lc_username') --> See 1st note above cur_juldate = getjulian()%> <HEAD> <TITLE>Test Page 1</TITLE> <x-sas-WINDOW TOP=0 BOTTOM=457 LEFT=0 RIGHT=768> </HEAD> <body> <h2 ALIGN=CENTER><FONT SIZE=5>Test Page 1</FONT></h2> <p><hr><p> <FONT SIZE=+2><b> <ul> </ul> </b></FONT> <p> <hr> <%
response.WRITE(Session.GetSessionID()+" "+IIF(EMPTY(request.getcookie('lc_username')),'No cookie',request.getcookie('lc_username'))+;
" "+IIF(EMPTY(request.getcookie('lc_u_loc')),'No cookie',request.getcookie('lc_u_loc')))
%> <hr></body> </html> <% RETURN %>
|