no carga registros

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