Error en consulta

Buenas!!!

Quiero realizar una consulta a una bbdd Sql Server 2000 y me da un error
en tiempo de ejecución y no se porque. Os dejo el codiog si sirve de algo.
Gracias.

Line 1: Incorrect syntax near 'descripcionproyecto'.

/GIP/presupuestos.asp, line 201

Dim
v_anio,v_proyecto,v_gi,v_detallegi,v_conceptogi,v_centrocoste,v_areagi,v_con
sulta,v_sql
dim v_mostrar
v_consulta=""
v_mostrar=false
if len(cstr(request.QueryString("busqueda")))<>0 then
v_anio=cstr(request.QueryString("anio"))
v_proyecto=cstr(request.QueryString("proyecto"))
v_gi=cstr(request.QueryString("gi"))
v_detallegi=cstr(request.QueryString("detallegi"))
v_conceptogi=cstr(request.QueryString("conceptogi"))
v_centrocoste=cstr(request.QueryString("centrocoste"))
v_areagi=cstr(request.QueryString("areagi"))
if v_anio<>"*" then
v_consulta=v_consulta&" año="&v_anio
v_mostrar=true
end if
if v_proyecto<>"*" and v_mostrar then
v_consulta=v_consulta&" and descripcionproyecto=(select descripcionproyecto
from proyectos where codigoproyecto="&v_proyecto&")"
v_mostrar=true
else
v_consulta=v_consulta&" descripcionproyecto=(select descripcionproyecto from
proyectos where codigoproyecto="&v_proyecto&")"
v_mostrar=true
end if
if v_gi<>"*" and v_mostrar then
if v_gi="1" then
v_consulta=v_consulta&" and descripciongi='gasto'"
else if v_gi="0" then
v_consulta=v_consulta&" and descripciongi='ingreso'"
end if
end if
v_mostrar=true
else
if v_gi="1" then
v_consulta=v_consulta&" descripcion='gasto'"
else if v_gi="0" then
v_consulta=v_consulta&" descripcion='ingreso'"
end if
end if
v_mostrar=true
end if
if v_detallegi<>"*" and v_mostrar then
v_consulta=v_consulta&" and descripciondetallegi=(select
descripciondetallegi from detallegi where codigodetallegi="&v_detallegi&")"
v_mostrar=true
else
v_consulta=v_consulta&" descripciondetallegi=(select descripciondetallegi
from detallegi where codigodetallegi="&v_detallegi&")"
v_mostrar=true
end if
if v_conceptogi<>"*" and v_mostrar then
v_consulta=v_consulta&" and descripcionconceptogi=(select
descripcionconceptogi from proyectos where
codigoconceptogi="&v_conceptogi&")"
v_mostrar=true
else
v_consulta=v_consulta&" descripcionconceptogi=(select descripcionconceptogi
from proyectos where codigoconceptogi="&v_conceptogi&")"
v_mostrar=true
end if
if v_centrocoste<>"*" and v_mostrar then
v_consulta=v_consulta&" and descripcioncentrocoste=(select
descripcioncentrocoste from [Centros de Coste] where
codigocentrocoste="&v_centrocoste&")"
v_mostrar=true
else
v_consulta=v_consulta&" descripcioncentrocoste=(select
descripcioncentrocoste from [Centros de Coste] where
codigocentrocoste="&v_centrocoste&")"
v_mostrar=true
end if
if v_areagi<>"*" and v_mostrar then
v_consulta=v_consulta&" and descripcionareagi=(select descripcionareagi from
areagi where codigoareagi="&v_areagi&")"
v_mostrar=true
else
v_consulta=v_consulta&" descripcionareagi=(select descripcionareagi from
areagi where codigoareagi="&v_areagi&")"
v_mostrar=true
end if
if v_mostrar=true then
sql="select * from vPresupuestos where "&v_consulta&" order by año desc,
descripcionareagi desc ,descripcionconceptogi desc, descripciondetallegi
desc,descripcionproyecto desc"
else
sql="select * from vPresupuestos order by año desc, descripcionareagi desc
,descripcionconceptogi desc, descripciondetallegi desc,descripcionproyecto
desc"
end if
else
sql="select * from vPresupuestos order by año desc, descripcionareagi desc
,descripcionconceptogi desc, descripciondetallegi desc,descripcionproyecto
desc"
end if
Dim rQueryPres
Dim rQueryPres_numRows

Set rQueryPres = Server.CreateObject("ADODB.Recordset")
rQueryPres.ActiveConnection = MM_db_presupuestos_STRING
rQueryPres.Source =sql
rQueryPres.CursorType = 3
rQueryPres.CursorLocation = 3
rQueryPres.LockType = 1
rQueryPres.Open()

rQueryPres_numRows = 0