Aggiungo quanto ho realizzato che, ripeto, va solo in locale
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:7px;
top:5px;
width:493px;
height:136px;
z-index:1;
}
-->
</style>
</head>
<%
ip=Request.ServerVariables("REMOTE_ADDR")
provenienza="vuoto"
data=FormatDateTime(Now(),2)
separaora=split(time(),".")
if separaora(0)<10 then
separaora(0)="0"&separaora(0)
else
end if
ora=separaora(0)&":"&separaora(1)&":"&separaora(1)
datiutente="varie"
sc = connessione
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "visite", cn, 3, 3
rs.AddNew
rs("ip") = ip
rs("provenienza") = provenienza
rs("data") = data
rs("ora") = ora
rs("ora") = ora
rs.Update
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
response.redirect "Sito/Index.asp"
%>
<body>
</body>
</html>