Contatore visite

A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
ho un problema di visualizzazione

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

non riesco a capire perchè!

chiaramente il valore nel database è diverso da zero

grazie





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>
 
L

LottoMobileKit

Utente Attivo
14 Mar 2006
45
0
0
If objVisitsRs.EOF then
intVisteOggi = 0
Else
intVisteOggi = objVisitsRs("Hits")
End IF
Clicca per allargare...

A prima vista... prova così..

If objVisitsRs.RecordCount >0 then
intVisteOggi = objVisitsRs("Hits")
Else
intVisteOggi = 0
End IF

Magari ho detto una cavolata, ma tanto non costa nulla...

Ciao.
 
A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
HO TROVATO IL PROBLEMA ANCHE SE ANCORA NON HO TROVATO IL MODO DI RISOLVERLO......;)

BE LA QUERY è CORRETTA COME L'ESECUZIONE DELLO STRIPT ED è GIUSTO ANCHE CHE DIA ZERO, IL PROBLEMA STA NEL FATTO CHE ACCESS CONSIDERA IL FORMATO PER LE DATE MM/GG/ANNO E NON COME GLIELO PASSA IL SERVER GG/MM/ANNO

QUINDI COME FACCIO A COMUNICARGLI LA DATA AVEVO PENSATO AD UN DATEPART CON UN CONCATENAMENTO SUCCESSIVO IN UNA STRINGA, O C'è QUALCHE FUNZIONE SPECIFICA?


GRAZIE
:fonzie:
 
PoLe

PoLe

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
AREAFORUM ha scritto:
...IL PROBLEMA STA NEL FATTO CHE ACCESS CONSIDERA IL FORMATO PER LE DATE MM/GG/ANNO...
Clicca per allargare...
Ciao! :)

Dipende da come lo setti tu in Access il formato della data.
Se vuoi che appaia GG/MM/AAAA basta che apri in visualizzazione struttura la tabella contenente il dato, e nelle proprietà del campo setti la data come vuoi tu! ;)

SaLuT!
:byebye:
 
A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
ragazzi non ne vengo più fuori

ho modificato la struttura della tabella indicando come maschera di input gg/mm/aaaa ed indicando anche come formato data "data in cifre" ma niente da fare.....

ho anche fatto la seguente modifica

Codice: 
'Pagine viste OGGI

      gg = datePart("d",now())
      mm = datePart("m",now())
      aa = datePart("yyyy",now())
      
      b= mm & "/" & gg & "/" & aa

     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

ma niente da fare sempre 0

:incazz2: :incazz2:

