<% 'Copyright
'Debugging
if (false) then
Response.write(" Session:" & Session.sessionID )
Response.write(" Copy:" & Session("mclCopy"))
Response.write(" Name:" & Session("name"))
Response.write(" advanced:" & Session("advanced"))
Response.write(" family:" & Session("family"))
Response.write(" genus:" & Session("genus"))
Response.write(" year:" & Session("year"))
Response.write(" aBool:" & Session("aBool"))
Response.write(" author1:" & Session("author1"))
Response.write(" author2:" & Session("author2"))
Response.write(" count:" & Session("count"))
end if
strCookieCopyright = "mclCopy"
strRequestedURL = Request.ServerVariables("URL")
'save requested parameter data if file is results.asp,
'but not when coming from copyright site or from 'back to result' button (because parameters are empty then)
'or when going to printer friendly version (parameters are set already
if Right(strRequestedURL, 11) = "results.asp" AND Request("accept") <> "Accept" AND Request("back") <> "1" AND Request("Print") <> "1" OR _
Right(strRequestedURL, 9) = "query.asp" AND Request("advanced") <> "" AND (Request("name") <> "" OR Request("area_1") <> "") then
%>
<%
'if accepted was chosen then set the copyright cookie
elseif ( Request("accept") = "Accept" ) then 'OLD notwendig?: or Request.cookies(strCookieCopyright) = "1"
Response.Cookies(strCookieCopyright) = "1"
'set expiring date
Response.Cookies(strCookieCopyright).Expires = #Jan 19, 2038#
End if
'show copyright if not yet accepted
if (Request.Cookies(strCookieCopyright) <> "1" and Request("update") = "") then
%>
Copyright
LICENSE AGREEMENT
Data in this database is owned by the Organization for the Phyto-Taxonomic Investigation of the Mediterranean Area (OPTIMA).
Scientific or private use is for free.
Use for commercial reasons is only permitted in accordance with the owner.
