<%@ Language=VBScript %> <% '******************************************************************** ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Administration Home Page ' Product : CandyPress Store Frontend ' Version : 2.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '******************************************************************** Option explicit Response.Buffer = true const adminLevel = 1 %> <% 'Declare variables dim mySQL, cn, rs '************************************************************************* 'Open Database Connection call openDB() 'Store Configuration if loadConfig() = false then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.") end if %>

Admin Home

Current Server Date   <%=formatDateTime(date(),vblongDate)%>
 
Current Server Time   <%=time()%>
Orders <%=orderStatusDesc("0")%>   <%=numOrders(0,"0") & " ( " & numOrders(-1,"0") & " in the last 24 Hours )"%>
 
Orders <%=orderStatusDesc("1")%>   <%=numOrders(0,"1")%>
HTTP Server   <%=Request.ServerVariables("SERVER_SOFTWARE")%>
 
Default Script Engine   <% on error resume next Response.Write ScriptEngine _ & " - Version " _ & ScriptEngineMajorVersion _ & "." _ & ScriptEngineMinorVersion _ & "." _ & ScriptEngineBuildVersion on error goto 0 %>
 
MDAC Version   <%=cn.Version%>
 
LCID 1033 Format - Number   <%=formatNumber(1234567.89,2)%>
 
LCID 1033 Format - Date   <%=formatDateTime(now(),vbShortDate)%>
Product Image Directory   <%=pImagesDir%>
 
Download Directory   <%=pDownloadDir%>
 
HTTP Scripts Directory   <%=urlNonSSL%>
 
HTTPS Scripts Directory   <%=urlSSL%>

<% 'Close database call closedb() %> <% '******************************************************************** 'Get Number of Orders '******************************************************************** function numOrders(intDays,orderStatus) dim tempDate if intDays = 0 then tempDate = dateInt(dateAdd("yyyy",-25,now())) else tempDate = dateInt(dateAdd("d",intDays,now())) end if mySQL = "SELECT COUNT(*) AS numOrders " _ & "FROM cartHead " _ & "WHERE orderDateInt > '" & tempDate & "' " if orderStatus <> "" then mySQL = mySQL & "AND orderStatus = '" & orderStatus & "' " end if set rs = openRSexecute(mySQL) numOrders = rs("numOrders") call closeRS(rs) end function %>