<%
' LOOKING FOR THE COUNTRY AND LANGUAGE COOKIES
If Request.Cookies("CountryChoice") = "" Or Request.Cookies("LanguageChoice") = "" Then
	Response.Redirect("/default.asp?lpage=" & Request.ServerVariables("URL") & "?" & Request.QueryString())
End If

'STOP

' ENDS HERE
Function CleanSql(InString)
	Dim TempSqlStr
	
	TempSqlStr = Replace(InString, "'", "''")
	TempSqlStr = Replace(TempSqlStr, """", "")
	TempSqlStr = Replace(TempSqlStr, "(", "")
	TempSqlStr = Replace(TempSqlStr, ")", "")
	TempSqlStr = Replace(TempSqlStr, ";", "")
	'TempSqlStr = Replace(TempSqlStr, "-", " ")
	TempSqlStr = Replace(TempSqlStr, "|", " ")

	CleanSql = TempSqlStr
End Function

Function CleanTextValues(TheValue)
	If IsNull(TheValue) Then
		CleanTextValues = ""
	Else
		CleanTextValues = Replace(TheValue, "<", "&lt;")
		CleanTextValues = Replace(CleanTextValues, ">", "&gt;")
		CleanTextValues = Replace(CleanTextValues, Chr(34), "&quot;")
	End If
End Function

If Request.QueryString("country") <> "" Then
	Select Case Request.QueryString("country")
		Case "us", "austria", "belgium_nl", "belgium_en", "belgium_fr", "canada", "denmark", "europe_en", "finland", _ 
		"france", "germany", "ireland", "italy", "luxembourg_en", "luxembourg_fr", "netherlands", "portugal", "spain", _ 
		"sweden", "switzerland_fr",	"switzerland_de", "uk", "all_others", "brazil", "la_sp", "la_en" 
			Session("CountryChoice") = Request.QueryString("country")
			Response.Cookies("CountryChoice") = Request.QueryString("country")
			Response.Cookies("CountryChoice").expires = dateAdd("yyyy", 2, now())
	End Select
End If

'TEMPORARY OVERRIDE!!!
'Session("CountryChoice") = "us"
'Response.Cookies("CountryChoice") = "us"
'Response.Cookies("CountryChoice").expires = dateAdd("yyyy", 2, now())

Function OfferCodeIsExpired(TheOfferCode)
	'Dim csDBUtilObj, strSql, rsExpiredCode
	Dim ConnectCart, strConnectCart, StrSql, rsExpiredCode

	strConnectCart = "File Name=C:\mimio_udl_files\mimio_store.udl"
	Set ConnectCart = Server.CreateObject("ADODB.Connection")
	ConnectCart.Open strConnectCart

	StrSql = "usp_get_offer_code_details '" & CleanSql(Request.Cookies("OfferCode")) & "', NULL, 0"

	'Set rsExpiredCode = csDBUtilObj.CreateRS(StrSql)
	Set rsExpiredCode = ConnectCart.Execute(StrSql)
	
	If Not rsExpiredCode.EOF Then
		If DateValue(Date) >= DateValue(rsExpiredCode("expiration_date")) Then
			OfferCodeIsExpired = True
		Else 
			OfferCodeIsExpired = False
		End If
	Else
		OfferCodeIsExpired = True
	End If
	
	If IsObject(rsExpiredCode) Then
		If rsExpiredCode.State = 1 Then
			rsExpiredCode.Close
		End If
	End If

	ConnectCart.Close
	
	Set rsExpiredCode = Nothing
	Set ConnectCart = Nothing
	'Set csDBUtilObj = Nothing
End Function

If Request.QueryString("code") <> "" Then
	If Request.Cookies("RefCode") = "" Then
		Response.Cookies("RefCode") = CleanTextValues(Request.QueryString("code"))
	Else
		Response.Cookies("RefCode") = CleanTextValues(Request.QueryString("code")) & " " & Request.Cookies("RefCode")
	End If
	Response.Cookies("RefCode").Expires = DateAdd("D", 30, Now())
End If

If Request.QueryString("campaign") <> "" Then
	If Request.Cookies("RefCode") = "" Then
		Response.Cookies("RefCode") = CleanTextValues(Request.QueryString("campaign"))
	Else
		Response.Cookies("RefCode") = CleanTextValues(Request.QueryString("campaign")) & " " & Request.Cookies("RefCode")
	End If
	Response.Cookies("RefCode").Expires = DateAdd("D", 30, Now())
End If

''Affiliate codes in the URL / Commission Junction
'If Request.QueryString("PID") <> "" Then
'	Dim CodeString
'	CodeString = "AFID-" & UCase(CleanTextValues(Request.QueryString("PID")))
'	If InStr(Request.Cookies("RefCode"), CodeString) < 1 Then
'		If Request.Cookies("RefCode") = "" Then
'			Response.Cookies("RefCode") = CodeString
'		Else
'			Response.Cookies("RefCode") = CodeString & " " & Request.Cookies("RefCode")
'		End If
'	ElseIf InStr(Request.Cookies("RefCode"), CodeString) > 1 Then 'if the code is in there, but not in the "first" position.
'		Response.Cookies("RefCode") = CodeString & " " & Request.Cookies("RefCode")
'	End If
'	Response.Cookies("RefCode").Expires = DateAdd("D", 45, Now())
'End If

''"SITEID" Affiliate codes in the URL / Webgains
'If Request.QueryString("SITEID") <> "" Then
'	Dim SiteIDCodeString
'	SiteIDCodeString = "SITEID-" & UCase(CleanTextValues(Request.QueryString("siteid")))
'	If InStr(Request.Cookies("RefCode"), SiteIDCodeString) < 1 Then
'		If Request.Cookies("RefCode") = "" Then
'			Response.Cookies("RefCode") = SiteIDCodeString
'		Else
'			Response.Cookies("RefCode") = SiteIDCodeString & " " & Request.Cookies("RefCode")
'		End If
'	ElseIf InStr(Request.Cookies("RefCode"), SiteIDCodeString) > 1 Then 'if the code is in there, but not in the "first" position.
'		Response.Cookies("RefCode") = SiteIDCodeString & " " & Request.Cookies("RefCode")
'	End If
'	Response.Cookies("RefCode").Expires = DateAdd("D", 45, Now())
'End If

''"pjid" Affiliate codes in the URL / Pepperjack
'If Request.QueryString("pjid") <> "" Then
'	Dim PjIDCodeString
'	PjIDCodeString = "PJID-" & UCase(CleanTextValues(Request.QueryString("pjid")))
'	If InStr(Request.Cookies("RefCode"), PjIDCodeString) < 1 Then
'		If Request.Cookies("RefCode") = "" Then
'			Response.Cookies("RefCode") = PjIDCodeString
'		Else
'			Response.Cookies("RefCode") = PjIDCodeString & " " & Request.Cookies("RefCode")
'		End If
'	ElseIf InStr(Request.Cookies("RefCode"), PjIDCodeString) > 1 Then 'if the code is in there, but not in the "first" position.
'		Response.Cookies("RefCode") = PjIDCodeString & " " & Request.Cookies("RefCode")
'	End If
'	Response.Cookies("RefCode").Expires = DateAdd("D", 45, Now())
'End If

'Offer codes in the URL
If Request.QueryString("offercode") <> "" Then
	Response.Cookies("OfferCode") = UCase(CleanTextValues(Request.QueryString("offercode")))
	Response.Cookies("OfferCode").Expires = DateAdd("D", 30, Now())
End If

'forcing current promo code if there's no other code in place
If Request.Cookies("OfferCode") = "" And DateValue(Date) >= DateValue("3/31/2008") And DateValue(Date) < DateValue("5/1/2008") And _ 
Request.Cookies("CountryChoice") = "us" Then
	Response.Cookies("OfferCode") = "AP0810"
	Response.Cookies("OfferCode").Expires = DateAdd("D", 30, Now())
'seeing if the existing code if expired
ElseIf Request.Cookies("OfferCode") <> "AP0810" And DateValue(Date) >= DateValue("3/31/2008") And DateValue(Date) < DateValue("5/1/2008") And _ 
Request.Cookies("CountryChoice") = "us" Then
	If OfferCodeIsExpired(Request.Cookies("OfferCode")) Then
		If InStr(Request.Cookies("RefCode"), Request.Cookies("OfferCode")) < 1 Then
			If Request.Cookies("RefCode") = "" Then
				Response.Cookies("RefCode") = Request.Cookies("OfferCode")
			Else
				Response.Cookies("RefCode") = Request.Cookies("OfferCode") & " " & Request.Cookies("RefCode")
			End If
		End If
		Response.Cookies("RefCode").Expires = DateAdd("D", 30, Now())
		Response.Cookies("OfferCode") = "AP0810"
		Response.Cookies("OfferCode").Expires = DateAdd("D", 30, Now())
	End If
End If

If Request.Cookies("OfferCode") = "AP0810" And Request.Cookies("CountryChoice") <> "us" And Request.Cookies("CountryChoice") <> "canada" Then
	Response.Cookies("OfferCode") = ""
	Response.Cookies("OfferCode").Expires = DateAdd("D", 30, Now())
ElseIf Request.Cookies("OfferCode") = "AP0810" And DateValue(Date) >= DateValue("5/1/2008") Then
	Response.Cookies("OfferCode") = ""
	Response.Cookies("OfferCode").Expires = DateAdd("D", 30, Now())
End If
%>
<meta HTTP-EQUIV="REFRESH" content="0; url=/index.asp">