Sunday, November 23, 2008 Register
You are here Articles Demos Spam Stats v1
   
Spam Stats v1 Minimize
Mail Server Email Statistics

 
The above data was collected using ArGo Software Designs Mail Server .NET Edition version and the Server Side Solutions eWall version programmable Gateway with Paranoid version spam filter.The orginal What is Spam Stats? article was based on ArGo Software designs Mail Server Pro Win32 Edition and Server Side Soltions Mail Filter Pro using MySQL as the database.

We have since move to the ArGo Software Design Mail Server .NET Edition, upgraded to Server Side Solutions eWall and ported our scripts to work with MS-SQL. We also have Server Side Solutions Mail Filter Pro version installed for testing and development purposes.

All Top Cat Computing servers are scanned and protected by using virus database .

For more information, please see What is Spam Stats?.
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Control Language="vb" %>
<script runat="server">

        Dim objConnection As SqlConnection
	Dim myDataReader As SqlDataReader	
        Dim strConn As System.Configuration.ConfigurationSettings
        Dim objAdapter As System.Data.SqlClient.SqlDataAdapter
        Dim objDataSet As DataSet
        

Sub Page_Load(S As Object, E As EventArgs)
    ' Set up our connection.
       objConnection = New SqlClient.SqlConnection(strConn.AppSettings("Siteops"))
       Dim objCommand As SqlCommand

 	' Create new command object passing it our SQL query
	' and telling it which connection to use.
            
	objCommand = New SqlCommand("SELECT Filtername, SUM(hits) AS Hits, SUM(Bytes) AS Bytes  FROM TCC_STATS GROUP BY SortOrder,Filtername Order by SortOrder ASC, Filtername ASC", objConnection)
        objAdapter = New System.Data.SqlClient.SqlDataAdapter(objCommand)
        objDataSet = New DataSet
        objAdapter.Fill(objDataSet)
        
        myDataGrid.DataSource = objDataSet
        myDataGrid.DataBind()
	' Open the connection, execute the command, and close the connection.
      
	objConnection.Open()
	myDataReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
        GetStatus()
        GetVersions()
End Sub
Sub GetStatus()
  Dim i
  i=0
  Dim myConnection As New SqlClient.SqlConnection(strConn.AppSettings("Siteops"))
  Dim myQuery As String = "SELECT KeyValue FROM TCC_Config WHERE KeyName like'Spam%' order by KeyValue ASC"
  Dim myCommand As New SqlClient.SqlCommand(myQuery)
  myCommand.Connection = myConnection
  myConnection.Open()
  Dim MyReader As SqlClient.SqlDataReader
  MyReader = myCommand.ExecuteReader
  Label1.Text="<div align=""center""><span style=""font-family:Verdana;font-size=11px;font-weight:bold"">Statistics Collection Started: "
  While MyReader.Read()
    Label1.Text =Label1.Text &   MyReader.GetValue(0) 
    if i=0 then
       Label1.Text =Label1.Text & "<br>Statistics Collection Last Updated: "
    End If
    i=i+1
  End While
  Label1.Text =Label1.Text & "</span></div>"
  MyReader.Close()
  myConnection.Close()


End Sub
Sub GetVersions()
  Dim myConnection As New SqlClient.SqlConnection(strConn.AppSettings("Siteops"))
  Dim myQuery As String = "SELECT KeyValue, KeyName FROM TCC_Config WHERE KeyName like'Ver%' order by KeyValue ASC"
  Dim myCommand As New SqlClient.SqlCommand(myQuery)
  myCommand.Connection = myConnection
  myConnection.Open()
  Dim MyReader As SqlClient.SqlDataReader
  MyReader = myCommand.ExecuteReader
  
  While MyReader.Read()
      Select Case trim(MyReader.GetValue(1))

       Case "Version_AVG"
                AVGVer.Text = "<a href=http://www.topcatcomputing.com/affiliateclick.aspx?aid=1 targert=_blank>" &  trim(MyReader.GetValue(0)) & "</a>"
       Case "Version_VDB"
               VDBVer.Text =  trim(MyReader.GetValue(0))
       Case "Version_ArGo"
               ArGoVER.Text =  trim(MyReader.GetValue(0))
       Case "Version_EW"
                EWVER.Text =  trim(MyReader.GetValue(0))
       Case "Version_MF"
                MFVER.Text =  trim(MyReader.GetValue(0)) 
       Case "Version_Paranoid" 
               ParaVER.Text =  trim(MyReader.GetValue(0))
    End Select
  End While
  MyReader.Close()
  myConnection.Close()


