Mensajes despues de una actualizacion

JPALBOX
23 de Julio del 2002
como se modificaria este codigo si quiero q despues de haber ejecutado la insercion me salga un mensaje de OK o bien si no se ejecuto pq alguna de sus condiciones no se cumplio q salga un mensaje de error. Gracias Ahi pongo el codigo.

nsocio = Request.Form("nsocio")
usuario = Request.Form("usuario")
password = Request.Form("password")
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")

'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jpalboxdbusuarios.mdb"))


sql = "UPDATE Personal SET password ='" & password & "', usuario='" & usuario & "' WHERE nsocio='" & nsocio &"' and nombre = '" & nombre &"' and apellidos ='" & apellidos &"'"
con.Execute(sql)


'Libera memoria
con.Close
Set con = Nothing


David
23 de Julio del 2002
El mtodo execute, adems del CommandText, tiene un argumento RecordsAffected que devuelve el nmero de registros afectados por la instruccin sql. Si este argumento toma el valor 0 es que la consulta no se ha ejecutado correctamente. Para capturarlo, aade lo siguiente (la variable sReg almacena el nmero de registros afectados):

con.Execute(sql, sReg)
if sReg=0 then
Response.Write 'Mensage de error
else
Response.Write 'Mensage de acierto
end if