Ayuda Porfavor - Alguien Sabe...

leopardix · #1 (**permalink**) 01/05/2004, 19:05

ALGUIEN SABE PORQUÉ ESTE CÓDIGO NO FUNCIONA...

Tengo una página con un enlace a esta dirección:

email.asp?USUARIO=1

Quiero que en la página email.asp se haga una consulta a una base de datos pero no me funciona... este es el código.

<HTML>
<TITLE> E-MAIL</TITLE>
<%@ LANGUAGE=JScript %>
<BODY>


<%
USUARIO = Request.QueryString("USUARIO")
Ob_Conn = new ActiveXObject ("ADODB.Connection")
Ob_Command = new ActiveXObject ("ADODB.Command")
Ob_Conn.Open ("conexion")
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT * FROM mitabla WHERE UserId='"& USUARIO &"'"
Ob_Command.CommandText = Sql
Ob_RS = Ob_Command.Execute () %>

<CENTER>
<TABLE BORDER=1>
<TR>
<TH> E-MAIL </TH>

<% while (!Ob_RS.Eof)
{ %>
<TR>

<TD> <%= Ob_RS ("LDEmail") %> </TD>

<% Ob_RS.MoveNext()
}
Ob_RS.Close()
Ob_Conn.Close() %>

</TABLE>
</CENTER>
</BODY>
</HTML>

He modificado lo que aparece en verde de mil formas pero no me funciona.

RootK · #2 (**permalink**) 02/05/2004, 00:52

Si UserId es de tipo entero entonces no son necesarias las comillas... ya intentaste con ésto:

Cita:

Sql= "SELECT * FROM mitabla WHERE UserId="& USUARIO

Por cierto.. si estas usando sintaxis de Jscript... no tienes algunos errores por ahí...?? (puntos y comas, declaracion de variables..etc) ??

Saludos

leopardix · #3 (**permalink**) 02/05/2004, 05:12

He probado y me da este error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'.

/directorio/email.asp, línea 16

Necesito ayuda... en 5 horas no he podidi solucionar esto...

meru-kun · #4 (**permalink**) 02/05/2004, 07:12

Teoricamente, debería funcionar algo así:
intUser = Request.QueryString("USUARIO")
srtSQL = "SELECT * FROM TABLA WHERE UserId = " & intUser
set mr = server.createobject("ADODB.Recordset")
mi_conex.execute(strSQL)

De todas formas, el resto del código que usas no lo entiendo ... yo haría algo así:
Do while not mr.eof or mr.bof
response.write mr("LDEmail")
mr.movenext
loop
mr.close
set mr = nothing