<%@ Language=VBScript %>
<%	
	option explicit 
	Response.Buffer = True

'@BEGINVERSIONINFO


'@APPVERSION: 5.10.10

'@FILENAME: affiliate.asp

'@FILEVERSION: 1.0.1

'@VERSIONDATETIME: 2/21/01

'@DESCRIPTION: Affiliate Partners Page

'@STARTCOPYRIGHT
'The contents of this file is protected under the United States
'copyright laws and is confidential and proprietary to
'LaGarde, Incorporated.  Its use or disclosure in whole or in part without the
'expressed written permission of LaGarde, Incorporated is expressly prohibited.
'
'(c) Copyright 2000, 2001 by LaGarde, Incorporated.  All rights reserved.
'@ENDCOPYRIGHT

'@ENDVERSIONINFO
%>
<!--#include file="sfLib/incDesign.asp"-->
<!--#include file="SFLib/db.conn.open.asp"-->
<!--#include file="SFLib/adovbs.inc"-->
<!--#include file="SFLib/incGeneral.asp"--> 
<%
Dim sAction,rsAff,iBookMark,iAffId,sFilter,sName,rsRegAff,sAffiliateId,rsSales,sSQL,sTotalNet,sTotalSTax,sTotalCTax,sTotalShipping,sHandling,sGrandTotal,arrSales,i

If Request.Form("affSubmit.x") <> "" or Request.QueryString("AffID") <> "" Then
	If Request.Form("affSubmit.x") <> "" Then sFilter = "affName = '" & trim(Request.Form("txtAffId")) & "' AND affPassword = '" & trim(Request.Form("passAff")) & "'"
	If Request.QueryString("AffID") <> "" Then sFilter = "affID = " &  Request.QueryString("AffID")
	Set rsAff = Server.CreateObject("ADODB.Recordset")
	rsAff.Open "sfAffiliates", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTable
	rsAff.Filter = sFilter

	If Not (rsAff.EOF And rsAff.BOF) Then
		sAffiliateId = trim(rsAff.Fields("affName"))
		sSQL = "SELECT orderAmount, orderSTax, orderSTax, orderShippingAmount, orderHandling, orderGrandTotal, orderTradingPartner FROM sfOrders WHERE orderTradingPartner = '" & sAffiliateId & "'"
		Set rsSales = Server.CreateObject("ADODB.RecordSet")
		rsSales.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
		
		If Not (rsSales.EOF and rsSales.BOF) Then arrSales = rsSales.GetRows 
		
		sTotalNet = 0 
		sTotalSTax = 0
		sTotalCTax = 0
		sTotalShipping = 0
		sHandling = 0 
		sGrandTotal = 0

		rsSales.Close 
		Set rsSales= Nothing

		If isArray(arrSales) Then
			For i=0 to uBound(arrSales, 2)
				If arrSales(0, i) <> "" Then sTotalNet = sTotalNet + cDbl(arrSales(0, i))
				If arrSales(1, i) <> "" Then sTotalSTax = sTotalSTax + cDbl(arrSales(1, i))
				If arrSales(2, i) <> "" Then sTotalCTax = sTotalCTax + cDbl(arrSales(2, i))
				If arrSales(3, i) <> "" Then sTotalShipping = sTotalShipping + cDbl(arrSales(3, i))
				If arrSales(4, i) <> "" Then sHandling = sHandling + cDbl(arrSales(4, i))
				If arrSales(5, i) <> "" Then sGrandTotal = sGrandTotal + cDbl(arrSales(5, i))
			Next
		End If 
			
		sAction = "Registered"
	Else
		sAction = "Not Found"
	End If
	closeObj(rsAff)
ElseIf Request.Form("newAffSubmit.x") <> "" Then
	Set rsAff = Server.CreateObject("ADODB.Recordset")
	rsAff.CursorLocation = adUseClient
	rsAff.Open "sfAffiliates ORDER BY affID", cnn, adOpenStatic, adLockOptimistic, adCmdTable
	
	sName = trim(Request.Form("txtName"))
	Do While Not rsAff.EOF
		If rsAff.Fields("affName") = sName Then sAction="Exists"
		rsAff.MoveNext
	Loop
	
	If sAction <> "Exists" Then
		rsAff.AddNew 
		rsAff.Fields("affName") = sName
		rsAff.Fields("affCompany") = trim(Request.Form("txtCompany"))
		rsAff.Fields("affAddress1") = trim(Request.Form("txtAdd1"))
		rsAff.Fields("affAddress2") = trim(Request.Form("txtAdd2"))
		rsAff.Fields("affCity") = trim(Request.Form("txtCity"))
		rsAff.Fields("affState") = trim(Request.Form("txtState"))
		rsAff.Fields("affZip") = trim(Request.Form("txtZip"))
		rsAff.Fields("affCountry") = trim(Request.Form("txtCountry"))
		rsAff.Fields("affPhone") = trim(Request.Form("txtPhone"))
		rsAff.Fields("affFAX") = trim(Request.Form("txtFax"))
		rsAff.Fields("affEmail") = trim(Request.Form("txtEmail"))
		rsAff.Fields("affHttpAddr") = trim(Request.Form("txtWeb"))
		rsAff.Fields("affPassword") = trim(Request.Form("Password"))
		rsAff.Update 
	
		iBookMark = rsAff.AbsolutePosition 
		rsAff.Requery 
		rsAff.AbsolutePosition = iBookMark
		iAffId = rsAff.Fields("affID")
	End If
		closeObj(rsAff)
	If sAction <> "Exists" Then Response.Redirect "Affiliate.asp?AffID=" & iAffId
