Modificar registros desde web

majesus · #1 (**permalink**) 19/06/2002, 08:45

¿Alguien podría indicarme qué error presenta el siguiente código que me pasaron? Lo he adaptado a mi caso y presenta errores (ERROR 500).

La idea es que se puedan modificar los datos de un usuario por él mismo mediante su identificación por Username.

El código es el siguiente (si tenéis otro similar, me vale!).

Código:

<%

Option Explicit

%>

<html>
<head><title>ejemplo</title>

<body>

<%

IF Request.Form = "" THEN

%>

<form method="post" action="modificar1.asp">

inserte el Username del alumno ...<br>

Username:<input name="Username">

Nombre:<input name="Nombre"><br>
Pais:<input name="Pais">

<input type="submit" value="enviar">

</form>

<%

ELSE

'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim Nombre
Dim Pais
Dim Username
'Fin declaracion de variables

Nombre = Request.Form ("Nombre")
Pais = Request.Form ("Pais")
Username = Request.Form ("Username")

SET Obj_Conn = Server.CreateObject("ADODB.Connection")
SET Obj_RS = Server.CreateObject("ADODB.RecordSet")

Obj_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\agencias.mdb")
Obj_RS.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\agencias.mdb"), Obj_Conn, 3, 3

Obj_RS.Filter = "Username='" & Username & "'"

DO WHILE NOT Obj_RS.EOF

Obj_RS ("Nombre") = Nombre
Obj_RS ("Pais") = Pais
Obj_RS.Update
Obj_RS.MoveNext

LOOP

Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing

%>

<center><h1> datos actualizados </h1></center>

<%

END IF

%>

</body>
</html>

<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>

TomaHawkk · #2 (**permalink**) 19/06/2002, 09:32

Espero que te sirva...

Código:

 
&lt;%
Option Explicit 
%&gt;

&lt;html&gt;
&lt;head&gt;&lt;title&gt;ejemplo&lt;/title&gt;

&lt;body&gt;

&lt;%

IF Request.Form(&quot;Username&quot;) = &quot;&quot; THEN

%&gt;

&lt;form method=&quot;post&quot; action=&quot;modificar1.asp&quot;&gt;

inserte el Username del alumno ...&lt;br&gt;

	Username:&lt;input name=&quot;Username&quot;&gt;
	Nombre:&lt;input name=&quot;Nombre&quot;&gt;&lt;br&gt;
	Pais:&lt;input name=&quot;Pais&quot;&gt;

	&lt;input type=&quot;submit&quot; value=&quot;enviar&quot;&gt;

&lt;/form&gt;

&lt;% 

ELSE

'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim Nombre
Dim Pais
Dim Username
Dim strSQL

'Fin declaracion de variables

Nombre = Request.Form (&quot;Nombre&quot;)
Pais = Request.Form (&quot;Pais&quot;)
Username = Request.Form (&quot;Username&quot;)


SET Obj_Conn = Server.CreateObject(&quot;ADODB.Connection&quot;) 

Obj_Conn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;\db\agencias.mdb&quot;) 

'Suponiendo que la Tabla se llama ALUMNOS y el campo USERNAME, comprobamos que el alumno existe.
strSQL = &quot;select USERNAME from ALUMNOS where USERNAME = '&quot; &amp; Username &amp; &quot;'&quot;
SET Obj_RS = Obj_Conn.Execute(strSQL)

IF NOT Obj_RS.EOF THEN
' Usuario correcto, actualizar datos.
strSQL = &quot;update ALUMNOS set NOMBRE = '&quot; &amp; Nombre &amp; &quot;', PAIS = '&quot; &amp; Pais &amp; &quot;' where USERNAME = '&quot; &amp; Username &amp; &quot;'&quot;

Obj_Conn.Execute(strSQL)

response.write &quot;&lt;h1&gt;Los datos del alumno se han actualizado correctamente.&lt;/h1&gt;&quot;

ELSE

response.write &quot;&lt;h1&gt;El usuario no existe en la base de datos.&lt;/h1&gt;&quot;

END IF


Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing

END IF

%&gt;

&lt;/body&gt;
&lt;/html&gt;

Saludos :)

majesus · #3 (**permalink**) 19/06/2002, 09:40

Funciona de maravillas ... GRACIAS, le salvaste la vida a mis alumnos!!!

Un fuerte abrazo,

Majesus

<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>