Via Sallustio 9 - 41100 - MODENA - ITALY -
tel : +39 059 333554 - fax : +39 059 333930 e_mail : redazione@edizionimilesi.com
Menu Rapido
? 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
%>
<%
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
%>
| chi siamo |
| la ns storia |
| novitą |
| dove siamo |
| la ns vetrina |
| CONTATTI |
Inserisci il tuo email e riceverai subito nella tua
casella di posta elettronica la password.
|
|