%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'insert this code in the campaign's receiving page dim bodystring bodystring = Request.ServerVariables("HTTP_REFERER") if Request.QueryString("AD") <> "" and Request.QueryString("source") <> "" then 'Response.Write(Request.ServerVariables("HTTP_REFERER")) ' This is always a good idea when dealing with ' cookies! Especially cookies and a redirect! Response.Buffer = True ' This script handles both the adding and deleting of cookies Dim strCookieName ' The name of the cookie we're processing Dim strCookieValue ' The value to be assigned to it ' Get the values passed in by the other script strCookieName = "UWSCampaign" If Request.Cookies("UWSCampaign") <> "" then strCookieValue = "source=" & Request.QueryString("source") & "&date=" & NOW() & "&ad=" & Request.QueryString("AD") & "&URLreferral=" & bodystring & "&previousCookie=" & Request.Cookies("UWSCampaign") else strCookieValue = "source=" & Request.QueryString("source") & "&date=" & NOW() & "&ad=" & Request.QueryString("AD") & "&URLreferral=" & bodystring end if If strCookieName <> "" Then If strCookieValue <> "" Then Response.Cookies(strCookieName) = strCookieValue Response.Cookies(strCookieName).Expires = Date() + 120 Response.Cookies(strCookieName).Path = "/" End If End If end if %>
|
|
|
|
Barry University - College of Arts and Sciences
|