on error resume next
'recupero il request
lingua = request("lingua")
browser = request("browser")
nomesito = request("nomesito")
redirectTo = request("redirectTo")

if nomesito<>"" then 
  'inserisco il record
  set rsAdd = CreateObject("ADODB.Recordset")
  strConn = StringaConnessione
  strData=formatdatetime(date())
  strOra= FormatDateTime(Time(),4)
  rsAdd.ActiveConnection = strConn
  rsAdd.Open   "REGISTRO" ,,,3
  with rsAdd
    .AddNew 
    .Fields("NOMESITO").Value = nomesito
    .Fields("DATA").Value = strData
    .Fields("ORA").Value = strOra
    .Fields("LINGUA").Value = lingua
    .Fields("BROWSER").Value = browser
    .Update
  end with
  err = rsAdd.Status
  'chiudo rsAdd
  set rsAdd=nothing  
end if

if (cstr(err)="0") then
  'reindirizzo
  Response.Redirect(redirectTo)
end if

'creo il testo della mail
corpoMessaggio = "Errore nelle statistiche di" & session("nomesito") & chr(13) & chr(13)
corpoMessaggio = corpoMessaggio & "Codice errore= " & err & chr(13)
'invio la mail
set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "info@mioindirizzo.com"
objMail.To = "web@mioindirizzo.com"
objMail.Subject = "Errore Statistiche"
objMail.Body = corpoMessaggio
objMail.Send
set objMail = nothing 

err = objMail.Status
'reindirizzo
Response.Redirect(redirectTo)