Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/07/2002, 16:58
jpalbox
 
Fecha de Ingreso: abril-2002
Mensajes: 432
Antigüedad: 23 años
Puntos: 0
Saber si se ejecuta una actualización o no

Necesito saber si se ha realizado o no una actualizacion. Abajo pongo el codigo q tengo, nsocio, nombre y apellidos los tengo en la base de datos ya y los nuevos datos q introduzco quiero comprobarlos con los que tengo en la tabla y si coinciden q se ejecute la actualizacion. El codigo casi lo tengo, cuando coinciden se actualiza y cuando no coinciden no se actualiza, pero necesito que el mensaje de la actualización o el error salga. Como lo puedo hacer??
;)
<%
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("\jpalbox\db\usuarios.mdb&quot ;))
'Comprobamos en la tabla que el nombre del usuario existe.
sql = "SELECT * FROM Personal WHERE usuario='"&usuario&"' "
rs.Open sql, con

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If rs.EOF = false then
Response.redirect "err03.htm"
else
'Ejecuta un sentencia SQL para insertar alta
sql = "UPDATE Personal SET password ='" & password & "', usuario='" & usuario & "' WHERE nsocio='" & nsocio &"' and nombre = '" & nombre &"' and apellidos ='" & apellidos &"'"
con.Execute(sql)



end if

'Libera memoria
con.Close
Set con = Nothing

%>