<%@ Language=VBScript %> <%Response.buffer=true%> Edizioni Milesi -Hai Dimenticato la Tua Password?
Header image

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'utenteHelp per 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 %>
Logo

 
 
Inserisci il tuo email e riceverai subito nella tua casella di posta elettronica la password.

 

Email:< ">

 
 


 
Copyright by web4thyou 2010