Anexo encontraran el codigo de mis ASP lo que necesito es de una pagina que despliega informacion de SQL y muestro una serie de checkbox dependiendo de la cantidad de lineas de un pedido. hasta aqui no hay problema pero necesito actualizar la bd con los checkbox seleccionados en el RS. anexo los codigos y espero su ayuda.
PRIMER ASP
Dim Conex, Linea, IDPedido
if request.form("TxtPedido") <> "" then
'IDPedido = "'" & request.form("TxtPedido")& "'"
IDPedido = int(request.form("TxtPedido"))
' Response.Write(IDPedido)
Linea = 1
'Creamos el objeto de conexion ahora...
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=WEBVYCISA\SQLexpress; database=VYCPROD;uid=sa;pwd=Vycisa2010"
'response.Write("Conexion correcta")
set registros = Conex.execute("select fecha, codclien, pedido, cantidad, descripcion, detalle, estado, fechaact, observaciones from Produccion where pedido = ('"&IDPedido&"') and producto < 004000")
'set registros = Conex.execute("select fecha, codclien, pedido, cantidad, descripcion, detalle, estado, fechaact, observaciones from Produccion where pedido ='426896' and producto < 004000")
Do While Not registros.EOF
%>
UNA SERIE DE DATOS ..... CONTINUA
<tr>
<TD width="30" height="40"><div align="center" class="Estilo6"><font size="-2"><%= Linea %></font></div></TD>
<TD width="42" height="40"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("CODCLIEN").Value %></font></span></strong></div></TD>
<TD width="34"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("PEDIDO").Value %></font></span></strong></div></TD>
<TD width="32"><div align="center"><strong><span class="Estilo8"><font size="-2"><%= registros.Fields("CANTIDAD").Value %></font></span></strong></div></TD>
<TD width="34" class="Estilo3"><font size="-2"><%= registros.Fields("DESCRIPCION").Value %></font></font></TD>
<TD width="47"><div align="center" class="Estilo3"><font size="-2"><%= registros.Fields("detalle").Value %></font></font></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<TD><div align="center"><input type="checkbox" onClick="verFechaActual2()" name="Checkbox01" value="1"></div></TD>
<tr>
<TD height="24" colspan="5"><div align="center" class="Estilo7">Observaciones</div></TD>
<TD colspan="24" class="Estilo6"><input name="observ" type="text" id="observ" size="150" />
</font></TD>
</TR>
<%
registros.MoveNext
Linea = Linea + 1
%>
<%
Loop
%>
<%
registros.Close
Set registros = Nothing
Conex.Close
Set Conex = Nothing
%>
</TABLE>
<%
Else
%>
<div align="center">
<span class="Estilo14"><a href="javascript
:window.history.back();"> Teclea el numero de Pedido, Regresar AQUI</a>
</span></div>
<%
end if
%>
SEGUNDO ASP PARA ACTUALIZAR....
<%
dim conn,ssql,registros, Pedido,cantorecto,cantoforma,biselrecto,biselforma ,corte45,esqredondas,filosmuertos,taladros,avellan ado,saques,astrias,esqmatadas,plateado,pintura,sat inado,curvado,laminado,pegadouv,templado,cenefa,es merilado,pt,entrega
Pedido=request.form("IDpedido")
response.Write(Pedido)
'corte=request.Form("Corte")
cantorecto=request.Form("Cantorecto")
cantofoma=request.Form("Cantoforma")
biselrecto=request.Form("biselrecto")
biselforma=request.Form("biselforma")
corte45=request.Form("corte45")
esqredondas=request.Form("esqredondas")
filosmuertos=request.Form("filosmuertos")
taladros=request.Form("taladros")
avellanado=request.Form("avellanado")
saques=request.Form("saques")
astrias=request.Form("astrias")
esqmatadas=request.Form("esqmatadas")
plateado=request.Form("plateado")
pintura=request.Form("pintura")
satinado=request.Form("satinado")
curvado=request.Form("curvado")
Laminado=request.Form("Laminado")
PegadoUV=request.Form("PegadoUV")
Templado=request.Form("Templado")
Cenefa=request.Form("Cenefa")
Cenefa=request.Form("Esmerilado")
pt=request.Form("pt")
entrega=request.Form("entrega")
ssql=("update Produccion set Canto_recto='"& cantorecto &"', Canto_forma='"& CantoForma &"', Bisel_recto='"& BiselRecto &"', Bisel_forma= '"& BiselForma &"', corte_45='"& Corte45 &"', esq_redondas='"& EsqRedondas &"', Filos_Muertos='"& FilosMuertos &"', Taladros='"& Taladros &"', avellanado='"& Avellanado &"', saques='"& Saques &"', astrias='"& Astrias &"', esq_matadas='"& EsqMatadas &"', plateado='"& Plateado &"', Pintura='"& Pintura &"', Satinado='"& Satinado &"', Curvado='"& Curvado &"', Laminado='"& Laminado &"', Pegado_UV'"& PegadoUV &"', Templado='"& Templado &"', cenefa='"& Cenefa &"', esmerilado='"& Esmerilado &"', pt='"& PT &"', entrega='"& Entrega &"' where pedido = '"& Pedido &"'")
response.Write(ssql)
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "driver={SQL Server};server=WEBVYCISA\SQLexpress; database=VYCPROD;uid=sa;pwd=Vycisa2010"
'set registros = conn.execute("update Produccion set Corte= '"& corte &"', Canto_recto='"& cantorecto &"',Canto_forma='"& CantoForma &"',Bisel_recto='"& BiselRecto &"',Bisel_forma= '"& BiselForma &"',corte_45='"& Corte45 &"',esq_redondas='"& EsqRedondas &"',Filos_Muertos='"& FilosMuertos &"',Taladros='"& Taladros &"',avellanado='"& Avellanado &"',saques='"& Saques &"',astrias='"& Astrias &"',esq_matadas='"& EsqMatadas &"',plateado='"& Plateado &"',Pintura='"& Pintura &"',Satinado='"& Satinado &"',Curvado='"& Curvado &"',Laminado='"& Laminado &"',Pegado_UV'"& PegadoUV &"',Templado='"& Templado &"',cenefa='"& Cenefa &"',esmerilado='"& Esmerilado &"',pt='"& PT &"',entrega='"& Entrega &"' where pedido = ('"&IDPedido&"')")
set registros = conn.execute(ssql)
'Set objRS = con.Execute(sql)
Do While Not registros.EOF
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conn.Close
Set conn = Nothing
%>
MUCHAS GRACIAS Y EN VERDAD ME URGE GRACIAS