% If Session("hit") = "" then SQL = "SELECT * FROM hits" RS.Open SQL, Conn strHits = RS("hits") strHitsNow = strHits + 1 RS.Close SQL = "UPDATE hits SET [hits]=" & strHitsNow RS.Open SQL, Conn Session("hit") = "true" else SQL = "SELECT * FROM hits" RS.Open SQL, Conn strHitsNow = RS("hits") end if Set RS = Nothing %>
| |