dov'è l'errore?

codice:
set cn= Server.CreateObject("ADODB.Connection") 
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" &_ 
Server.MapPath("../mdb-database/pb.mdb") 
cn.Open strConn 
set rs = Server.CreateObject("ADODB.Recordset") 
sito = "amico"
Sql = "UPDATE INTO contatore WHERE sito = '" & sito & "' SET visite=visite + 1" 
rs.Open Sql, cn,3,3 

rs.Close 
Set rs = Nothing 
conn.Close
set conn = Nothing
response.write rs("visite")