resultados extraños

Alc_user
26 de Julio del 2005
Hola, es la primera que vez que escribo ya que estoy empezando con el ASP. Tengo que hacer una página web y una parte del código me da una resultado extraño que no entiendo el por qué. Os explico mi problema: la página web que tengo muestra en pantalla el contenido de una base de datos que contiene los pedidos realizados por un usuario a la empresa. Al lado de cada producto aparece una botón para poder devolverlo. Al hacer click sobre ese boton se ejecuta una función que se encarga de borrarlo. Después se vuelve a mostrar la página sin el producto en la lista. Lo raro es qeu mi código funciona, sí que se borra el producto, pero el problema está en que siempre se borra el primer producto de la lista, no el que el usuario quiere.

Aquí os muestro mi código, a ver si alguien me puede ayudar:

<tr><th> Nombre </th><th> Artículo </th> <th> Precio </th><th></th></tr>

<% Do Until oRS2.EOF %>
<tr>

<td><%=oRS2("Nombre")%></td>
<td><%=oRS2("Articulo")%></td>
<td><%=oRS2("Precio")%> €</td>
<td><form method="get"><input name="devolver_producto" type="submit" value="Devolver producto " onclick="<%devolver oRS2("Articulo") %>"></form></td>
</tr>
<% oRS2.MoveNext
Loop %>
<tr><td></td><td align="left"><strong>TOTAL </strong></td><td><%=oRS("Total")%> €</td><td></td></tr>


La funcion devolver es la siguiente:

Sub devolver(articulo)
if (Request.QueryString("devolver_producto") <> False ) then
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bdweb.mdb")
SQL="delete * from pedidos where IdUsuario=" & Session("NumSesion") & " AND Articulo=\'" & articulo & "\'"
oConn.Execute(SQL)
oConn.Close
Set oConn = Nothing

Response.Redirect("listacompra.asp")
end if
end sub

Muchas gracias por vuestra ayuda.
Saludos
Alc_user