<% '***************************************************************** ' VP-ASP date form Used in many places ' VP-ASP 6.50 March 26, 2004 '***************************************************************** Sub Shopdateform (header) dim dateprompt dateprompt=getlang("langcommonselect") dateprompt=" " & getlang("LangDisplayDate") & "

" %>

<% dim dateformat ' if (Session.LCID > "") or (getconfig("xlcid") > "") then ' dateformat = 'else if getconfig("xdateformat") > "" then dateformat = replace(getconfig("xdateformat"), " ", "/") dateformat = replace(dateformat, "m", "M") dateformat = replace(dateformat, ".", "/") dateformat = replace(dateformat, "-", "/") else 'default to American format if not otherwise specified dateformat = "mm/dd/yyyy" end if '============================================== %>

<%=getlang("langReportFromdate")%>
	<%=dateprompt%>

<%=getlang("langReportToDate")%>
	<%=dateprompt%>

<%=getlang("langReportMonth")%>

<%=getlang("langReportYear")%>

<%=getlang("langReportToday")%>

<%=getlang("langReportYesterday")%>

<%=getlang("langReportMaxRows")%>

" name="Summary" />

" class='submitbtn' name="B2" />

" name="Details" />

<%addwebsessform end sub 'VP-ASP 6.50 - sales report date form Sub ShopdateformSales (header) dim dateprompt dateprompt=getlang("langcommonselect") dateprompt=" " & getlang("LangDisplayDate") & "

" %>

<%=getlang("langReportFromdate")%>
	<%=dateprompt%>

<%=getlang("langReportToDate")%>
	<%=dateprompt%>

<%=getlang("langReportMonth")%>

<%=getlang("langReportYear")%>

<%=getlang("langReportToday")%>

<%=getlang("langReportYesterday")%>

<%=getlang("langReportMaxRows")%>

Order Types: <%dim ii%>

Show Processed Orders Only:

" name="Summary">

" class='submitbtn' name="B2">

" name="Details">

<%addwebsessform end sub %>