Combobox e RS.Fields.Item("id").Value

[Luis33]

Hola a todos

Come posso visualizzare un valore in una combobox a secondo della query che devo esguire?

Codice:

'ESECUZIONE DELLA PRIMA QUERY  
 
if ("nome") <> ADMIN then
sql = "SELECT * FROM TABELLAUNO INNER JOIN TABELLADUE ON TABELLADUE.id = TABELLAUNO.id WHERE TABELLADUE.id = "&("nome")&""  
else
sql = "SELECT * FROM TABELLAUNO" 
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

Do While Not rs.EOF
strVAR = rs("id")

%>

<option	value="<%=RS.Fields.Item("id").Value%>"
<% if TABELLAUNO = cstr(strVar) then response.write("selected") end if%>>
<%= RS.Fields.Item("TABELLAUNO").Value%></option>

Il problema s'è verificato perchè in tabellauno ho un id, in tabelladue ne ho un'altro che è diverso da quello della tabellauno, per cui la combobox si popola di valori sbagliati.
Gracias!

[Luis33]

Sicuramente mi sono espresso male, allora ecco il codice:

 'ESECUZIONE DELLA PRIMA QUERY  
 
if ("nome") <> ADMIN then
sql = "SELECT ....
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3
strVAR = rs("tabellauno.id")
%>
<option	value="<%=RS.Fields.Item("tabellauno.id").Value%>"
<%  if campo = cstr(strVar) then response.write("selected") end if%>>
<%= RS.Fields.Item("campo").Value%></option>

else


<%
else 
sql = "SELECT .... 
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3
Do While Not rs.EOF
strVAR = rs("tabelladue.id")
%>

<option	value="<%=RS.Fields.Item("tabelladue.id").Value%>"
<% if campo = cstr(strVar) then response.write("selected") end if%>>
<%= RS.Fields.Item("campo").Value%></option>

Se eseguo la prima query nella combobox avrò :

1-AirEurope

ed è OK.

Se, invece, eseguo la seconda di query mi ritrovo nella combobox

1-AirEurope
1-AirEurope

riuscite a seguirmi?
Che fatica...

[Sypher]

edit

[Luis33]

Grazie, mi hai fatto riflettere ... è stato sufficiente modificare il codice così nella parte in rosso... avevo sbagliato la chiusura dell'if che facevo prima del ciclo... :

 <%
rs.MoveNext
Loop
end if 
rs.Close
set rs = Nothing
%>

[Sypher]

Originariamente inviato da Luis33
Grazie, mi hai fatto riflettere ... è stato sufficiente modificare il codice così nella parte in rosso... avevo sbagliato la chiusura dell'if che facevo prima del ciclo... :

 <%
rs.MoveNext
Loop
end if 
rs.Close
set rs = Nothing
%>

si infatto avevo detto una cazzata e ho editato