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:
Ver original<%
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
%>