fallo en subconsulta

[Muzztein]

<%If Request.QueryString ("tag") = "" then %>

Error: no se han pasado todos los datos
<%

Else
Dim reader, tag
reader = Request.QueryString("reader")
tag = Request.QueryString("tag")
response.write "<B> TagHash = "& tag &"</B><BR><b>ReaderHash = "& reader &""

Dim Conex
'Creamos el objeto de conexion ahora...'
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={PostgreSQL};server=localhost; database=p_comercio; uid=postgres;pwd=admin"
set RS = Server.CreateObject("ADODB.Recordset")
'RS.CursorType = 1
'RS.Open SQL, DbConn
'total=RS.RecordCount

'Driver={PostgreSQL};Server=IP address;Port=5432;Database=myDataBase;Uid=myUserna me;Pwd=myPassword;'

'SQL = "SELECT * FROM reclamos"
'set DbConn = Server.CreateObject("ADODB.Connection")
'set RS = Server.CreateObject("ADODB.Recordset")
'DbConn.Open DSN_de_la_base_de_datos
'RS.CursorType = 1
'RS.Open SQL, DbConn
'total=RS.RecordCount

strQuery = "Select nombre from usuarios where id_usuarios=(Select usuarios_idusuarios from tarjetas_RFID where tag_hash="&tag&")"



Set RS = conex.Execute(strQuery)

while not RS.eof

%>
<%=RS("nombre")%><br>
<%
RS.MoveNext
wend
End If
%>