zordak
05 de Septiembre del 2005

Hola a todos,
En el siguiente código me da un error de sintaxis en la línea:
Recordset1.Source = "Select * From dbo.npedidos where proyecto=" & cProyecto &

No consigo ver el error ¿Puede ser un error arrastrado? Por si sirve de ayuda les pongo el código entero. Gracias de antemano

<%
'Declaramos las variables
Dim sNombre
Dim cNombre
Dim filtro
Dim Recordset1

'Recogo el formulario de Request.Form("Nombre)
'Trim elimina los espacios en blanco a derecha e izquierda
sProyecto = Trim(Request.Form("proyecto"))
cProyecto = sProyecto
%>
<%
MM_editConnection = MM_pedidos_STRING
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_editConnection
Recordset1.Cursortype= 2
Recordset1.LockType= 3

if cProyecto <> "" then

Recordset1.Source = "Select * From dbo.npedidos where proyecto=" & cProyecto &
else


filtro=""


If cNombre = "" then
Recordset1.Source = "Select * From dbo.npedidos "
else
Recordset1.Source = "Select * From dbo.npedidos where " & filtro &

end if
end if
Recordset1.Open
'response.Write(rs.Source)
if Recordset1.eof then

%>

Julian
05 de Septiembre del 2005

un saludo, hace tiempo que no hago nada en asp, pero creo que era asi....

prueba en la sentencia despues del ultimo del ultimo & a poner ""(abrir y cerrar comillas).

tambien puede ser un error de captura de datos del recorset, asegurate al recojer los datos haciendo un cambio de tipo a la captura.

en la linea
<Recordset1.Source = "Select * From dbo.npedidos where " & filtro &>
la variable filtro deve de tener una asignacion de valor ej: ..... where filtro=" & filtro & ""

espero que te sirva.

IVANKO
05 de Septiembre del 2005

Pq tienes un & al final de esta línea?Recordset1.Source = "Select * From dbo.npedidos where proyecto=" & cProyecto &