<% useremail=Request.QueryString("useremail") Set deneme=Server.CreateObject("ADODB.Connection") deneme.open "deneme" Set emailrecords=Server.CreateObject("ADODB.RecordSet") emailrecords.Open "email", deneme, adOpenStatic, adLockOptimistic emailrecords.Addnew emailrecords("email")=useremail emailrecords.Update emailrecords.Close Set emailrecords=nothing deneme.close Set emaildata=nothing If Err.number=0 then Response.Write"Updated" End if %>