<% 'if UCase(request.ServerVariables("SERVER_NAME")) = "BATMAN" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONTHEWEB.CO.ZA" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONLINEINNOVATIONS.CO.ZA" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONLINEINNOVATIONS.COM" then 'else ' if request.ServerVariables("HTTPS") = "off" then ' ' ' For each Field in Request.Form ' TheString = TheString & Field & "="&Request.Form(Field)&"&" ' Next ' if len(TheString) > 0 then ' TheForm = Left(TheString, len(TheString)-1) ' end if ' ' TheString = "" ' For each Field in Request.Querystring ' TheString= TheString & Field & "="& Request.Querystring(Field) &"&" ' Next ' if len(TheString) > 0 then ' TheQuerystring =TheString ' end if ' ' if TheForm = empty and TheQuerystring = empty then ' strVars = "" ' elseif TheForm <> empty and TheQuerystring = empty then ' strVars = "?"&TheForm ' elseif TheForm = empty and TheQuerystring <> empty then ' strVars = "?"&TheQuerystring ' elseif TheForm <> empty and TheQuerystring <> empty then ' strVars = "?"&TheForm &"&"&TheQuerystring ' end if ' ' response.Redirect("https://www.justreservations.com"&strVars) ' response.end ' end if 'end if i_AffiliateCookieID = Request.Cookies("JustReservations")("AffiliateCookieID") 'Get a session value is availible if we have a value the user has already been tracked i_AffiliateSessionID =session("AffiliateID") 'Only track information if the Affiliate session value does not exist i.o.w. this session has not been captured if i_AffiliateSessionID = empty OR NOT IsNumeric(i_AffiliateSessionID) OR ISNULL(i_AffiliateSessionID) then 'First lets check if the users has an Affiliate stored as a cookie on his/her machine if i_AffiliateCookieID = empty OR NOT IsNumeric(i_AffiliateCookieID) OR ISNULL(i_AffiliateCookieID) then 'No coockie set, so now we check if the user came from an affiliate site... i_AffiliateRequestID = request("AffiliateID") 'If the user has come from an Affiliate site we store the AffiliateID for future reference if i_AffiliateRequestID <> empty AND IsNumeric(i_AffiliateRequestID) AND NOT ISNULL(i_AffiliateRequestID) then Response.Cookies("JustReservations")("AffiliateCookieID") = i_AffiliateRequestID Response.Cookies("JustReservations")("AffiliateReferer") = request.ServerVariables("HTTP_REFERER") Response.Cookies("JustReservations").Expires = DateAdd("M", 12, Date()) 'Capure Vistor info s_AffiliateReferer="" TrackInfo i_AffiliateRequestID,s_AffiliateReferer session("AffiliateID") = i_AffiliateRequestID else 'The user did not come from an Affiliate so se t session = 1 session("AffiliateID") = 1 end if else 'If the User has an AffiliateCooksie set we need to check if the user came from a different affiliate this 'time round and update the cookie accordingly' i_AffiliateRequestID = request("AffiliateID") if i_AffiliateRequestID <> empty AND IsNumeric(i_AffiliateRequestID) AND NOT ISNULL(i_AffiliateRequestID) then Response.Cookies("JustReservations")("AffiliateCookieID") = i_AffiliateRequestID Response.Cookies("JustReservations").Expires = DateAdd("M", 12, Date()) s_AffiliateReferer = "" TrackInfo i_AffiliateRequestID,s_AffiliateReferer session("AffiliateID") = i_AffiliateRequestID else 'The user did not come from a different Affiliate so set session to the stored cookie value and track the user again s_AffiliateReferer = Request.Cookies("JustReservations")("AffiliateReferer") TrackInfo i_AffiliateCookieID,s_AffiliateReferer session("AffiliateID") = i_AffiliateCookieID end if end if end if Function TrackInfo(AffiliateID,AffiliateReferer) set con = server.createobject("ADODB.Connection") con.open Application("CString") set rsAffiliateData = server.createobject("ADODB.Recordset") rsAffiliateData.open "SELECT * FROM SiteTrack Where 1=2", con, 1, 3 rsAffiliateData.AddNew() rsAffiliateData("TDate") = Now() rsAffiliateData("AffiliateID") = AffiliateID rsAffiliateData("ALL_HTTP") = request.ServerVariables("ALL_HTTP") rsAffiliateData("ALL_RAW") = request.ServerVariables("ALL_RAW") rsAffiliateData("APPL_MD_PATH") = request.ServerVariables("APPL_MD_PATH") rsAffiliateData("APPL_PHYSICAL_PATH") = request.ServerVariables("APPL_PHYSICAL_PATH") rsAffiliateData("CONTENT_LENGTH") = request.ServerVariables("CONTENT_LENGTH") rsAffiliateData("CONTENT_TYPE") = request.ServerVariables("CONTENT_TYPE") rsAffiliateData("GATEWAY_INTERFACE") = request.ServerVariables("GATEWAY_INTERFACE") rsAffiliateData("HTTP_ACCEPT") = request.ServerVariables("HTTP_ACCEPT") rsAffiliateData("HTTP_ACCEPT_ENCODING") = request.ServerVariables("HTTP_ACCEPT_ENCODING") rsAffiliateData("HTTP_ACCEPT_LANGUAGE") = request.ServerVariables("HTTP_ACCEPT_LANGUAGE") rsAffiliateData("HTTP_CONNECTION") = request.ServerVariables("HTTP_CONNECTION") rsAffiliateData("HTTP_COOKIE") = request.ServerVariables("HTTP_COOKIE") rsAffiliateData("HTTP_HOST") = request.ServerVariables("HTTP_HOST") if AffiliateReferer <> empty AND NOT ISNULL(AffiliateReferer) then rsAffiliateData("HTTP_REFERER") = AffiliateReferer else rsAffiliateData("HTTP_REFERER") = request.ServerVariables("HTTP_REFERER") Response.Cookies("JustReservations")("AffiliateReferer") = request.ServerVariables("HTTP_REFERER") end if rsAffiliateData("HTTP_USER_AGENT") = request.ServerVariables("HTTP_USER_AGENT") rsAffiliateData("HTTP_UA_PIXELS") = request.ServerVariables("HTTP_UA_PIXELS") rsAffiliateData("HTTP_UA_COLOR") = request.ServerVariables("HTTP_UA_COLOR") rsAffiliateData("HTTP_UA_OS") = request.ServerVariables("HTTP_UA_OS") rsAffiliateData("HTTP_UA_CPU") = request.ServerVariables("HTTP_UA_CPU") rsAffiliateData("HTTPS") = request.ServerVariables("HTTPS") rsAffiliateData("HTTPS_KEYSIZE") = request.ServerVariables("HTTPS_KEYSIZE") rsAffiliateData("HTTPS_SECRETKEYSIZE") = request.ServerVariables("HTTPS_SECRETKEYSIZE") rsAffiliateData("HTTPS_SERVER_ISSUER") = request.ServerVariables("HTTPS_SERVER_ISSUER") rsAffiliateData("HTTPS_SERVER_SUBJECT") = request.ServerVariables("HTTPS_SERVER_SUBJECT") rsAffiliateData("INSTANCE_ID") = request.ServerVariables("INSTANCE_ID") rsAffiliateData("INSTANCE_META_PATH") = request.ServerVariables("INSTANCE_META_PATH") rsAffiliateData("LOCAL_ADDR") = request.ServerVariables("LOCAL_ADDR") rsAffiliateData("LOGON_USER") = request.ServerVariables("LOGON_USER") rsAffiliateData("PATH_INFO") = request.ServerVariables("PATH_INFO") rsAffiliateData("PATH_TRANSLATED") = request.ServerVariables("PATH_TRANSLATED") rsAffiliateData("QUERY_STRING") = request.ServerVariables("QUERY_STRING") rsAffiliateData("REMOTE_ADDR") = request.ServerVariables("REMOTE_ADDR") rsAffiliateData("REMOTE_HOST") = request.ServerVariables("REMOTE_HOST") rsAffiliateData("REMOTE_USER") = request.ServerVariables("REMOTE_USER") rsAffiliateData("REQUEST_METHOD") = request.ServerVariables("REQUEST_METHOD") rsAffiliateData("SCRIPT_NAME") = request.ServerVariables("SCRIPT_NAME") rsAffiliateData("SERVER_NAME") = request.ServerVariables("SERVER_NAME") rsAffiliateData("SERVER_PORT") = request.ServerVariables("SERVER_PORT") rsAffiliateData("SERVER_PORT_SECURE") = request.ServerVariables("SERVER_PORT_SECURE") rsAffiliateData("SERVER_PROTOCOL") = request.ServerVariables("SERVER_PROTOCOL") rsAffiliateData("SERVER_SOFTWARE") = request.ServerVariables("SERVER_SOFTWARE") rsAffiliateData("URL") = request.ServerVariables("URL") rsAffiliateData.Update() session("TLogID") =rsAffiliateData("LogID") End Function if i_AffiliateID <> empty and IsNumeric(i_AffiliateID) then end if %> <% 'response.Redirect("bookingdefault.asp?Heading=default&Country=Ireland&CityTown=Dublin") 'response.Redirect("content.asp?PageID=36") response.Redirect("booking_step1.asp") %>