Buenas tardes, u_goldman
resulta que el error que me da ahora es: Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros, en la instruccion
"rs.Open SQL, oConn"
Habias asumido bien, unicamente que no se si faltaba un
"=" antes de la variable de empresa o no. Pero el caso es que me sigue fallando algo.
Te pongo el codigo completo por si puedes hacer algo. Gracias.
Código:
<select name="administradores" size="4" multiple id="administradores" class="form">
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open DBQAdmin
strSQL = "SELECT a.id_usuario, a.nombre_usuario, b.nombre_empresa " & _
"FROM users a INNER JOIN empresas b ON b.id_empresa = " & _
empresa & " INNER JOIN empresa_administrador c ON c.id_usuario = " & _
"a.id_usuario AND c.id_empresa = a.id_empresa WHERE a.permiso_usuario = 1 "
rs.Open SQL, oConn
cuenta=1
while not rs.EOF
%>
<option value="<%=rs.Fields("ID_Usuario")%>"><%=rs.Fields("Nombre_Usuario")%></option>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</select>
De todas formas, en la etiqueta option no habria que poner ninguna condicion o algo asi?
Gracias de nuevo.