Forum Moderators: open
Here's a snippet of the relevant code for page one ("default.asp"):
<%
firstName=request.cookies("firstName")
lastName=request.cookies("lastName")
blackEye=request.cookies("blackEye")
favePic=request.cookies("favePic")
%>
and
<%
For Each cookie in Response.Cookies
Response.Cookies(cookie).Expires = now()+365
Next
%>
Which passes the values selected for these settings just fine to page two ("default_response.asp"):
<%
firstName=request("firstName")
lastName=request("lastName")
blackEye=request("blackEye")
favePic=request("favePic")
%>
and
<%
For Each cookie in Response.Cookies
Response.Cookies(cookie).Expires = now()+365
Next
%>
The user clicks on a link to go back
<a href="/default.asp">GO BACK </a>
and its showing values that are used from the VERY first time that the page was 'interacted with'.
This behavior is consistent across firefox and explorer.
Any thoughts? Any clues? Do I need to use a 'if then' test to have default 'update?
Thanks in advance,
Patrick
something like this?
*Disclaimer*
This is extremely sloppy code, but good enough for proof of concept to get you started in the right direction. HTH. - Mark
default.asp
--------
<% @Language="VBScript" %>
<%
'Option Explicit
Dim firstName, lastName, blackEye, favePic
firstName = Request.cookies("UserInfo")("firstName")
lastName = Request.cookies("UserInfo")("lastName")
blackEye = Request.cookies("UserInfo")("blackEye")
favePic = Request.cookies("UserInfo")("favePic")
Response.write "Dirty?: >" & Request.cookies("UserInfo")("Dirty") & "<<br>"
Response.Write "<b>Before</b>: <br>" & firstName & "<br>" & vbCrLf
Response.Write lastName & "<br>" & vbCrLf
Response.Write blackEye & "<br>" & vbCrLf
Response.Write favePic & "<br>" & vbCrLf
If Request.Cookies("UserInfo")("Dirty") <> "False" Then
Response.Write "<br>Loaded Initial Cookie values.<br>"
Response.Cookies("UserInfo")("Dirty") = "False"
Response.cookies("UserInfo")("firstName") = "John"
Response.cookies("UserInfo")("lastName") = "Doe"
Response.cookies("UserInfo")("blackEye") = "Yes"
Response.cookies("UserInfo")("favePic") = "CoteDAzure.jpg"
End If
firstName = Request.cookies("UserInfo")("firstName")
lastName = Request.cookies("UserInfo")("lastName")
blackEye = Request.cookies("UserInfo")("blackEye")
favePic = Request.cookies("UserInfo")("favePic")
Response.Write "<b>After</b> <br>" & firstName & "<br>" & vbCrLf
Response.Write lastName & "<br>" & vbCrLf
Response.Write blackEye & "<br>" & vbCrLf
Response.Write favePic & "<br>" & vbCrLf
%>
<a href="default_response.asp?ChangeValue=N">default_response.asp?ChangeValue=N</a><br><br>
<a href="default_response.asp?ChangeValue=Y">default_response.asp?ChangeValue=Y</a>
--------
default_response.asp
--------
<% @Language="VBScript" %>
<%
'Option Explicit
Dim firstName, lastName, blackEye, favePic
firstName = Request.cookies("UserInfo")("firstName")
lastName = Request.cookies("UserInfo")("lastName")
blackEye = Request.cookies("UserInfo")("blackEye")
favePic = Request.cookies("UserInfo")("favePic")
Response.Write "<b>Before:</b> <br>" & firstName & "<br>" & vbCrLf
Response.Write lastName & "<br>" & vbCrLf
Response.Write blackEye & "<br>" & vbCrLf
Response.Write favePic & "<br>" & vbCrLf
If Request.QueryString("ChangeValue") = "Y" Then
Response.Write "Changed Cookie values.<br>"
Response.Cookies("UserInfo")("Dirty") = "True"
Response.cookies("UserInfo")("firstName") = "Joe"
Response.cookies("UserInfo")("lastName") = "Blow"
Response.cookies("UserInfo")("blackEye") = "No"
Response.cookies("UserInfo")("favePic") = "MountainBiking.jpg"
End If
firstName = Request.cookies("UserInfo")("firstName")
lastName = Request.cookies("UserInfo")("lastName")
blackEye = Request.cookies("UserInfo")("blackEye")
favePic = Request.cookies("UserInfo")("favePic")
Response.Write "<b>After</b> <br>" & firstName & "<br>" & vbCrLf
Response.Write lastName & "<br>" & vbCrLf
Response.Write blackEye & "<br>" & vbCrLf
Response.Write favePic & "<br>" & vbCrLf
%>
<a href="default.asp">default.asp</a>
--------