<%@ LANGUAGE="VBScript" CODEPAGE=65001%>
<%
'// Domain Masking script generated and powered by
'// 1ShoppingCart(c) 2010
'// http://www.1shoppingcart.com
' ***** DO NOT REMOVE *****
Const SCRIPT_VERSION = "0.5"
' The following is used for tracking and validation purposes.
If StrComp(Request("cmd"), "version", 1) = 0 Then
    Response.Write SCRIPT_VERSION
    Response.End()
End If
' ***** DO NOT REMOVE *****

Dim mid
mid = "EDF243E1-C56B-4F78-A308-27ABC53D4651"

Dim merchantId, cmd, dest, baseUrl

merchantId = "53447"
cmd = Request("cmd")
baseUrl = "http://www.1shoppingcart.com"
dest = baseUrl & "/app/default.asp?id=" & merchantId

If Request("pid") <> "" Or Request("bid") <> "" Or Request("gid") <> "" Then
    dest = baseUrl & "/SecureCart/SecureCart.aspx?mid=" & mid & "&" & Request.QueryString
ElseIf cmd <> "" Then
    Select Case cmd
        Case "cart"
            dest = baseUrl & "/SecureCart/SecureCart.aspx?mid=" & mid
        Case "checkout"
            dest = baseUrl & "/SecureCart/SecureCart.aspx?mid=" & mid & "&co=1"
        Case "login"
            dest = baseUrl & "/SYS/?m=" & merchantId & "&c=l"
        Case "signup"
            dest = baseUrl & "/SYS/?m=" & merchantId & "&c=s"
        Case "cancel"
            dest = baseUrl & "/app/removesave.asp?merchantid=" & merchantId & "&clientid=" & Request("id") & "&removear=Yes"
        Case "update" 'change
            dest = baseUrl & "/app/r.asp?merchantid=" & merchantId & "&id=" & Request("id") & "&c=1"
        Case Else 'home
            dest = "www.fredericpatenaude.com"
    End Select
Else
    If Request("af") <> "" Then 'Track Affiliate
        dest = "http://www.mcssl.com/SecureClient/track.ashx?" & Request("af") & "&1&mid=" & Request("merchantid") & "&u=" & Request("u")
    ElseIf Request("ad") <> "" Then 'Track Ad
        dest = "http://www.mcssl.com/SecureClient/track.ashx?" & Request("ad") & "&6"
    ElseIf Request("imp") <> "" Then 'Track Impressions
        dest = "http://www.mcssl.com/SecureClient/track.ashx?" & Request("imp") & "&3"
    ElseIf Request("clk") <> "" Then 'Track Clicks
        dest = "http://www.mcssl.com/SecureClient/track.ashx?" & Request("clk") & "&2"
    ElseIf Request("email1") <> "" Then 'contact
        dest = baseUrl & "/app/contactsave.asp?merchantid=" & merchantId
        If Request.QueryString <> "" Then dest = dest & "&" & Request.QueryString
        If Request.Form <> "" Then dest = dest & "&" & Request.Form
    End If
End If

Response.Redirect(dest)
Response.End()
%>