Dalun Software

<%@ EnableSessionState=False%>
<%
    ' This file is provided as part of ASP Power Widgets Samples
    '
    ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
    ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
    ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
    ' OF MERCHANTABILITY AND/OR FITNESS FOR A  PARTICULAR
    ' PURPOSE.

    ' Copyright 1998-2002. All rights reserved.
    ' Dalun Software Inc. ASP Power Widgets
    ' http://dalun.com 
    ' mail: sales@dalun.com
    ' mail: techsupport@dalun.com
    ' if you have any suggestions or requirements, please write to us.
    ' Revisions:
    ' 2.0.0   Initial release
%>

<!--#include file="global.asp" -->

<%
    On error resume next

    Dim strTicket
    Dim oMailListXMLDoc
    Dim oXSLStyleSheet    
    Dim oPop3
    Dim iSegSize
    Dim iSegNum
    Dim strMailListHtml
    
    Dim oTotalAttr
    Dim iTotalMails    
    
    iSegSize = GetSegSize()
    iSegNum = GetSegNum()

    Set oPop3 = GetPOP3Object()
    strTicket = GetTicket()    
        
    Err.Clear 
    Set oMailListXMLDoc = oPop3.GetMailList(strTicket, iSegSize, iSegNum) 
   
    CheckTimeout()
        
    Set oXSLStyleSheet = GetCachedXMLDOM(Server.Mappath(APP_VDIR) + "\" + "ListMails.xsl")
    strMailListHtml = oMailListXMLDoc.transformNode(oXSLStyleSheet)
    BeginPage()    
%>
    <SCRIPT language="JavaScript">
       function CA()
       {
            var frm;
            var trk = 0;
            frm = document.forms[0]; 
            var f = document.forms[0].DELALL.checked;
            for (var i = 0; i < frm.elements.length; i++)
            {
                var e = frm.elements[i];
                if ((e.name == 'DEL') && (e.type == 'checkbox'))
                {
                    e.checked = f;   
                }
           }
        }           
       
    </SCRIPT>
    <TABLE border="0" width="100%" cellspacing="0" cellpadding="0">
        <TR><TD align="left">
            <FORM action="DeleteMail.asp" method="POST"> 
<%WriteMenu%>    
      <TABLE border="0" width="100%" cellspacing="0" cellpadding="0" class="Mtable">
         <TR>
            <TD bgcolor="#FFF7E5"><IMG src="./images/spacer.gif" width="5" height="16"/></TD>
            <TD bgcolor="#FFF7E5"><B><%=GetSetting("User")%></B></TD>
            <TD bgcolor="#FFF7E5" align="right">           
<%
    
    'Prepare navigation bar.
    Set oTotalAttr = oMailListXMLDoc.selectSingleNode("/MailList/@total")
    If Not(oTotalAttr is Nothing) Then
        If Len(oTotalAttr.text) > 0 Then
            nTotalMails = CLng(oTotalAttr.text)
            Response.Write "<B>You have " & nTotalMails & " mail(s).</B>&nbsp;&nbsp;&nbsp;&nbsp;" 
       End if
    End if
       
    If Cint(iSegNum) > 0 Then    
       Response.Write "<A href='ListMails.asp?SegSize=" + CStr(iSegSize) + "&SegNum=" + CStr(iSegNum-1) + "'><B>&lt;&lt;Previous</B></A>&nbsp;"
    End If 
    
    Set oNodeList =  oMailListXMLDoc.selectNodes("/MailList/*")
    If oNodeList.length >= iSegSize Then    
       Response.Write "<A href='ListMails.asp?SegSize=" + CStr(iSegSize) + "&SegNum=" + CStr(iSegNum+1) + "'><B>Next>></B></A>"
    End If 
%>        
         </TD>
      </TR>
   </TABLE>
        </TD></TR>
        <TR><TD>    
<%
    Response.write strMailListHtml
%>
            </FORM>
        </TD></TR>
    </TABLE>    
<%
    Call SetSetting("SegNum", CStr(iSegNum))
    Call SetSetting("SegSize", CStr(iSegSize))     
    EndPage()
%>    
        

<%
    Function WriteMenu    
    %>    
       <TABLE border="0" width="100%" bgcolor="#336699">
           <TR>
               <TD width="10%" align="center" nowrap>
                    <A class="tab" href="javascript: document.forms[0].submit();"><B>Delete Selected</B></A>
               </TD>
               <TD valign="bottom" align="center"><IMG src="./images/vsep.gif" width="2" height="14"/>
               </TD>
               
               <TD width="10%" align="center" nowrap>
                    <A class="tab" href="DeleteMail.asp?action=refresh"><B>Check New Mail</B></A>
               </TD>
               <TD valign="bottom" align="center"><IMG src="./images/vsep.gif" width="2" height="14"/>
               </TD>
                              
               <TD width="10%" align="center" nowrap>
                    <A class="tab" href="Compose.asp"><B>Compose</B></A>
               </TD>
               <TD valign="bottom" align="center"><IMG src="./images/vsep.gif" width="2" height="14"/>
               </TD>
               <TD width="10%" align="center" nowrap>
                    <A class="tab" href="Logon.asp?action=logout"><B>Log Out</B></A>
               </TD> 
               <TD valign="bottom" align="center"><IMG src="./images/vsep.gif" width="2" height="14"/>
               </TD>
               <TD width="100%"/>              
          </TR>
       </TABLE>          
      <%
    End function  
%>