+++ Insert +++

Aaccell,

Deberias trabajar con recordset desconectados y resometer la siguiente
pagina con los valores de los checkboxes que han sido checkeados.

Espero te sirva.

Thanks,

_______________
German Saer
Orlando, FL 32810




"Aaccell" wrote in message
news:

Hola buen día a todos. Tengo un pequeño problema que aún no he podido
resolver... espero que me puedan ayudar


Tengo una página con un listado de productos cada uno con la opción de
marcarlos con un "CheckBox", esto para que en la siguiente página me de

como

resultado, agregar todos los productos marcados en una tabla de la base de
datos.
Pensé en hacerlo con un bucle pero he tenido algunos problemas con lo de
Cerrar y Abrir el "recordset" ¿Existirá otra manera mas sencilla o

efectiva?

Espero que me puedan ayudar y que tengan un excelente día.

??? como hago eso?

Lo que yo hago es checar si el recordset esta cerrado, si es así lo abro
para ejecutar un INSERT INTO y despues lo cierro. Obviamente cuando regresa
el bucle, vuelve a pasar lo mismo pero caqui me marca error (No esta
permitida la acción si el objeto esta cerrado) y cuando cambio la condición
me marca No esta permitida la acción si el objeto esta ABIERTO :S

Si pones el codigo se te podria ayudar mas.

Thanks,

_______________
German Saer
Orlando, FL 32810



"Aaccell" wrote in message
news:

??? como hago eso?

Lo que yo hago es checar si el recordset esta cerrado, si es así lo abro
para ejecutar un INSERT INTO y despues lo cierro. Obviamente cuando

regresa

el bucle, vuelve a pasar lo mismo pero caqui me marca error (No esta
permitida la acción si el objeto esta cerrado) y cuando cambio la

condición

me marca No esta permitida la acción si el objeto esta ABIERTO :S

Ups.. cierto verdad ?


Establezco la conexion:

<%
categoria=request.form("lista")
dim d,e,j
d = split( request.form("numprod") , "," )
'-- Declaración de Vairables
Dim Conexion, Tabla, Directorio
'Se crean los objetos de datos
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'Conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
Directorio = "C:\Inetpub\gdl\datos\smtl.mdb"
Conexion.Open ("Data Source=" & directorio)
%>



Y utilizo la consulta:



<%response.write(categoria)%>
<form name="tablacat">
<table>
<tr>
<td>
<select name=lista type=multiple>
<%
if isarray(d) then
for i=0 to ubound(d)
response.write("<option value='*" & d(i) & "*'>"& d(i) )
response.write("</option>")
If Tabla.Open then
tabla.close
end If
sentencia = "insert into TB_PRODUCTO_CATEGORIA (KCategoria, KProducto)
values ('" & categoria & "', '" & d(i) & "')"
tabla.Open sentencia,Conexion,3,3,1
next
end if
%>
</td>
</tr>
<tr>
<td align="center">
<a href="nocatprod.asp"> Regresar </a>
</td>
</tr>
</table>
</form>