Scegli
L'Angolo del cuore
Le Vostre Domande - Le ns Risposte
L'angolo della Poesia
Una Mano Tesa
Cosa Dice Sai Baba a proposito di...
Il Calendario Delle Festivitą in Prashanti
Invia una Cartolina
Galleria Sathya Sai Baba
Le Vostre Storie
La Chat
La mailing List
Scheda Utente
Ricerca Globale
Anteprime Audio e Video
L'anteprima della Divina Storia di Shirdi Sai
Catalogo Edizioni Milesi
Oggettistica
Catalogo Video + Anteprime
Catalogo Audio + Anteprime
Discorsi
Scritti Sai Baba
Ultime Pubblicazioni
Novitą Previste
Collane per Ragazzi
Documentari
Cartoni Animati
Offerte Promozionali
Medicina
Musica per L'anima
Ricerca Esistenziale
Dialoghi
Miracoli
Esperienze paranormali
Ricerca Interiore
Simbologia e numerologia
Messaggi
Spiritualitą Esoteriche
Psicologia Esoterica
Scienze Esoteriche
Reincarnazione
Ufo
Salute e Benessere
Yoga e Benessere
Misteri
Tutto Sai Baba
Musicassette
Musica e CD
Informazioni su Mubai
Intranet locale
? L'Aiuto per L'utente
<%
Dim SqlVisite, Rsvisite, Convisite
Dim urlo
DatabasePath = openDb("dbstats")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.mode=3
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& DatabasePath
SqlQuery="SELECT * FROM tblSt_Config "
Set Rs=Conn.execute(SqlQuery)
Dim ConnRec, RsRec, ConnVisit, RsVisit
' Apertura Connessione
set RsRec=server.createobject("adodb.recordset")
Set ConnRec=Server.CreateObject("ADODB.Connection")
ConnRec.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& DatabasePath
SqlRec="Select * from tblSt_Config where Sito_URL_Remoto='"& Rs("Sito_URL_Remoto")&"'"
Set RsRec=Conn.execute(SqlRec)
while not RsRec.eof
Response.Write (" - Visitatori: ") & Rs("Start_Visits") + intAsgVisitValue
RsRec.movenext
wend
RsRec.Close
ConnRec.close
Set ConnRec=nothing
%>
