Foros del Web - no carga registros

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - no carga registros (http://www.forosdelweb.com/f15/no-carga-registros-577327/)

no carga registros

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

Re: no carga registros

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

Cita:

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?????

Re: no carga registros

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>

Re: no carga registros

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 ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ :-)

Re: no carga registros

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%>