Duda sobre funciones en asp

[GELOGGER]

Hola que tal estoy realizando una aplicacion asp con SQL como manejador. Mi duda en concreto es con el siguiente fragmento de codigo, que es una funcion para llenar una lista menu a traves de una tabla de un BD.

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=GELOGGER\SQLEXPRESS;UID=sa;PWD=gestion;DATA BASE=GESTION "

Set RS_PROCEDENCIA = Server.CreateObject ("ADODB.RecordSet")

sub lista_dinamica(c,r,tabla,sel)
dim SQL
SQL="SELECT * FROM " &tabla& " ORDER BY descripcion ASC"
Set r = c.Execute(SQL)
if not r.eof=FALSE then
Response.Write"<form name=""form1"">"
Response.Write"<select name="&sel& ">"
Response.Write"<option Select"" value=""""> </option>"
while r.eof=false
Response.write"<option value=""captura.asp"">"&r.fields ("descripcion").value& "</option>" &vbCrLf
r.movenext
wend
end if
Response.write"<\select> <\form>" & vbCrLf
end sub
%>

Hago el llamado de esta funcion de la siguiente manera:

call lista_dinamica(oConn,RS_PROCEDENCIA,CAT_PROCEDENCI A,procedencia)


el problema aqui es que me marca un error que no logro encontrar es el siguiente:

Microsoft OLE DB Provider for SQL Server (0x80040E14)
Sintaxis incorrecta cerca de la palabra clave 'ORDER'.
/captura.asp, línea 221



la linea 221 es la que tiene :Set r = c.Execute(SQL)


segun yo esta bien pero no encuentro el error. Me pueden ayudar porfavor.

[Julcar]

Pues creo que el problema radica en que antes de ejecutar los valores, deberias primero guardarlos en variables, o al menos eso hago yo al hacer funciones.

[Muzztein]

pues escribe en pantalla la variable SQL y checa si es que es valida la instruccion SQL

creo que el valor de TABLA viene vacio

sub lista_dinamica(c,r,tabla,sel)
dim SQL
SQL="SELECT * FROM " &tabla& " ORDER BY descripcion ASC"

reponse.write sql
response.end



Set r = c.Execute(SQL)
if not r.eof=FALSE then
Response.Write"<form name=""form1"">"
Response.Write"<select name="&sel& ">"
Response.Write"<option Select"" value=""""> </option>"
while r.eof=false
Response.write"<option value=""captura.asp"">"&r.fields ("descripcion").value& "</option>" &vbCrLf
r.movenext
wend
end if
Response.write"<\select> <\form>" & vbCrLf
end sub

[posman]

Trata poniendo espacios entre ampersand y tabla

Código:

.. & tabla & ...

Tambien quita ASC, por default se ordena de esa manera. Nada mas especifica cuando lo quieras ordenar en forma descendente (DESC)

[Adler]

Hola

¿La variable tabla trae un número o una cadena de texto?

numero ----> SQL="SELECT * FROM " &tabla& " ORDER BY descripcion ASC"
cadena texto ----> SQL="SELECT * FROM '" &tabla& "' ORDER BY descripcion ASC"

Suerte

[Muzztein]

OI! en SQL, el nombre de la tabla no va entre comillas.