<%@ Language = VBScript %> <% Option Explicit %> <% ' ATS Communications ' Module, Manage Cookie ' Version 1.0 ' by Anthony Bautista Jr. and Azad Kupelian ' anthony@agosis.com ' azad@kupelian.org ' Add a search to the cookie or list all the searches in the cookie. ' Revision History ' ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ' 1.0 7/28/2003 Anthony Bautista Jr. and Azad Kupelian ' The script was released. ' Define constants ' bytCookieListLength is defined in each Sub procedure ' Define Sub rutines Sub CookieAdd(strSearchName, strSearchURL, StrSearchQueryString) ' Add a search to the cookie ' Accepts search name, search URL ' Define constants Const bytCookieListLength = 10 ' defined in each Sub procedure ' Define variables Dim bytSearchKey Dim blnSearchKeyExists ' Look for search on cookie list For bytSearchKey = 1 to bytCookieListLength If Request.Cookies(cStr(bytSearchKey))("SearchName") = _ strSearchName Then Exit Sub End If Next ' Shift previous items down one key position For bytSearchKey = bytCookieListLength to 2 Step -1 Response.Cookies(cStr(bytSearchKey))("SearchName") = _ Request.Cookies(cStr(bytSearchKey - 1))("SearchName") Response.Cookies(cStr(bytSearchKey))("SearchAddress") = _ Request.Cookies(cStr(bytSearchKey - 1))("SearchAddress") Response.Cookies(cStr(bytSearchKey)).Expires = Date + 365 Next ' Add search to cookie Response.Cookies("1")("SearchName") = strSearchName Response.Cookies("1")("SearchAddress") = _ strSearchURL & "?" & StrSearchQueryString Response.Cookies("1").Expires = Date + 365 End Sub Sub CookieList() ' List all the searches in the cookie ' Define constants Const bytCookieListLength = 10 ' defined in each Sub procedure ' Define variables Dim bytSearchKey ' List the searches For bytSearchKey = 1 to bytCookieListLength Response.Write(" ") Response.Write(" ") Response.Write("") Response.Write("") ' Response.Write(Request.Cookies(cStr(bytSearchKey))("SearchName")) Response.Write(Replace(Replace(Request.Cookies(cStr(bytSearchKey))("SearchName"), _ " Latitude", _ "
Latitude"), _ " Longitude", _ "
Latitude")) Response.Write("") Response.Write("") Response.Write("
") Next End Sub %> <% ' ATS Communications ' Form, Reacent Searches ' Version 1.0 ' by Anthony Bautista Jr. and Azad Kupelian ' anthony@agosis.com ' azad@kupelian.org ' Print recent searches. ' Revision History ' ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ' 1.0 7/282003 Anthony Bautista Jr. and Azad Kupelian ' The script was released. %> ATS Communications - Recent Searches

 Recent Searches
<% CookieList %>