fallo en subconsulta

[lmalvarez]

Buenas, estoy empezando con ASP y seguro que he metido la gamba en este código. A ver si me podéis echar una mano. Muchas gracias

La BD es postgre y el error que me da es el siguiente

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
/get.asp, línea 59
<%while not RS.eof

Código asp:

<%
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=myUsername;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
%>
 

[Adler]

Hola, bienvenido al foro

Cambia esto

<%while not RS.eof%>

por esto

while not RS.eof%>

Suerte

[lmalvarez]

Hola, gracias por responder tan rápido, pero sigue sin funcionar. He cambiado lo que me has dicho, pero sigue sin funcionar. Ahora me da el siguiente error:

Error de compilación de Microsoft VBScript (0x800A03F6)
Se esperaba 'End'
/get.asp, línea 62


Por cierto, que antes se me olvidó meter un trozo de código, y he editado el post.

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

[lmalvarez]

Gracias Muzztein, pero acabo de copiar y pegar tu código y ahora me da este error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/get2.asp, línea 15

[Muzztein]

checa tu conexion a la BD

[lmalvarez]

la conexion esta bien (o eso creo), no será que hace falta el driver odbc? Gracias por la ayuda

[Muzztein]

si es q te falta el driver, entonces tu conexion NO esta bien.

[lmalvarez]

Como mirar si me falta el driver? de donde me lo bajo? un buen manual de asp? estoy más perdido...

En este link (ht tp:// ww w. forosdelweb.com/f15/asp-con-postgresql-459065/) emplean la misma cadena de conexión :S

Gracias por la ayuda

[Muzztein]

checa esto

http://www.developer.com/open/article.php/631251

y esto

http://www.postgresql.org/ftp/odbc/versions/

[lmalvarez]

Gracias Muzztein!!, ya conseguí conectarme via ODBC con visual web developer, pero ahora me da el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
ERROR: error de sintaxis en o cerca de «b1fec5e6cf4861b»; Error while executing the query
/get2.asp, línea 45

"b1fec5e6cf4861b" pertenece a la variable tag

Acabo de probar una consulta más sencilla y sí que funciona. A ver si cambiando un poco el código lo arreglo

Lo que hice hasta ahora fue:
instalar driver de aquí ht tp://ww w.postgresql.org/ftp/odbc/versions/
Agregar el origen de datos(haga clic en Inicio y, a continuación, en Panel de control. Haga doble clic en Herramientas administrativas y, después, haga doble clic en Orígenes de datos (ODBC)).
Agregar en los 3 DSN (usuario, sistema, archivo) el postgreANSI
Conectarme desde visual web developer
pillar la cadena de conexión y ponerla en el código.

[lmalvarez]

Solucionado,

a parte de lo comentado en el anterior post tuve que cambiar la consulta por esta otra:

strQuery = "SELECT nombre FROM usuarios WHERE (idusuarios =(SELECT usuarios_idusuarios FROM tarjetas_RFID WHERE (tag_hash = '"&tag&"')))"

Muchas gracias a todos por vuestra ayuda