Visto che ho provato ma mi da il solito problema (non esegue l'update) posto il codice per capire dove sta l'errore:
codice:
'Connect to the database
Set con = GetDBConnection()
strSql = "SELECT Email FROM Subscribers WHERE Email = '" +
Request.Form("vecchiaemail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
if isnull (rs) then
Response.write("<p class=normale_centrato>Il vecchio
indirizzo e-mail non è presente nella mailing list. Per
iscriversi, <a href=subscribe.asp>accedere a questa
pagina</a>.")
else
'Modifica l'indirizzo email inserendo quello nuovo al dove
'trova quello vecchio
set tab=Server.CreateObject("ADODB.Recordset")
strSql2 = "UPDATE Subscribers SET Email = '" & request.form
("nuovaemail") & "' WHERE Email = '" & Request.Form
("vecchiaemail") + "'"
Response.write("<p class=normale_centrato>Modifiche
avvenute con successo. Arriverà un messaggio di conferma al
nuovo indirizzo.
<a href=../index.htm>Torna alla home
page</a>")
dopo questa parte ci sono altre procedure per l'invio di email e naturalmente l'END If, ma visto che sono sicuro che funzionano (le ho copiate da altre funzionanti) non le ho postate