:( :(
 
PoLe

PoLe

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
AREAFORUM ha scritto:
ragazzi non ne vengo più fuori

ho modificato la struttura della tabella indicando come maschera di input gg/mm/aaaa ed indicando anche come formato data "data in cifre" ma niente da fare.....

ho anche fatto la seguente modifica

Codice: 
'Pagine viste OGGI

      gg = datePart("d",now())
      mm = datePart("m",now())
      aa = datePart("yyyy",now())
      
      b= [B][COLOR="Red"]mm & "/" & gg & "/" & aa[/COLOR][/B]

     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

ma niente da fare sempre 0

:incazz2: :incazz2:

:( :(
Clicca per allargare...

Eccomi qui ;)

Beh, è logico che ti dia 0.
Nel DB hai impostato la data a GG/MM/AAAA, ma la variabile b è composta da MM/GG/AAAA. :)
Devi cambiare l'assegnazione del valore di b:
b = gg & "/" & mm & "/" & aa

Fammi sapere
:byebye:
 
A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
No Questa Pensavamo fosse La Soluzione..nel Senso Che Sembra Che Il Data Base Funzioni Con mm.gg.aaaa....insomma Se Leggi Sopra Vedi Che Abbiamo Provato In Tutti E Due In Modi!

:( :(


sempre 0 il risultato
 
B

basy82

Utente Attivo
31 Dic 2005
210
0
0
siracusa
Ciao non so se il mio post ti servirà a qlcs...cmq ti posto una where che ho usato io con visual basic....
Non so anche asp riconosce la funzione Format..

where Data=#" & Format(TuaData, "mm dd yyyy") & "# order by Data"
 
lukeonweb

lukeonweb

Utente Attivo
5 Mar 2003
5.175
13
38
46
Napoli
www.lucaruggiero.it
basy82 ha scritto:
Ciao non so se il mio post ti servirà a qlcs...cmq ti posto una where che ho usato io con visual basic....
Non so anche asp riconosce la funzione Format..

where Data=#" & Format(TuaData, "mm dd yyyy") & "# order by Data"
Clicca per allargare...

Vale, la funzione Format è valida solo per Visual Basic, non per VBScript... :)
 
B

basy82

Utente Attivo
31 Dic 2005
210
0
0
siracusa
lukeonweb ha scritto:
Vale, la funzione Format è valida solo per Visual Basic, non per VBScript... :)
Clicca per allargare...

Infatti ho specificato...di non esserne sicura...:p
Faccio un pò asp, un pò visual basic... e questi sono i risultati...:D

Ps. Ho fatto 100 messaggi!!! questo e num 101...luca tra un pò ti raggiungo..:beer:
 
A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
Daily_ID Data Mese Hits Visits
1 30/03/2006 03-2006 87 4
2 31/03/2006 03-2006 157 34
3 01/04/2006 04-2006 224 46
4 02/04/2006 04-2006 9 3
5 05/04/2006 04-2006 9 3
6 30/11/2006 04-2006 9 3
7 05/04/2006 04-2006 9 3
8 06/04/2006 04-2006 9 3

pagine viste oggi SELECT Hits FROM tblSt_Daily WHERE Data =06/04/06
pagine viste ieri SELECT Hits FROM tblSt_Daily WHERE Data =05/04/06

NIETEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE


NON SO CHE DIRE

VI HO INDICATO LA QUERY ED ANCHE LA TABELLA RISULTATO SEMPRE 0

PERCHè

:(
 
PoLe

PoLe

MRW Moderator
6 Giu 2005
2.198
3
0
40
.: Venezia :.
www.bzconsulting.it
Prova a convertire il paramentro in formato data allora: ;)
"SELECT Hits FROM tblSt_Daily WHERE Data =" & Cdate("06/04/06")

Altrimenti, a questo punto ti consiglio di settare il campo Data come campo alfanumerico, e operare direttamente su stringhe, e poi la query la strutturi così:
"SELECT Hits FROM tblSt_Daily WHERE Data ='" & var_ASP_con_data & "';"

:byebye:
 
A

AREAFORUM

Nuovo Utente
8 Gen 2006
21
0
0
www.radiovenere.net
ecco la soluzione
Codice: 
'Pagine viste OGGI

      b= Date ()
    new_b=month(b) & "/" & day(b) & "/" & year(b) 'data in formato inglese

     strVisitsSQL = "SELECT Hits FROM tblSt_Daily WHERE cdate(Data)=#" & cdate(new_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())
    new_a=month(a) & "/" & day(a) & "/" & year(a) 'data in formato inglese

     strVisitsSQL = "SELECT Hits FROM tblSt_Daily WHERE cdate(Data)=#" & cdate(new_a) & "#"


     objVisitsRs.Open strVisitsSQL, objVisitsConn
     If objVisitsRs.EOF then
            intVisteIeri= 0
     Else
            intVisteIeri= objVisitsRs("Hits")
     End IF
     objVisitsRs.Close

finalmente

:mavieni: :mavieni:

ragazzi grazie di cuore per l'aiuto che mi avete dato........:beer:
 
Devi accedere o registrarti per poter rispondere.
Discussioni simili
Autore Titolo Forum Risposte Data
Alessandro Le Mura Contatore visite per ogni pagina con MYSQL - PHP PHP 40
A contatore visite PHP 6
C Iframe e contatore visite HTML e CSS 4
C Contatore visite su Facebook (era: quesito) PHP 2
R Creare un contatore visite senza mysql PHP 6
SolidSnake4 contatore visite PHP 4
SolidSnake4 contatore visite PHP 2
daviduccio Cerchi un contatore di visite personalizzabile e gratuito? Presenta il tuo Sito 0
T contatore totale click e media in secondi PHP 7
T Contatore alla rovescia su più elementi simultaneamente Javascript 4
L [PHP] contatore con sqlite PHP 9
T [PHP] [Javascript] Download e contatore PHP 3
bubino8 [PHP] Contatore Scan QR con redirect PHP 10
F Creare un contatore numerico in HTML HTML e CSS 9
M [PHP] Contatore Tempo Server-side PHP 8
M [PHP] contatore record PHP 7
J contatore visualizzazioni video HTML e CSS 1
Monital Contatore sul sito Google Analytics 2
R Contatore alla rovescia per adesioni Supporto Mr.Webmaster 0
Marco_88 Limitare un contatore PHP 1
W Contatore posti in un form, come implementarlo? WordPress 0
Marco_88 Contatore di accessi PHP 5
I contatore caratteri textarea sbagliato Javascript 1
D Record disconesso contatore dove sbaglio? Classic ASP 0
V [risolto] Contatore caratteri stile SMS da una textarea Javascript 6
Alessandro Le Mura Contatore di click su link con redirect ogni 24 ore PHP 4
Alessandro Le Mura [RISOLTO]Contatore di click su link con redirect PHP 5
Alessandro Le Mura Contatore php - txt PHP 8
8 Script per il contatore download PHP 11
L Inserire campo input dinamico con contatore in jquery jQuery 8
Shyson richiamare contatore PHP 5
GoshMaledetto Contatore numero letture PHP 4
Shyson Contatore post non si aggiorna in automatico PHP 7
S Contatore click su link PHP 1
C contatore alfanumerico 0000 -> ZZZZ, idee? PHP 3
F contatore PHP PHP 12
max_400 Contatore Top Forum PHP 17
B contatore di download PHP 1
max_400 Contatore scaricamento file... semplice semplice by max_400 PHP 8
davide1982 Incremento contatore click PHP 14
davide1982 Problema di redirect dal contatore di click Database 1
T Memberarea, forum, contatore...Mi chiarite le idee? HTML e CSS 7
A Contatore per code di clienti in attesa Flash 0
G contatore commenti PHP 6
I contatore crediti a 8574 Supporto Mr.Webmaster 3
foki {PHP Script} Contatore Utenti Registrati PHP 17
danlupo Problemi visualizzazione Contatore PHP 2
danlupo Problema Contatore Accessi PHP 3
whirl Contatore condiviso tra 2 siti PHP 3
Z Contatore fotogallery: problemi a caricare onload laprima PHP 1

Discussioni simili

Alto Basso