Credo che sia difficile aiutarti se non posti anche la definizione delle variabili che metti nel RecordSet.
Riesci a mettere il tutto in una sola pagina e postare il codice?
certo ti posto tutta la pg di codice:
-----------
<%
referr= Request.ServerVariables("HTTP_REFERER")
pagina = Request.ServerVariables("PATH_INFO")
ip = Request.ServerVariables("REMOTE_ADDR")
lingua = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
browser = Request.ServerVariables("HTTP_USER_AGENT")
session_id = session("session_id")
ora = cstr(time())
data = date()
giorno = cstr(Day(Date))
mese = MonthName(Month(Date))
anno = cstr(Year(Date))
numero_mese = cstr(month(date()))
if referr = "" then
referr ="*"
end if
if pagina = "" then
pagina ="*"
end if
if ip = "" then
ip ="*"
end if
if lingua = "" then
lingua ="*"
end if
if browser = "" then
browser ="*"
end if
if session_id = "" then
session_id ="*"
end if
if ora = "" then
ora ="*"
end if
if data = "" then
data ="*"
end if
if giorno = "" then
giorno ="*"
end if
if mese = "" then
mese ="*"
end if
if anno = "" then
anno ="*"
end if
if numero_mese = "" then
numero_mese ="*"
end if
primavolta="no"
if session("start") = "si" then
sql = "SELECT * FROM tot_visite"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 1, 3
rs.addnew
rs("num_visite") = "1"
rs("ora") = ora
rs("data") = data
rs("session_id") = session_id
rs("ip") = ip
rs("lingua") = lingua <---linea 68
rs("browser") = browser
rs.update
rs.Close
set rs = Nothing
session("start") = "no"
end if
sql = "SELECT * FROM stats WHERE session_id ='" & session_id & "' AND pagina ='" & pagina & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3
if rs.eof then
rs.addnew
rs("ora") = ora
rs("data") = data
rs("session_id") = session_id
rs("ip") = ip
rs("pagina") = pagina
rs("lingua") = lingua
rs("browser") = browser
rs.update
primavolta="si"
end if
rs.Close
set rs = Nothing
sql = "SELECT * FROM page WHERE pagina ='" & pagina & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3
if primavolta="si" then
rs.addnew
rs("ora") = ora
rs("giorno") = giorno
rs("mese") = mese
rs("numero_mese") = numero_mese
rs("anno") = anno
rs("pagina") = pagina
rs("session_visite") = 1
rs("total_visite") = 1
rs("referr") = referr
rs("session_id") = session_id
rs("data") = data
rs.update
else
rs.addnew
rs("ora") = ora
rs("giorno") = giorno
rs("mese") = mese
rs("numero_mese") = numero_mese
rs("anno") = anno
rs("pagina") = pagina
rs("session_visite") = 0
rs("total_visite") = 1
rs("referr") = referr
rs("session_id") = session_id
rs("data") = data
rs.update
end if
primavolta="no"
rs.Close
set rs = Nothing
sql = "SELECT * FROM tot_pagina WHERE pagina ='" & pagina & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3
if rs.eof then
rs.addnew
rs("pagina") = pagina
rs("total_visite") = 1
rs.update
else
conta = rs.Fields("total_visite")
conta = conta + 1
rs("total_visite") = conta
rs.update
end if
rs.Close
set rs = Nothing
objConn.Close
Set objConn = Nothing
%>