Bueno el titulo no esta muy claro, así que haber si me explico mejor, tengo una pagina de productos y un botón de accesorios, al darle a ese boton se me abre una nueva ventana en la cual aparecen todos los accesorios, y las unidades qeu quiero así que marco lo que quiero y le doy a enviar, esto se me pasa a la otra página mediante javascript, bien pues lo que necesito es que al darle otra ver a accesorios, una vez cerrada la ventana me aparezcan los accesorios que e marcado anteriormente, para ello recojo los valores que le e marcado anteriormente, que son ,
29(5),38
29 y 38 son los números ids de los accesorios, y entre parentesis estan las unidades, para separar esto lo e echo así:
Código:
<%
SQL="SELECT * FROM accesorios where mostrar = 'si' and menu = '"&request("id")&"'"
rs.Open SQL, Conn, 1, 2
rs.PageSize=1
rs.CacheSize=1
CantidadRegistros=rs.PageCount
valorproductos = request("naccesorios")
valorp = Split(valorproductos,",")
n = 0
for I=LBound(valorp) to UBound(valorp)
if valorp(I) <> "" then
valorp2 = valorp(I)
'response.write valorp2&"<br>"
valorp3 = Split(valorp2,"(")
for I2=LBound(valorp3) to UBound(valorp3)
recogervalor = right(valorp3(I2),1)
if recogervalor = ")" then
cantidadfinal = replace(valorp3(I2),recogervalor,"")
'response.write "-"&cantidadfinal&"-<br>"
else
valorid = valorp3(I2)
'response.write "-------"&valorp3(I2)&"-------<br>"
end if
next
n = n + 1
%>
<% end if %>
<%
numero = 0
do while not rs.EOF
numero = numero + 1
If lColor Then
Color = "#E9E4E9"
Color2 = "#FAE8DA"
Else
Color = "#D6CFD6"
Color2 = "#FEF8F3"
End If
%>
<%
response.write ltrim(rtrim(valorid))&"----<br>"
response.write ltrim(rtrim(rs.Fields("id")))&"----<br>"
response.write ltrim(rtrim(valorid)) = ltrim(rtrim(rs.Fields("id")))
%>
</div> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="25" valign="top" bgcolor="<% = Color %>"><input name="precio<%=rs.Fields("id")%>" type="checkbox" id="precio" value="<%=rs.Fields("id")%>" onClick="if (this.checked) sumar(<%=FormatNumber(rs.Fields("precio"),0)%>*document.forms[0].numero<%=numero%>.value); else restar(<%=FormatNumber(rs.Fields("precio"),0)%>*document.forms[0].numero<%=numero%>.value);if(this.checked) copia(<%=rs.Fields("id")%>,document.forms[0].numero<%=numero%>.value); else descopia(<%=rs.Fields("id")%>,document.forms[0].numero<%=numero%>.value)" <%if ltrim(rtrim(valorid)) = ltrim(rtrim(rs.Fields("id"))) then %>checked<%end if%>>
</td>
<td width="371" bgcolor="<% = color %>"><font face="Verdana" size="1" color="000000"><strong><%=rs.Fields("nombre")%></strong> <%=rs.Fields("caracteristicas")%></font></td>
<td width="35" bgcolor="<% = color %>"><% if rs.Fields("unidades") <> "no" then%>
<font face="Verdana" size="1" color="000000"><strong>
<%if ltrim(rtrim(valorid)) = ltrim(rtrim(rs.Fields("id"))) then %>
<input name="numero<%=numero%>" type="text" id="numero<%=numero%>" style="color: #000000; background-color: #EEEEEE; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;" value="<%=cantidadfinal%>" size="2" maxlength="3" onMouseOut="">
<%else%>
<input name="numero<%=numero%>" type="text" id="numero<%=numero%>" style="color: #000000; background-color: #EEEEEE; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;" value="1" size="2" maxlength="3" onMouseOut="">
<%end if%>
</strong></font>
<%else%>
<input name="numero<%=numero%>" type="text" class="px2" id="numero<%=numero%>" style="color: #000000; background-color: #EEEEEE; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;" value="1" size="2" maxlength="3">
<%end if%></td>
<td width="60" bgcolor="<% = color %>"><font face="Verdana" size="1" color="000000">
<input name="euros<%=numero%>" type="text" class="px2" id="euros<%=numero%>" style="color: #000000; background-color: #EEEEEE; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;" value="<%=rs.Fields("precio")%>" size="5">
<strong><%=rs.Fields("precio")%> Euros</strong> </font></td>
</tr>
</table>
<div align="left">
<%
rs.MoveNext
lColor = Not lColor
Loop
%>
<br>
<%
next
%>
Pero no sale solo me recorre una vez, solo como id= 38, el id= 29 no lo recoge, igual me estoy haciendo un lio, je
Un saludo