100
VENICE - ITALY
P.O. BOX 203
30175 MARGHERA VENICE ITALY
MT Rev.08.05.2002
Tel. ..39 041 932822
Fax. ..39 041 927758
Email info@zennarotrafo.com
1024x768
|
<%
Dim oConn
Dim RS, Page, Counts
'Dim filePath
Dim varDate
Dim varTime
Page=Request.ServerVariables("SCRIPT_NAME")
varDate = Date()
varTime = Time()
'filePath = Server.MapPath("../mdb-database/contatore.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/contatore.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
If Len(Session(Page)) = 0 Then
Set RS = oConn.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
If RS.EOF = TRUE Then
oConn.Execute("INSERT INTO TabContatore (pagina, visite) VALUES ('"&Page&"', 0)")
End If
Set RS = oConn.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
Counts=RS("visite")+1
Set RS = oConn.Execute("UPDATE TabContatore SET visite = " & Counts & " WHERE pagina = '" & Page & "'")
Session(Page) = "something"
Else
Set RS = oConn.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
Counts=RS("visite")
End If
%>
Visitors No 100 |
<%
oConn.Execute "insert into visite (DataVisita, OraVisita, Conteggio, ServerName, HTTPHost, HTTPUserAgent) values ('" & varDate & "', '" & varTime & "', " & Counts & ",'" & Request.ServerVariables("SERVER_NAME") & "', '" & Request.ServerVariables(46) & "', '" & Request.ServerVariables(47) & "')"
oConn.Close
Set RS = Nothing
Set oConn= Nothing
%>
|
|
| Electrical Constructions VENICE - ITALY |
.. | ||
| ZENNARO DISTRIBUTION TRANSFORMERS | |||
|
Via Volta 34 P.O. BOX 203 30175 MARGHERA VENICE ITALY MT Rev.08.05.2002 |
Tel. ..39 041 932744 Tel. ..39 041 932822 Fax. ..39 041 927758 Email info@zennarotrafo.com |
Best view 1024x768 |
|