AdMentor homepage

/asp/freeapps/statmentor/selectperiod.asp

<!--#include file="incstats.asp"-->
<!--#include file="menu.inc"-->
<html>

<head>
<%
'''''''''''  (C) Stefan Holmberg 1999  
'''''''''''  Free to use if these sourcecode lines is not deleted 
'''''''''''  Contact me at webmaster@sqlexperts.com
'''''''''''  http://www.sqlexperts.com
'''''''''''  AdMentor homepage at http://www.create-a-webshop.com

If Request.QueryString("del") = "yes" Then
    '
    Dim nFormItem
    For Each nFormItem In Request.Form
        If Left( nFormItem,3) = "FD_" And Request.Form( nFormItem ) = "ON" Then            
            DeleteFilesFromDate Mid(nFormItem,4)
        End If        
    Next
End If

%>


<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>StatMentor - Main page</title>
<style type="text/css">
<!--
     body {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     td {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     th {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table align="center" bgColor="#003399" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
  <tbody>
    <tr>
      <td vAlign="top" width="50%" height="60">
      <b><a href="http://www.create-a-webshop.com"><font color="#ECECD9" face="verdana,arial,helvetica" size="1">http://www.create-a-webshop.com</font></a></b>
      </td>
      <td vAlign="top" width="468" height="60">
      <b><font color="#FFFFFF" face="verdana,arial,helvetica" size="+2">StatMentor</font></b>
      </td>
    </tr>
    <tr>
      <td height="100%" vAlign="top" width="100%" colspan="2">
        <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
          <tbody>
            <tr>
              <td height="100%" vAlign="top" width="85%">
                <table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
                  <tbody>
                    <tr>
                      <td align="left" height="100%" vAlign="top" width="65%">
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%"><b><font color="#aa3333" face="verdana,arial,helvetica" size="4">Select
                              period</font></b>
                             
                            </td>
                            <td width="50%">
                            </td>
                          </tr>
                        </table>
                        <font color="#aa3333" face="verdana,arial,helvetica" size="+2">
                        <hr color="#000066" noShade SIZE="1">
                             
                        </font>
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="120" valign="top">
                              <%StatWriteMenu%></td>
                            <td width="70%">
                             
                        &nbsp;
<form method="POST" action="default.asp?select=true">
  <table border="0" width="100%">
    <tr>
      <td>From:</td>
      <td><select size="1" name="FromYear">
<%
    Dim nToYear, nToMonth, nToDay, dDefault

    'Default lets use today - 1 day
    dDefault = DateAdd( "d", -1, Now() )
    Date_FillBoxWithYears 1999, 2003, Date_GetYear( dDefault )
%>
        </select><select size="1" name="FromMonth">
<%        Date_FillBoxWithMonths Date_GetMonthNo( dDefault ), True %>
        </select><select size="1" name="FromDay">
<%        Date_FillBoxWithDays Date_GetDayNo( dDefault )%>
        </select></td>
    </tr>
    <tr>
      <td>To:</td>
      <td><select size="1" name="ToYear">
    <%
    Date_FillBoxWithYears 1999, 2003, ""  
    %>
        </select><select size="1" name="ToMonth">
<%        Date_FillBoxWithMonths "", True %>
        </select><select size="1" name="ToDay">
<%        Date_FillBoxWithDays "" %>
        </select></td>
    </tr>
  </table>
  <p><input type="submit" value="Select" name="B1"></p>
</form>
                          
                        <p><b>There is statistics available from these dates:</b><p>&nbsp;
<form method="POST" action="selectperiod.asp?del=yes">
  <table border="1" width="100%">
    <tr>
      <td width="50%"><b>Files exists from these dates</b></td>
      <td width="50%"><b>Delete</b></td>
    </tr>
<%
Set oDict = GetExistingDates()
For Each oKey In oDict.Keys 
%>
    <tr>
      <td width="50%"><%=oKey%></td>
      <td width="50%"><input type="checkbox" name="FD_<%=oKey%>" value="ON">Delete</td>
    </tr>
<%Next%>  
  </table>
  <p><input type="submit" value="Delete selected stat files" name="B1"></p>
</form>
                             
                        <p><font face="helvetica, arial" size="2">StatMentor is
                        developed by <a href="mailto:webmaster@sqlexperts.com">Stefan
                        Holmberg</a>. Usage of it is totally free.</font></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>

</body>

</html>
Privacy policy