ElseIf Request.QueryString("NewAccount") = "true" Then
	sAction = "New Account"
End If
%>
<script language="javascript" src="SFLib/sfCheckErrors.js"></script>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>SF Affiliate Partners Page</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body background="<%= C_BKGRND %>" bgproperties="fixed" bgcolor="<%= C_BGCOLOR %>" link="<%= C_LINK %>" vlink="<%= C_VLINK %>" alink="<%= C_ALINK %>">
<table border="0" cellpadding="1" cellspacing="0" bgcolor="<%= C_BORDERCOLOR1 %>" width="<%= C_WIDTH %>" align="center">
  <tr>
    <td>
	  <table width="100%" border="0" cellspacing="1" cellpadding="3">
        <tr>
          <%	If C_BNRBKGRND = "" Then %>
		  <td align="middle" background="<%= C_BKGRND1 %>" bgcolor="<%= C_BGCOLOR1 %>"><b><font face="<%= C_FONTFACE1 %>" color="<%= C_FONTCOLOR1 %>" SIZE="<%= C_FONTSIZE1 %>"><%= C_STORENAME %></font></b></td>
          <%	Else %>
		  <td align="middle" bgcolor="<%= C_BNRBGCOLOR %>"><img src="<%= C_BNRBKGRND %>" border="0"></td>
          <%	End If %>      
        </tr>
        <tr>
	      <td align="middle" background="<%= C_BKGRND2 %>" bgcolor="<%= C_BGCOLOR2 %>"><b><font face="<%= C_FONTFACE2 %>" color="<%= C_FONTCOLOR2 %>" SIZE="<%= C_FONTSIZE2 %>">Affiliate Registration</font></b></td>        
        </tr>
        <tr>
          <td bgcolor="<%= C_BGCOLOR3 %>" background="<%= C_BKGRND3 %>"><font face="<%= C_FONTFACE3 %>" color="<%= C_FONTCOLOR3 %>" size="<%= C_FONTSIZE3 %>"> Enter your affiliate ID and password to view your referred sales.  If you would like to establish a new affiliate account, click <B>New Account</B> to begin.</font></td>
        </tr>
        <tr>
          <td align="center" bgcolor="<%= C_BGCOLOR4 %>" background="<%= C_BKGRND4 %>" width="100%" nowrap>
       	    <% If sAction = "Registered" Then %>
       			<table border=0>
       			  <tr>
       			    <td align="left" colspan=2 width="100%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Please use this at the end of your link to this shopping
                        order.  Be sure the link is to as ASP page in this site.<br><br>
       			      <center>REFERER=<%= sAffiliateId %></center><br>
       			Example http://www.thisdomain.com/search.asp?REFERER=<%= sAffiliateId %><br><br></font></td>
       			  </tr>
       			  <tr>
       			    <td width="100%" colspan=2><hr width="100%"></td>
       			  </tr>
       			  <tr>
       			    <td align="Center" colspan=2 width="100%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4+1 %>"><b>Sales Invoice</b></font></td>
       			  </tr>
       			  <tr>
       			    <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Net Sales:</td><td width="20%" align="right"><%= FormatCurrency(sTotalNet) %></td>
       			    </tr>
       			    <tr>
       			      <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">State/Provence Tax:</td><td width="20%" align="right"><%= FormatCurrency(sTotalSTax) %></td>
       			      </tr>
       			      <tr>
       			        <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Country Tax:</td><td width="20%" align="right"><%= FormatCurrency(sTotalCTax) %></td>
       			        </tr>
       			        <tr>
       			          <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Handling:</td><td width="20%" align="right"><%= FormatCurrency(sHandling) %></td>
       			          </tr>
       			          <tr>
       			            <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Shipping:</td><td width="20%" align="right"><%= FormatCurrency(sTotalShipping) %></td>
       			            </tr>
       			            <tr>
       			              <td align="right" width="80%"><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Grand Total:</td><td width="20%" align="right"><%= FormatCurrency(sGrandTotal) %></td>
       			              </tr>
       			            </table>
       	                    <% ElseIf sAction = "New Account" or sAction = "Exists" Then %>
       	                    <form method="post" action="Affiliate.asp" onSubmit="this.Password.password=true;this.txtAdd2.optional=true;this.txtPhone.phoneNumber=true;this.txtEmail.eMail=true;this.txtFax.optional=true;return sfCheck(this)" name=frmNewAff>
       	                      <table width="100%">
       		                    <% If sAction = "Exists" Then %>
       		                    <tr>
       		                      <td colspan=2 align=center><font face="<%= C_FONTFACE4 %>" color="ff0000" size="<%= C_FONTSIZE4+1 %>">We are sorry but your <b>"Affiliate ID"</b> already exists, please enter a different ID value.</font></td>
       		                    </tr>
       		                    <% End If %>
       	                        <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Affiliate ID:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="15" name="txtName" value="<%= Request.Form("txtName")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Company:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="20" name="txtCompany" value="<%= Request.Form("txtCompany")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Address Line 1:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="25" name="txtAdd1" value="<%= Request.Form("txtAdd1")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Address Line 2:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="25" name="txtAdd2" value="<%= Request.Form("txtAdd2")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">City:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="15" name="txtCity" value="<%= Request.Form("txtCity")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">State:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="15" name="txtState" value="<%= Request.Form("txtState")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Zip/Postal Code:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="10" name="txtZip" value="<%= Request.Form("txtZip")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Country:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="20" name="txtCountry" value="<%= Request.Form("txtCountry")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Phone Number:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="15" name="txtPhone" value="<%= Request.Form("txtPhone")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Fax Number:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="15" name="txtFax" value="<%= Request.Form("txtFax")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Email:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="20" name="txtEmail" value="<%= Request.Form("txtEmail")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Web Site:</font></td>
	                              <td align="left" width="80%" nowrap><input type="text" style="<%= C_FORMDESIGN %>" size="25" name="txtWeb" value="<%= Request.Form("txtWeb")%>"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Password:</font></td>
	                              <td align="left" width="80%" nowrap><input type="password" style="<%= C_FORMDESIGN %>" size="15" name="Password"></td>
	                            </tr>
	                            <tr>
	                              <td align="left" width="20%" nowrap><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Confirm Password:</font></td>
	                              <td align="left" width="80%" nowrap><input type="password" style="<%= C_FORMDESIGN %>" size="15" name="Password2"></td>
	                            </tr>
	                            <tr>
	                              <td align="center" width="100%" colspan=2><input type="image" src="<%= C_BTN18 %>" border="0" name="newAffSubmit"></td>
	                            </tr>
       	                      </table>
       	                    </form>
       	                    <% Else %>
       	                    <form method="post" action="Affiliate.asp" onSubmit="return sfCheck(this)" name=frmAff>
                              <table border="0" bgcolor="#000000" width="75%">
                                <tr>
                                  <td width="100%" align="middle" bgcolor="<%= C_BGCOLOR3 %>"><b>
			                        <%If sAction = "Not Found" Then%>
				                    <font face="<%= C_FONTFACE3 %>" color="<%= C_FONTCOLOR3 %>" size="<%= C_FONTSIZE3+1 %>">Your Affiliate ID and Password did not match a registered user, please create a new account or try again.
			                        <%Else%>
				                    <font face="<%= C_FONTFACE3 %>" color="<%= C_FONTCOLOR3 %>" size="<%= C_FONTSIZE3 %>">Please Type In Your Affiliate ID and Password or Click on New Account.
			                        <%End If%>
                                    </font></b>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td width="100%" align="center" bgcolor="<%= C_BGCOLOR4 %>">
                                      <table border="0" width="100%">
                                        <tr>
                                          <td width="50%" align="right"><b><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Affiliate ID:</font></b></td>
                                          <td width="50%"><input type="text" name="txtAffId" title="Affiliate ID">
                                          </tr>
                                          <tr>
                                            <td width="50%" align="right"><b><font face="<%= C_FONTFACE4 %>" color="<%= C_FONTCOLOR4 %>" size="<%= C_FONTSIZE4 %>">Password:</font></b></td>
                                            <td width="50%"><input type="password" name="passAff" title="Password">
                                            </tr>
                                            <tr>
                                              <td width="100%" align="middle" colspan="2">
				                                <input type="image" src="<%= C_BTN18 %>" border="0" name="affSubmit"><a href="Affiliate.asp?NewAccount=true"><img src="<%= C_BTN19 %>" border="0" name="affNewAccount"></a>
                                              </td>         
                                            </tr>
                                          </table>
                                        </td>
                                      </tr>
                                    </table>
                                  </form> 
                                  <% 
        End If 
        closeObj(cnn)
        %> 
                                  <!--#include file="footer.txt"-->
                                </td>
                              </tr>
                            </table>
                          </td>
                        </tr>

                      </table>
                    </body>
                  </html>