[igadino]

Amigo apanhei muito mais conseguir fazer este codigo que edita varios registros que esta no checkbox

Parte 01

CÓDIGO

<%
'------> MS Access 2000 usando uma pasta virtual
    Set conn = Server.CreateObject("ADODB.CONNECTION")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../db/virtuastore.mdb")
'    StringdeConexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database/virtuastore.mdb")
    Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
   sql="select * from pedidos"
   Set RS = conn.Execute(sql)
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize
idprod = RS("idprod")
quantidade = RS("quantidade")
intProdID = idprod
intQuant = quantidade
%>
<form action="atualizapedido.asp" method="post" name="registro1">
<table>
<tr><TD><input name="quant<%=intProdID %>" size="2" value="<%=intQuant%>" onChange="HandleError<%= intProdID %>(this)" style=font-size:11px;font-family:<%=fonte%>; maxlength=2></TD>
<TD><input type="checkbox" name="pg_id<%=intProdID %>" id="<%=varCont%>" value="<%=intProdID %>"></TD></tr>
</table>
<%
    RS.MoveNext
    LOOP

%>
<input type="submit" name="VER" value="Enviar">
</form>

Parte 02

CÓDIGO

<%
    Set conn = Server.CreateObject("ADODB.CONNECTION")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../db/virtuastore.mdb")
    Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
intOrderID = "1"
set rsProd = conn.Execute("SELECT * FROM pedidos WHERE idcompra='"&intOrderID&"';")
if rsProd.EOF and rsProd.BOF then
rsProd.close
set rsProd = Nothing
abredb.Close
set abredb = Nothing
else
do while not rsProd.EOF
element = "quant" & rsProd("idprod")
intQuant = Request.form(element)
intQuantz = rsProd("idprod")
pg_id = "pg_id" & rsProd("idprod")
ID_Quant = Request.form(pg_id)
if intQuant <> "" and isNumeric(intQuant) then
set rsProd1 = conn.Execute("update pedidos set quantidade='"&intQuant&"' WHERE idcompra='"&intOrderID&"' AND idprod='"&ID_Quant&"';")
end if
rsProd.MoveNext
loop
rsprod.close
set rsProd = Nothing
conn.Close  
set conn = Nothing
Response.Redirect "/"
end if
conn.Close  
set conn = Nothing
%>