<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
hotel romantica pucci - Bagnoregio - lazio - umbria
<%
' ************CONTATORE*************
Dim Dbase ' object for ADODB.Connection obj
Dim DBrec ' object for output recordset object
Dim SQL
Dim Data ' data formattata
Dim Cont
Dim Data1
Data = "#" & date & "#"
Data1 = cdate(date)
Set Dbase = Server.CreateObject("ADODB.Connection")
Set DBrec = Server.CreateObject("ADODB.Recordset")
Dbase.Open "DBQ=" & Server.Mappath("mdb-database/archivio.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT data,contatore FROM dati WHERE (data = " & data & ")"
DBrec.Open SQL, Dbase,1,2
If (Session("SessionCountVB") = "") Then
Session("SessionCountVB") = 0
DBrec.fields("contatore")=DBrec("contatore") + 1
DBrec.update
End if
Session("SessionCountVB") = Session("SessionCountVB") + 1
DBrec.close
SQL = "SELECT data,contatore FROM dati"
DBrec.Open SQL, Dbase
do while DBrec("data") <= Data1
Cont=cont + DBrec("contatore")
DBrec.movenext
loop
DBrec.close
Dbase.close
' **************************************
%>
