Cita:
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??????????