End Sub

</script>

<div align="center">
<table width="75%" cellspacing=2 cellpadding=2 border=0>
<tr><td colspan=4><div align="center"><span style="font-family:Verdana;font-size:16pt;font-weight:bold;color:blue">Mail Server Email Statistics</span></div></td></tr>
<tr><td colspan=4><asp:literal id="label1" runat="server" /><br>&nbsp;</td></tr>
<tr><td colspan=4><div align="center"><ASP:DataGrid id="MyDataGrid" runat="server"
           BorderColor="black"
           BorderWidth="2"
           GridLines="Both"
           BorderStyle="solid"
           AutoGenerateColumns="False"
           Width="99%"
           cellpadding="5"
           cellspacing="0"            
 >
 <HeaderStyle 
    BackColor="Blue" 
    ForeColor="White" 
    Font-Name="Verdana" 
    Font-Size="10pt">
    

         </HeaderStyle>
  <AlternatingItemStyle 
        BackColor="Silver"
        ForeColor="Black"
        Font-Name="Verdana" 
        Font-Size="10pt">

         </AlternatingItemStyle>
         <ItemStyle 
           ForeColor="Black"
           Font-Name="Verdana" 
           Font-Size="10pt">

        </ItemStyle>
         <Columns>

            <asp:BoundColumn
                 HeaderText="Filter Name" 
                 DataField="FilterName">
            </asp:BoundColumn>
            

            <asp:BoundColumn
                 HeaderText="Hit Count" 
                 DataField="Hits"
                 DataFormatString="{0:###,###,###,###}" >
                <ItemStyle HorizontalAlign="right" />
            </asp:BoundColumn>

            
         </Columns>

</ASP:DataGrid>
 </div></td></tr>
<tr>
<td><span style="font-family:Verdana;font-size=11px;font-weight:normal">The above data was collected using <a href="http://www.argosoft.com/RootPages/MailServerNET/Default.aspx" target="_blank">ArGo Software Designs Mail Server .NET Edition version <asp:literal id="ArGoVer" runat="server" /></a> and the <a href="http://www.sssolutions.net/ew/" target="_blank">Server Side Solutions eWall version <asp:literal id="EWVer" runat="server" /></a> programmable Gateway with <a href="http://www.sssolutions.net/paranoid/" target="_blank"> Paranoid version <asp:literal id="ParaVer" runat="server" /></a> spam filter.<br.<br>The orginal <a href="http://www.topcatcomputing.com/Articles/tabid/54/articleType/ArticleView/articleId/4/What-is-Spam-Stats.aspx">What is Spam Stats?</a> article was based on <a href="http://www.argosoft.com/RootPages/MailServer/Default.aspx" target="_blank">ArGo Software designs Mail Server Pro Win32 Edition</a> and <a href="http://www.sssolutions.net/mf/" target="_blank">Server Side Soltions Mail Filter Pro</a> using <a href="http://www.mysql.com/" target="_blank">MySQL</a> as the database.<br><br> 

We have since move to the <a href="http://www.argosoft.com/RootPages/MailServerNET/Default.aspx" target="_blank">ArGo Software Design Mail Server .NET Edition</a>, upgraded to <a href="http://www.sssolutions.net/ew/" target="_blank">Server Side Solutions eWall</a> and ported our scripts to work with <a href="http://www.microsoft.com/sql/default.mspx" target="_blank">MS-SQL</a>. We also have 

<a href="http://www.sssolutions.net/mf/" target="_blank">Server Side Solutions Mail Filter Pro version <asp:literal id="MFVer" runat="server" /></a> installed for testing and development purposes. <br><br>All Top Cat Computing servers are scanned and protected by <asp:literal id="AVGVer" runat="server" /> using virus database  <asp:literal id="VDBVer" runat="server" />.<br><br>For more information, please see <a href="http://www.topcatcomputing.com/Articles/tabid/54/articleType/ArticleView/articleId/4/What-is-Spam-Stats.aspx">What is Spam Stats?</a>.
</span></td></tr>

 
</table>
</div>



Get PayPal


Show your Support! Minimize
Did you find our site, programs and articles useful?
Make a donation to show your support!
Donate Today
Donate
Master CardVisaDiscoverAmerican Express
God Bless America
Privacy StatementTerms Of UseCopyright 1999-2008 by Top Cat Computing

BorderBoxedBlueBoxedGrayBlue Small width layoutMedium width layoutMaximum width layoutMaximum textMedium textSmall textBack Top!