Desde un formulario en htm paso una serie de valores, nsocio, usuario, password, nombre, y apellidos. En una base de datos tengo ya previamente esos valores excepto el usuario y password que quiero que el visitante los introduzca en un formulario y despues hacer la comprobacion de que su numero de socio coincide, el nombre y los apellidos y si todo esto coincide entonces hacer la actualizacion con el nombre de usuario y password. El problema esta cuando un socio pone un nombre q no es, entonces no me lo inserta (bien), pero si me da el mensaje de que si lo ha insertado
le podeis hechar un vistazo y ver lo que pasa como puedo solucionarlo ;)
<b><%
nsocio = Request.Form("nsocio")
usuario = Request.Form("usuario")
password = Request.Form("password")
edad= Request.Form("edad")
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" ;))
'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)
'response.write "Aqui iria la actualizacion"
If Err = 0 Then
'Insercion correcta
Response.write "insercion corresta"
Else
Response.write "otro error"
End If
end if
'Libera memoria
con.Close
Set con = Nothing
%>
</b>
