<%
Set db = Server.CreateObject("ADODB.Connection")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
DataFile = Server.MapPath(Dir) & "\data\audiencia.mdb"
db.Open "DBQ=" & DataFile & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "INSERT INTO Hits (Dia, Mes, Ano, Hora)"
SQL = SQL & "Values (" & CInt(Day(Date)) & ","
SQL = SQL & CInt(Month(Date)) & "," & CInt(Year(Date)) & ","
SQL = SQL & CInt(Hour(Time)) & ")"
set rs = db.Execute(SQL)
%>
BiblioExpress 3.6
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>