contatore in asp

**AREAFORUM** · 02-04-2006, 01:56

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>

**santino83** · 02-04-2006, 04:15

furbone non devi fare una function ma una sub:

codice:

dim intAccessi2006,intVisteOggi, intVisteIeri,intViste2006

public sub quella_che hai scritto_tu()
...
end sub

'qui richiamo la sub
qualla_che_hai_scritto_tu
response.write inAccessi2006 etc etc

**AREAFORUM** · 02-04-2006, 10:51

Più che furbo sono ignorante in materia e cerca di appigliarmi da dove è possibile comunque gira e rigira anche con il vostro aiuto si raggiunge l'obbiettivo....in ogni caso ora il problema eè un'altro

su pagine viste oggi e pagine viste ieri mi da sempre zero!!

non riesco a capire perchè!

codice:

<%
     Dim intVisteOggi, intVisteIeri, a, b, intViste2006, intAccessi2006
     Dim objVisitsConn, objVisitsRs, strVisitsConn, strVisitsSQL
     
public sub  CalcolaAccessi()
   
    
    
    '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 * 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 SUB
%>
<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>

**AREAFORUM** · 02-04-2006, 22:52

se nessuno di voi riesce a darmi una soluzione allora significa che non c'è soluzione

**santino83** · 03-04-2006, 09:14

prova a mettere

codice:

WHERE Data =#" & b & "#"
WHERE Data =#" & a & "#"

oppure se fanno sempre 0 fatti stampare la query e testala direttamente in access (o quello che usi)

**AREAFORUM** · 03-04-2006, 23:42

fa sempre 0 il problema è che la seconda soluzione per me è arabo!!

**AREAFORUM** · 04-04-2006, 00:16

ho capito il riferimento alla query

ho provato a fare così

codice:

 <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(strVisitsSQL)%>
                         <%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(strVisitsSQL)%>
                         <%Response.Write(intVisteIeri)%></font></td>
                      </tr>

e mi scrive

SELECT Visits FROM tblSt_Counter WHERE Counters_ID =1 e poi chiaramente lo 0 che forse è giusto nella sub è l'ultimo vallore assegnato a strVisitsSQL che è la Query vero

**AREAFORUM** · 04-04-2006, 00:34

ok ok !!!

facciamo finta che non ho scritto nulla ho fatto così

codice:

<%
     Dim intVisteOggi, intVisteIeri, a, b, 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


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

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

'Pagine viste OGGI
     b= Date()
     strVisitsSQL = "SELECT Hits FROM tblSt_Daily WHERE Data =" & b
Response.Write(strVisitsSQL)
     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
Response.Write(strVisitsSQL)
     objVisitsRs.Open strVisitsSQL, objVisitsConn
     If objVisitsRs.EOF then
            intVisteIeri= 0
     Else
            intVisteIeri= objVisitsRs("Hits")
     End IF
     objVisitsRs.Close


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

%>

ho fatto stampare la Query a video sono andato su Access e l'ho fatta eseguire ok sempre 0 ed ora!!!

**AREAFORUM** · 04-04-2006, 00:50

forse ho risolto il problema anzi ho trovato il problema

è la visualizzazione della data

questa è la query

SELECT Hits
FROM tblSt_Daily
WHERE Data=30/11/2006;

SELECT tblSt_Daily.Hits
FROM tblSt_Daily
WHERE (((tblSt_Daily.Data)=#11/30/2006#));

e questa è la Query SQL pass-trough

è l'unica incongruenza che ho trovato chiaramente non ci sarà mai un valore Data 11/30/2006

e mo davvero non so più che dire.......sono nelle vostre mani

**santino83** · 04-04-2006, 02:19

mica ho capito che stai dicendo...conta solo che Access pensa le date in MM/DD/YYYY e nn nel nostro formato GG/MM/AAAA quindi se gli passa una data all'sql la devi mettere nel formato anglosassone..

Discussione: contatore in asp

Strumenti discussione

Ricerca discussione

Visualizza

contatore in asp

Permessi di invio