<% Session.Timeout = 60 %> <% Server.ScriptTimeout = 999999 %> <% If Trim(Application("afw_LocaleIdentifier"))<>"" Then If Clng(Application("afw_LocaleIdentifier"))>0 Then On Error Resume Next Session.LCID=Application("afw_LocaleIdentifier") If Err.Number>0 Then Session.LCID=1033 End If On Error GoTo 0 End If End If blnOK=True %> <% '************************************************************************* '* Product: Affiliate Wiz Version 3 '* Copyright (c) 2000-2002 by AdComplete.com, LLC. All rights reserved. '************************************************************************* If Request("Join")="True" And Trim(Request.Form("Email"))<>"" Then %> <% End If If Request("Login")="True" Then strSQL="Select * From tblaff_Affiliates Where LoginName='" & FixBlank(Request.Form("Email")) & "' And LoginPassword='" & FixBlank(Request.Form("Password")) & "'" 'set database connection Set connAffiliateWiz=gConnADODB(AffiliateWizConnectString) 'Execute Select Statement Set rsAffiliate=connAffiliateWiz.Execute(strSQL) If Not rsAffiliate.EOF Then If rsAffiliate("AccountActivated")=True Then blnActivated=True Session("afw_UserName")=Request.Form("Email") Session("afw_Password")=Request.Form("Password") Session("AffiliateID")=rsAffiliate("AffiliateID") Session("afw_PerClick")=rsAffiliate("PerClick") Session("afw_PerSale")=rsAffiliate("PerSale") Session("afw_PerLead")=rsAffiliate("PerLead") Session("afw_FlatRateOrPercentOfSale")=rsAffiliate("FlatRateOrPercentOfSale") Session("afw_PerClickRate")=FixZero(rsAffiliate("PerClickRate")) Session("afw_PerSaleRate")=FixZero(rsAffiliate("PerSaleRate")) Session("afw_PerLeadRate")=FixZero(rsAffiliate("PerLeadRate")) Session("afw_PerClickRate2")=FixZero(rsAffiliate("PerClickRate2")) Session("afw_PerSaleRate2")=FixZero(rsAffiliate("PerSaleRate2")) Session("afw_PerLeadRate2")=FixZero(rsAffiliate("PerLeadRate2")) Session("afw_AffiliateTypeID")=FixZero(rsAffiliate("AffiliateTypeID")) If Request.Form("Remember")="ON" Then Response.Cookies("AffilaiteWizM")("UserName") = Session("afw_UserName") Response.Cookies("AffilaiteWizM")("Password") = Session("afw_Password") Else Response.Cookies("AffilaiteWizM")("UserName") = "" Response.Cookies("AffilaiteWizM")("Password") = "" End If Response.Cookies("AffilaiteWizM").Expires=Date() + 365 strMessage="Welcome Back!" Else blnActivated=False blnNotLoggedIn=True strMessage="Sorry, your account has not yet been approved." End If Else blnNotLoggedIn=True strMessage="Incorrect Login Information" End If Set rsAffiliate=Nothing CloseConnection connAffiliateWiz If blnActivated=True Then Set connAffiliateWiz=gConnADODB(AffiliateWizConnectString) '------------------------------------------------------------------------- 'Grab Total Earned sngCommission=0 sngCommissionPaid=0 If Application("afw_AffiliateWizSQL")=False Then strSQL="SELECT Sum(tblaff_Sales_Commissions.Commission) AS Commission,tblaff_Sales_Commissions.Paid " strSQL=strSQL & " FROM tblaff_Sales LEFT JOIN tblaff_Sales_Commissions ON tblaff_Sales.SalesID = tblaff_Sales_Commissions.SalesID " strSQL=strSQL & " WHERE (tblaff_Sales_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " And (((tblaff_Sales.AffiliateSaleAccepted)<>0) AND ((tblaff_Sales.Valid)<>0))) " strSQL=strSQL & " Group By tblaff_Sales_Commissions.Paid" Else strSQL="SELECT Sum(tblaff_Sales_Commissions.Commission) AS Commission, Cast(tblaff_Sales_Commissions.Paid As Integer) As Paid " strSQL=strSQL & " FROM tblaff_Sales LEFT JOIN tblaff_Sales_Commissions ON tblaff_Sales.SalesID = tblaff_Sales_Commissions.SalesID " strSQL=strSQL & " WHERE (tblaff_Sales_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " And (((tblaff_Sales.AffiliateSaleAccepted)<>0) AND ((tblaff_Sales.Valid)<>0))) " strSQL=strSQL & " Group By Cast(tblaff_Sales_Commissions.Paid As Integer)" End If Set rsTemp=connAffiliateWiz.Execute(strSQL) Do While Not rsTemp.EOF sngCommission=sngCommission + FixZero(rsTemp("Commission")) If rsTemp("Paid")<>0 Then sngCommissionPaid=sngCommissionPaid+ FixZero(rsTemp("Commission")) End If rsTemp.MoveNext Loop Set rsTemp=Nothing '------------------------------------------------------------------------- If Application("afw_AffiliateWizSQL")=False Then strSQL="SELECT Sum(tblaff_Leads_Commissions.Commission) AS Commission,tblaff_Leads_Commissions.Paid " strSQL=strSQL & " FROM tblaff_Leads LEFT JOIN tblaff_Leads_Commissions ON tblaff_Leads.LeadID = tblaff_Leads_Commissions.LeadID " strSQL=strSQL & " WHERE (tblaff_Leads_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " And (((tblaff_Leads.AffiliateSaleAccepted)<>0) AND ((tblaff_Leads.Valid)<>0))) " strSQL=strSQL & " Group By tblaff_Leads_Commissions.Paid" Else strSQL="SELECT Sum(tblaff_Leads_Commissions.Commission) AS Commission,Cast(tblaff_Leads_Commissions.Paid As Integer) As Paid " strSQL=strSQL & " FROM tblaff_Leads LEFT JOIN tblaff_Leads_Commissions ON tblaff_Leads.LeadID = tblaff_Leads_Commissions.LeadID " strSQL=strSQL & " WHERE (tblaff_Leads_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " And (((tblaff_Leads.AffiliateSaleAccepted)<>0) AND ((tblaff_Leads.Valid)<>0))) " strSQL=strSQL & " Group By Cast(tblaff_Leads_Commissions.Paid As Integer)" End If Set rsTemp=connAffiliateWiz.Execute(strSQL) Do While Not rsTemp.EOF sngCommission=sngCommission + FixZero(rsTemp("Commission")) If rsTemp("Paid")<>0 Then sngCommissionPaid=sngCommissionPaid+ FixZero(rsTemp("Commission")) End If rsTemp.MoveNext Loop Set rsTemp=Nothing '------------------------------------------------------------------------- If Application("afw_AffiliateWizSQL")=False Then strSQL="SELECT Sum(tblaff_Clicks_Commissions.Commission) AS Commission,tblaff_Clicks_Commissions.Paid " strSQL=strSQL & " FROM tblaff_Clicks LEFT JOIN tblaff_Clicks_Commissions ON tblaff_Clicks.ClickID = tblaff_Clicks_Commissions.ClickID " strSQL=strSQL & " WHERE tblaff_Clicks_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " Group By tblaff_Clicks_Commissions.Paid" Else strSQL="SELECT Sum(tblaff_Clicks_Commissions.Commission) AS Commission,Cast(tblaff_Clicks_Commissions.Paid As Integer) As Paid " strSQL=strSQL & " FROM tblaff_Clicks LEFT JOIN tblaff_Clicks_Commissions ON tblaff_Clicks.ClickID = tblaff_Clicks_Commissions.ClickID " strSQL=strSQL & " WHERE tblaff_Clicks_Commissions.AffiliateID=" & Clng(Session("AffiliateID")) strSQL=strSQL & " Group By Cast(tblaff_Clicks_Commissions.Paid As Integer)" End If Set rsTemp=connAffiliateWiz.Execute(strSQL) Do While Not rsTemp.EOF sngCommission=sngCommission + FixZero(rsTemp("Commission")) If rsTemp("Paid")<>0 Then sngCommissionPaid=sngCommissionPaid+ FixZero(rsTemp("Commission")) End If rsTemp.MoveNext Loop Set rsTemp=Nothing '------------------------------------------------------------------------- Session("afw_TotalEarned")=FormatCurrency(sngCommission) Session("afw_TotalPayed")=FormatCurrency(FixZero(sngCommissionPaid)) Session("afw_CurrentBalance")=FormatCurrency(sngCommission-FixZero(sngCommissionPaid)) CloseConnection connAffiliateWiz Response.Redirect "default.asp?Task=Reports" End If ElseIf Session("afw_UserName")="" OR Session("afw_Password")="" OR Session("AffiliateID")="" Then blnNotLoggedIn=True End If %> Affiliate Wiz Member Management Console
Member Administration Console
<% If Clng(Application("afw_Tiers"))>1 Then %> <% End If %>
 
Build A Link
    Static Banners
    Rotating Banners
    Text Links
    Product Links
Update Account
Earn More Money
Reports
Logout
">Email Administrator
 
<% If blnNotLoggedIn<>True Then If strTask1="" THen strTask2=Request.QueryString("Task2") End If Select Case Request("Task") Case "Logout" %> <% Case "Account" If Request("Task2")="Edit" Then %> <% ElseIf Request("Task2")="Update" Then %> <% End If Case "Link" If Request("Task2")="StaticBanners" Then %> <% ElseIf Request("Task2")="Groups" Then %> <% ElseIf Request("Task2")="StaticText" Then %> <% ElseIf Request("Task2")="Products" Then %> <% ElseIf Request("Task2")="GroupBanners" Then %> <% End If Case "Reports" %> <% Case "Tier2" %> <% End Select Else IF Request("Task")="ForgotPassword" Then %> <% ElseIf Request("Task")="SendPassword" Then %> <% Else %> <% End If End IF %>
<%=strMessage%>