non usare il refresh lato client
codice:
<%
ID = Request ("ID")
data = Date()
IP=request.servervariables("remote_addr")
FUNCTION FixQuotes( theString )
FixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
sub conteggio
SQL ="UPDATE location SET "
SQL = SQL & " click = " & FixQuotes(click) & ","
SQL = SQL & " data = '" & FixQuotes(data) & "',"
SQL = SQL & " IP = '" & FixQuotes(IP) & "'"
SQL = SQL & " WHERE IDutente ="& ID &""
conn.Execute(SQL)
'Response.Redirect "location/" & file &""
end sub
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM location where IDutente =" & ID &""
rs.open sql, conn, 1, 3
nome = rs("nome")
file = rs("frantoio")
click = rs("click")+1
conteggio
%>
<%
rs.close
set rs = nothing
conn.close
set conn=nothing
'tutto è ok redireziono...
response.redirect "location/"&file&""
%>
sempre se ho capito bene....