<% Option Explicit Response.Buffer = True '-------------------------------------------------------------------- '@BEGINVERSIONINFO '@APPVERSION: 5.10.10 '@FILENAME: processor.asp '@FILEVERSION: 1.0.1 '@VERSIONDATETIME: 2/21/01 '@DESCRIPTION: web reporting tool '@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 dim sEndDate,weekStart If Request.Form("btnSubmit.x") <> "" Then If Request.Form("selReport") = "SaleDetails" Then If Request.Form("startDate") <> "" and Request.Form("endDate") <> "" Then sEndDate = Request.Form("endDate") sEndDate = dateadd("d",1,sEndDate) Response.Redirect "sfReports1.asp?startDate=" & Request.Form("startDate") & "&endDate=" & sEndDate End If ElseIf Request.Form("selReport") = "SaleSummary" Then If Request.Form("startDate") <> "" and Request.Form("endDate") <> "" Then sEndDate = Request.Form("endDate") sEndDate = dateadd("d",1,sEndDate) Response.Redirect "sfReports2.asp?startDate=" & Request.Form("startDate") & "&endDate=" & sEndDate End If ElseIf Request.Form("selReport") = "TransactionServiceReport" Then If Request.Form("startDate") <> "" and Request.Form("endDate") <> "" Then sEndDate = Request.Form("endDate") sEndDate = dateadd("d",1,sEndDate) Response.Redirect "sfReports3.asp?startDate=" & Request.Form("startDate") & "&endDate=" & sEndDate End If ElseIf Request.Form("selReport") = "TradingPartnerReports" Then If Request.Form("startDate") <> "" and Request.Form("endDate") <> "" Then sEndDate = Request.Form("endDate") sEndDate = dateadd("d",1,sEndDate) Response.Redirect "sfReports4.asp?startDate=" & Request.Form("startDate") & "&endDate=" & sEndDate End If ElseIf Request.Form("selReport") = "ProductSaleReport" Then If Request.Form("startDate") <> "" and Request.Form("endDate") <> "" Then sEndDate = Request.Form("endDate") sEndDate = dateadd("d",1,sEndDate) Response.Redirect "sfReports5.asp?startDate=" & Request.Form("startDate") & "&endDate=" & Request.Form("endDate") End If ElseIf Request.Form("selReport") = "RetriveOrder" Then Response.Redirect "sfReports6.asp" End If End If If DatePart("w", date(), 1) = 1 Then weekStart = date()-6 ElseIf DatePart("w", date(), 1) = 2 Then weekStart = date() ElseIf DatePart("w", date(), 1) = 3 Then weekStart = date()-1 ElseIf DatePart("w", date(), 1) = 4 Then weekStart = date()-2 ElseIf DatePart("w", date(), 1) = 5 Then weekStart = date()-3 ElseIf DatePart("w", date(), 1) = 6 Then weekStart = date()-4 ElseIf DatePart("w", date(), 1) = 7 Then weekStart = date()-5 End If %> SF Reports Page ')">
<% If C_BNRBKGRND = "" Then %> <% Else %> <% End If %>
<%= C_STORENAME %>
StoreFront Reports
Select a report from the drop down box below. Enter a date in the Start Date and End Date fields and Submit or choose one of the pre-defined Day, Week to Date, Month to Date or Year to Date reports.
<% If Request.Form("btnSubmit.x") <> "" Then %> <% End If %>
Please Enter a Start and End Date
Create Report
[ ')">Day | " onClick="javascript:linkChange('<%= weekStart %>', '<%= dateadd("d",1,date()) %>')">Week to Date | &endDate=<%= dateadd("d",1,date()) %>" onClick="javascript:linkChange('<%= month(date()) & "/01/" & year(date()) %>', '<%= dateadd("d",1,date()) %>')">Month to Date | &endDate=<%= date()%>" onClick="javascript:linkChange('<%= "01/01/" & year(date()) %>', '<%= dateadd("d",1,date()) %>')">Year to Date ]
Start Date: End Date:
Select Report:

<%= C_STORENAME %>