update contatore

[pegaso]

Salve ragazzi ho questo problema, voglio fare una sorta di contatore statistico per vedere quante volte un utente si collega a una pagina riservata.
ora dopo la login io recupero user con form request
e ho un campo cont che dovrebbe aumentare ogni volta che un determinato user accede alla pagina ho scritto quanto segue ma non va !!!!!!
Aiutooooooooooo!!!!!!!

<%
Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("contatore.mdb")
sql = "SELECT numero FROM user WHERE user = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sql, conn3, 3, 3
cont= rs("numero") +1
response.write cont
update contatore set numero = '"&cont&"'
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing
%>

[optime]

se numero è un numero cont non va tra apici!

[pegaso]

ho provato anche cosi ma nulla
<%
Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database\contatore.mdb")
sql = "SELECT visite FROM visite WHERE user = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sql, conn3, 3, 3
cont= rs("visite")
cont = cont +1
response.write cont
update visite set visite = "cont"
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing
%>

[optime]

ma che hai scritto?

update visite set visite = "cont"

ti ho detto semplicemente di togliere gli apici da questa:

update contatore set numero = '"&cont&"'

apice ---> '

[pegaso]

<%
Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database\contatore.mdb")
sql = "SELECT visite FROM visite WHERE codice_fiscale = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sql, conn3, 3, 3
cont= rscont("visite")
if cont="" then
cont=0
else
cont = cont +1
response.write cont
end if
update visite set visite = " & cont & "
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing
%>

[pegaso]

commentando istruzione update non mi va in errore altrimenti si quindi errore dovrebbe essere in quella riga
<%
Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database\contatore.mdb")
sql = "SELECT visite FROM visite WHERE codice_fiscale = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sql, conn3, 3, 3
cont= rscont("visite")
if cont="" then
cont=0
else
cont = cont +1
response.write cont
end if
update visite set visite = " & cont & "
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing
%>

[Dr Mal]

Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database\contatore.mdb")
sql = "SELECT visite FROM visite WHERE codice_fiscale = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sql, conn3, 3, 3
cont= rscont("visite")
if cont="" then
cont=0
else
cont = cont +1
response.write cont
end if

sql_update= "update visite set visite = " & cont
conncont.execute sql_update
 
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing

[pegaso]

ho corretto il codice cosi ma mi da il seguente errore

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.


<%
user = pippo
Dim Conncont
Set Conncont=Server.CreateObject("ADODB.Connection")
Conncont.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database\contatore.mdb")
sqlcont = "SELECT * FROM visite WHERE codice_fiscale = '" & user & "'"
set rscont = server.CreateObject("ADODB.Recordset")
rscont.open sqlcont , conncont ,3 ,3
cont= rscont("visite")
cont = cont +1
response.write cont
sql_update= "update visite set visite = " & cont
conncont.execute sql_update
rscont.close
set rsconn = nothing
conncont.close
set conncont= nothing
%>

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

*subito* dopo la composizione della stringa SQL metti

Response.Write "maGGica SQL...: " & sqlcont
Response.Flush

poi posta quello che viene a video
----------------------------------------------------

[pegaso]

maGGica SQL...: SELECT * FROM visite WHERE codice_fiscale = ''