Foros del Web » Programando para Internet » ASP Clásico »

actualizar registro

Estas en el tema de actualizar registro en el foro de ASP Clásico en Foros del Web. Bueno, quiero recoger de un formulario los datos viejos de un usuario y otros nuevos que quiera cambiar (concretamente el nombre y el password), para ...
  #1 (permalink)  
Antiguo 14/02/2002, 04:07
 
Fecha de Ingreso: febrero-2002
Mensajes: 4
Antigüedad: 22 años, 4 meses
Puntos: 0
actualizar registro

Bueno, quiero recoger de un formulario los datos viejos de un usuario y otros nuevos que quiera cambiar (concretamente el nombre y el password), para ello tengo este código que realicé con vuestra ayuda (gracias):
<%@LANGUAGE="VBSCRIPT"%>
<%

Dim ElMote
ElMote = Request.Form("Mote")
Dim ElPassword
ElPassword = Request.Form("Password")
Dim ElNuevoMote
ElNuevoMote = Request.Form ("NuevoMote")
Dim NuevoPassword
ElNuevoPassword = Request.Form ("NuevoPassword")

%>
<%
set MiBase = Server.CreateObject("ADODB.Recordset")
MiBase.ActiveConnection ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&SERVER.MapPath("\base .mdb")
MiBase.Source = "SELECT * FROM Socios WHERE Mote = '" + Replace(ElMote, "'", "''") + "' AND Password = '" + Replace(ElPassword, "'", "''") + "'"
MiBase.CursorType = 0
MiBase.CursorLocation = 2
MiBase.LockType = 3
MiBase.Open
%>
<%
If Not MiBase.EOF Then
SQL = "Update Socios set Mote = '" & ElNuevoMote & "', Password = '" & ElNuevoPassword & "' where Mote = '" & ElMote & "' AND Password ='" & ElPassword &"'"
Response.Write "RespuestaASP=Socio"
else
Response.Write "RespuestaASP=NoSocio"
End If
MiBase.Close()
%>
Creo que la parte que me he inventado yo está mal porque no actualiza el registro, no da ningún error pero no lo actualiza lo deja como estaba, q puedo hacer?
Gracias
  #2 (permalink)  
Antiguo 14/02/2002, 04:14
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: actualizar registro

prueba algo asi si escribo incoherencias es por que es tarde y aun no acano mi tarea (3:09am)

If Not MiBase.EOF Then
mibase("Mote")=ElNuevoMote
mibase("password")=ElNuevopassword
mibase.update
Response.Write "RespuestaASP=Socio"
else
Response.Write "RespuestaASP=NoSocio"
End If
MiBase.Close()
%>


saludos, si la regue lo siento... pero es por que muero de sueño
:(
  #3 (permalink)  
Antiguo 14/02/2002, 17:33
 
Fecha de Ingreso: febrero-2002
Mensajes: 4
Antigüedad: 22 años, 4 meses
Puntos: 0
Re: actualizar registro

Gracias, dormido y todo has dado en el clavo... no te digo lo bien que se te dará esto cuando estés despierto :b
Lo dicho, muchas gracias
  #4 (permalink)  
Antiguo 14/02/2002, 20:23
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: actualizar registro

jaja,

que bien que te funciono !!

saludos :) ;)

Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:49.