Problema con consulta sql

[ariesagv]

hola espero que alguien me pueda orientar, porque no me sale estas consultas, solo una y no se porque o en que estoy mal
si alguien me puede asesorar; plisssssss

<%
'declaracion de variables
dim Vigente,Tramite,Caduca
'variable enviada por el formulario
estado=ucase(trim(request.Form("estado")))
'conexion con la base de datos

set oConn=Server.CreateObject("ADODB.Connection")
strcon=x
if estado<>"Vigente" then
sql="select estado from Prop_Ind where estado='vigente'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Vigente=Vigente+1
rs.movenext
wend

%>Vigentes<%response.write(Vigente)&"<br/>"

elseif estado<>"Tramite" then
sql="select estado from Prop_Ind where estado='Tramite'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Tramite=Tramite+1
rs.movenext

wend

%>Tramite<%response.write(Tramite)&"<br/>"
else
if estado<>"Caduca" then
sql="select estado from Prop_Ind where estado='Caduca'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Caduca=Caduca+1
rs.movenext
wend

%>Caduca<%response.write(Caduca)&"<br/>"

Rs.Close
Set RS=nothing
oConn.Close
set oConn=nothing
end if
end if
%>

[a n g e l u s]

HOLA QUE TAL

LOS problemas, asi al ojo son en las siguentes lineas:

sql="select estado from Prop_Ind where estado= ' " & vigente & " ' "


sql="select estado from Prop_Ind where estado= ' " & tramite & " ' "


sql="select estado from Prop_Ind where estado= ' " & caduca & " ' "

[Adler]

Prueba así

kmesta=ucase(trim(request.Form("estado")))

Sta = 0

set oConn=Server.CreateObject("ADODB.Connection")
sql="select estado from Prop_Ind where estado='&kmesta&'"
set Rs=oConn.execute(SQL)
if err=0 then
while Rs.EOF=false
if kmesta = "vigente" then Sta = Sta+1
if kmesta = "tramite" then Sta = Sta+1
if kmesta = "caduca" then Sta = Sta+1
rs.movenext
wend
Response.Write kmesta & Sta
else
.....

Suerte

[ariesagv]

Iniciado por Adler

Prueba así

kmesta=ucase(trim(request.Form("estado")))

Sta = 0

set oConn=Server.CreateObject("ADODB.Connection")
sql="select estado from Prop_Ind where estado='&kmesta&'"
set Rs=oConn.execute(SQL)
if err=0 then
while Rs.EOF=false
if kmesta = "vigente" then Sta = Sta+1
if kmesta = "tramite" then Sta = Sta+1
if kmesta = "caduca" then Sta = Sta+1
rs.movenext
wend
Response.Write kmesta & Sta
else
.....

Suerte

ya probe tu programa este de plano no me muestra nadaaaaaaaaa
y la verdad es que si tengo registros en mi base de datos
asi que??????????

[ariesagv]

Hola ya me quedo muchas gracias por la ayuda
el codigo quedo asi, solo era cuestion de quitar los else, jaaaaaaa
siempre suele pasar que por algo tan sencillo se nos complica todoo

<%
'declaracion de variables
dim Vigente,Tramite,Caduca
'variable enviada por el formulario
estado=ucase(trim(request.Form("estado")))
'conexion con la base de datos

set oConn=Server.CreateObject("ADODB.Connection")
strcon=x
oConn.Open strcon
if estado<>"Vigente" then
sql="select estado from Prop_Ind where estado='vigente'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Vigente=Vigente+1
rs.movenext
wend
%>Vigentes<%response.write(Vigente)&"<br/>"

if estado<>"Tramite" then
sql="select estado from Prop_Ind where estado='Tramite'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Tramite=Tramite+1
rs.movenext
wend
%>Tramite<%response.write(Tramite)&"<br/>"

if estado<>"Caduca" then
sql="select estado from Prop_Ind where estado='Caduca'"
set Rs=oConn.execute(SQL)
end if
if err=0 then
while Rs.EOF=false
Caduca=Caduca+1
rs.movenext
wend

%>Caduca<%response.write(Caduca)&"<br/>"

Rs.Close
Set RS=nothing
oConn.Close
set oConn=nothing
end if
end if
end if
%>