E poi mancava una "&" in questa riga:
codice:
Sql = Sql &", [Loser] = '"& Replace(Session("Loser"), "'", "''") &  "'"
quella in rosso.......