no carga registros

[FlashO]

Hola ¡¡¡

Tengo un select multiple, las dos cajas, en la primera una lista de productos y la segunda en blanco. Puedo añadir y quitar productos a la segunda caja(inicialmente en blanco). En el formulario tengo también un par de cajas de texto para añadir descripciones. Una vez terminada la creación del registro le pico a un botón guardar y se agrega a la base de datos. los registros se van mostrando abajo en un listado de todos los que hay. Si le pico a un registro las cajas se rellenan con sus datos para poder editarlo, pero no consigo que el select de seleccionados se rellene con los productos que había pasado.
Alguna idea?

Muchas gracias
Un saludo

[JuanRAPerez]

si pegaras el código surgirían algunas ideas...

Si le pico a un registro las cajas se rellenan con sus datos para poder editarlo, pero no consigo que el select de seleccionados se rellene con los productos que había pasado.

te da error o simplemente el select no hace lo que si hace en otras ocasiones?????

[FlashO]

Yo grabo un nuevo producto, le añado unos tags.
Al entrar a esa página de productos como administrador veo abajo todos los registros guardados.
Si le pico a uno se me rellenan todos los campos con los datos de ese producto.
El problema viene con el select multiple, porque se me rellena con los tags seleccionados, pero no consigo trabajar correctamente con ellos, no me deja actualizarlos, ni borrarlos, ni nada ¡¡
Eso es lo que quiero conseguir.
Aquí pongo una parte de código

Un saludo ¡¡¡

Código:

<select name="lista" class="textonormal" id="lista" size="15" style=" font-size:9px;width:200px " multiple ondblclick="anadir(this.form)">
<%do while not rsS.eof%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%rsS.movenext
loop
rsS.close
%>

</select></td>
<td width="18%"><div align="center">
<input name="add" type="button" id="add" value="&nbsp;>&nbsp;" onClick="anadir(this.form)">
<br>
<input name="addAll" type="button" id="addAll" value=">>" onClick="anadirTodos(this.form)">
<br>
<input name="deleteAll" type="button"  id="deleteAll" value="<<" onClick="eliminarTodos(this.form)">
<br>
<input name="BDelete" type="button" id="BDelete" value="&nbsp;<&nbsp;" onClick="eliminar(this.form)">
<br>
</div></td>
<td width="41%">
<%if identificador="" then%>
<select name="seleccionados" size="15" multiple class="textonormal" id="seleccionados" style=" font-size:9px;width:200px " ondblclick="eliminar(this.form)"></select>
<%else%>
<select name="seleccionados" size="15" multiple class="textonormal" id="seleccionados" style=" font-size:9px;width:200px " ondblclick="eliminar(this.form)">
<%Set Rstag = CreateObject("ADODB.RecordSet")
SqlTexttag = "SELECT idtag FROM relacional WHERE tipo=0 and idOrigen="&identificador
Rstag.Open SqlTexttag, DnsText2,3,3
if not Rstag.eof then
Do while not rstag.eof
Set Rs3 = CreateObject("ADODB.RecordSet")
SqlText3 = "SELECT nombre FROM Tags WHERE id="&rstag("idtag")
Rs3.Open SqlText3, DnsText2,3,3
if not Rs3.eof then
nombredeltag=rs3("nombre")
end if
rs3.close
%>
<option value=<%=rstag("idtag")%>><%=nombredeltag%></option>
<%rstag.movenext
loop
end if
Rstag.close%>
</select>
<%end if%>
</td>
</tr>
</table>

</td>
</tr>
<tr>
<td align="right"><span class="Estilo14">Observaciones</span></td>
<td><label>
<input name="observaciones" type="text" id="observaciones" size="50" value="<%=Observaciones%>" />
</label></td>
</tr>
<tr>
<td align="right" valign="top" class="Estilo14">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="right" valign="top" class="Estilo12">&nbsp;</td>
<td><input type="reset" name="Submit2" value="Nuevo" />
<%if session("tipodeusuario")="admin" then%>
<input type="submit" name="Submit" value="Guardar / Modificar" />
<%else%>

<input type="submit" name="Submit" value="Guardar" />
<%end if%>                  </td>
</tr>
</table>
</form>

[FlashO]

El problema es que cuando abro un registro, me sale en la caja derecha los tags seleccionados, pero en la izquierda (que es donde están todos los tags) siguen apareciendo los ya marcados. Eso es lo que quiero corregir, que no aparezcan los ya seleccionados en la lista general.

Un saludo ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

[FlashO]

Ya esta solucionado, aquí dejo el código:

Código:

<td width="41%"><%Set RsS = CreateObject("ADODB.RecordSet")
DnsText2 = "*************************************"
SqlText2 = "SELECT * FROM Tags order by Nombre ASC" 
RsS.Open SqlText2, DnsText2, 3,3

%>

<%if identificador="" then
%>
<select name="lista" class="textonormal" id="lista" size="15" style=" font-size:9px;width:200px " multiple ondblclick="anadir(this.form)">
<%do while not rsS.eof%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%rsS.movenext
loop
rsS.close
%>   
</select>

<%else%>      
<select name="lista" class="textonormal" id="lista" size="15" style="font-size:9px;width:200px;" multiple ondblclick="anadir(this.form)">
<%
do while not rsS.eof
Set Rstag2 = CreateObject("ADODB.RecordSet")
SqlTexttag2 = "SELECT idtag FROM relacional WHERE tipo=0 and idOrigen="&identificador
Rstag2.Open SqlTexttag2, DnsText2,3,3
repite="NO"
do while not Rstag2.eof 
if cint(Rstag2("idtag"))=cint(rsS("id")) then
repite="YES"
end if
Rstag2.movenext
loop
Rstag2.close%>
<%if repite="NO" then%>
<option value=<%=rsS("id")%>><%=rsS("Nombre")%></option>
<%end if%>
<%rsS.movenext
loop
rsS.close
%>   
</select>
</td>
<%end if%>