Dopo Tanto sono riuscito a realizzare una pagina asp che visualizzi le statistiche di accesso sul mio sito contenuti in un database...il problema è che sono riuscito a togliere gli errori ma di fatto non mi stampa in video i valori del database


aiutatemi vi prego



codice:
<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>statistiche</title>
<link rel="stylesheet" type="text/css" href="public/pagine/stadioradionew/style.css">
<style>
<!--
.style1 {
	color: #0B2765;
	font-weight: bold;
}
-->
</style>
</head>
 <%
Public Function CalcolaAccessi()
   
     Dim intVisteOggi, intVisteIeri, a, b, c, d, intViste2006, intAccessi2006
     Dim objVisitsConn, objVisitsRs, strVisitsConn, strVisitsSQL
    
    'Imposta Connessione e Recordset
     Set objVisitsConn = Server.CreateObject("ADODB.Connection")
     Set objVisitsRs = Server.CreateObject("ADODB.Recordset")

     'Stringa Connessione
     strVisitsConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/mdb/dbStats.mdb")

     'Apri Connessione
     objVisitsConn.Open strVisitsConn

     'pagine viste OGGI
     b= Date()
     strVisitsSQL = "SELECT Hits FROM tblSt_Daily WHERE Data =" & b
     objVisitsRs.Open strVisitsSQL, objVisitsConn
     If objVisitsRs.EOF then
            intVisteOggi = 0
     Else
            intVisteOggi = objVisitsRs("Hits")
     End IF
     objVisitsRs.Close

     'paginve viste IERI
     a= DateAdd("d",-1,Date())
     strVisitsSQL = "SELECT Hits FROM tblSt_Daily WHERE Data =" & a
     objVisitsRs.Open strVisitsSQL, objVisitsConn
     If objVisitsRs.EOF then
            intVisteIeri= 0
     Else
            intVisteIeri= objVisitsRs("Hits")
     End IF
     objVisitsRs.Close

'paginve viste intero anno 2006
     strVisitsSQL = "SELECT Hits FROM tblSt_Counter WHERE Counters_ID =1"
     objVisitsRs.Open strVisitsSQL, objVisitsConn
     If objVisitsRs.EOF then
            intViste2006= 0
     Else
            intViste2006= objVisitsRs("Hits")
     End IF
     objVisitsRs.Close

'Accessi Unici intero anno 2006
    strVisitsSQL = "SELECT Visits FROM tblSt_Counter WHERE Counters_ID =1"
    objVisitsRs.Open strVisitsSQL, objVisitsConn
    If objVisitsRs.EOF then
            intAccessi2006 = 0
     Else
            intAccessi2006= objVisitsRs("Visits")
     End IF
     objVisitsRs.Close


     'Chiudi Pulisci
     objVisitsConn.Close
     Set objVisitsConn = Nothing
     Set objVisitsRs = Nothing

End Function
%>
<body bgcolor="#28457F" topmargin="0" leftmargin="10">

    <table width="175"  border="0" cellspacing="0" cellpadding="0" style="border: 1px solid #000000" height="15">
      <tr>
        <td height="1" background="public/pagine/stadioradionew/images/tblbg.gif" class="style1" width="173">
        <font color="#000000">::Statistiche di Accessi</font></td>
        </tr>
    </table> 

                    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="17%" id="AutoNumber1" height="19">
                      <tr>
                        <td width="69%" height="15%"><font color="#FFFFFF">Accessi 2006</font></td>
                        <td width="31%" height="15%" align="center">
                        <font color="#FFFFFF">
                        <%Call CalcolaAccessi()%>
                        <% Response.Write(intAccessi2006)%></font></td>
                      </tr>
                      <tr>
                        <td width="69%" height="15%"><font color="#FFFFFF">Pagine Viste 2006</font></td>
                        <td width="31%" height="15%" align="center">
                        <font color="#FFFFFF">
                        <%Response.Write(intViste2006)%>
                        </font></td>
                      </tr>
                      <tr>
                        <td width="69%" height="15%"><font color="#FFFFFF">Pagine viste oggi</font></td>
                        <td width="31%" height="15%" align="center">
                        <font color="#FFFFFF">
                         <%Response.Write(intVisteOggi)%></font></td>
                      </tr>
                      <tr>
                        <td width="69%" height="15%"><font color="#FFFFFF">Pagine viste ieri</font></td>
                        <td width="31%" height="15%" align="center">
                        <font color="#FFFFFF">
                         <%Response.Write(intVisteIeri)%></font></td>
                      </tr>
                      </table>
                    



</p>

</body>

</html>