<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim email, first_name, last_name, referer, refParm, refParmValue referer=request.servervariables("http_referer") Dim i i = InStr(referer, "=") If (i <> 0) Then ' Get parameter value (email address for successful new visitor sign-ups) refParmValue = Right(referer, Len(referer) - i) ' Get parameter (e = successful new signup / u = unsubscribe this user) refParm = Mid(referer, i - 1, 1) End If Function emailUnencode (email) ' used encodeURIComponent in WebformValidationJS.asp, download_request.html, and checkexisting_process.asp when saving email address in cookie ' asp does not have an equivalent decode; these two characters seem to be the ones that are encoded email = Replace(email, "%2B", "+") email = Replace(email, "%40", "@") emailUnencode = email End Function Function getEmailCookieValue() email = emailUnencode(Request.Cookies("email")) first_name = Request.Cookies("first_name") last_name = Request.Cookies("last_name") End Function getEmailCookieValue() %> <% If (email <> "") AND (first_name <> "") AND (last_name <> "") AND (refParmValue = email) AND (refParm = "e") Then %>

<% ElseIf (left(refParmValue,4) = "true") AND (refParm = "u") Then %>

* E-Mail Address:
* First Name:
* Last Name:

<% Else %>

* E-Mail Address:
* First Name:
* Last Name:

<% End If %>