problema con la data

[strip]

dim data
data = date()
if isdate(rs("data")) <> data then
Cn.Execute("UPDATE dati SET data =" & data & " WHERE id = " & rs("id"))
else
end if




va bene?
il problema è che se uso il primo codice che ho postato e metto un response.write per data , rs("data") va bene ma non mi fa l'update della data correttamente...non so come risolvere...