Hola, tengo un problema, bueno mas que problema, es que no se como hacer un update, cuando el usuario marca que quiere sacar los productos para repartirlos.
Muestro las lineas con los datos, pero si el usuario desmarca el check, tengo que modificar la linea para marcarlo como que se lo han llevado. El problema es que me envia muchas variables con el mismo nombre separadas por comas, y no se como actualizarlas 1 a 1.
Pongo el codigo y estaria muy agradecido si alguien me ayuda.
<%
Do While Not rs.EOF
if rs.Fields("servido") = False Then
%>
<tr>
<td><div align="center"><input name="fechasalida" type="text" value="<%= Date() %>" size="11"/>
<input name="id" type="hidden" value="<%=rs.Fields("id")%>">
<input name="codvendedor" type="hidden" value="<%=rs.Fields("codvendedor")%>"> </div>
</td>
<td><div align="center">
<input name="servido" type="checkbox" value="1" checked>
</td>
<td><div align="center"><font color='#000000' face='Verdana' size='1'>
<a href="borrar.asp?id=<%=rs.Fields("id")%>&codvended or=<%=rs.Fields("codvendedor")%>">Eliminar</a></font></div></td>
</tr>
<%
else
Response.Write("")
end if
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
Para recoger:
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("albaranes.mdb"))
if servido = 1 then
valor= 1
oConn.execute ("UPDATE albaranes SET fechasalida='"& fechasalida&"', repartidopor='"& repartidopor&"', numreparto='"& contador &"',servido='"& valor&"', historico='"& valor&"' WHERE id="& id &"")
else
Response.Write("No")
end if
oConn.Close
Set oConn = nothing
RESPONSE.Redirect("centro.asp?codvendedor="&codven dedor&"")
El problema es que me envia varias variables en el mismo campo, y no se como actualizarlas. Si mando solo una, hace el update bien, pero en cuanto hay 2 o mas no da error.
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "2, 6, 7"]'
guardaenvio.asp, line 46
Muchas gracias por anticipado.