<%
'declaracion y recepcion de variables enviadas por el formulario
Dim Vig,Tra,Cad'declaracion de variables
Vig=trim(request.form("Vigente"))
Tra=trim(request.form("Tramite"))
Cad=trim(request.form("Caduca"))
'validacion de los espacios en blanco
if (Vig="") and (Tra="") and (Cad="") then ' if de inicio
<!---response.Redirect("sesion1.asp?ban=1")-->
else
sql="select Count (*) As CuantosHayVigente from Prop_Ind where estado = 'vigentes'"
Dim infPA 'declaracion de variable
Set infPA = Server.CreateObject("ADODB.Recordset")
infPA.ActiveConnection = MM_pi_STRING
infPA.Source = sql
infPA.Open() 'se abre el archivo
end if%>
<table width="66%" height="73" border="0" align="center">
<tr>
<td colspan="7"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Vigentes</strong></font></div></td>
<td width="27%" colspan="5"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"></font><a href="insert1.asp?"estado"><%=infPA("
CuantosHayVigente")% ></a></div></td>
</tr>
<tr>
<td colspan="7"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Tramites</strong></font></div></td>
<td colspan="5"><div align="center"><font size="2" face="Arial, Helvitica, sans-serif"></font><a href="insert1.asp?"estado"><%=infPA("CuantosHay")% ></a></div></td>
</tr>
<tr>
<td colspan="7"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong> Caducas</strong></font></div></td>
<td colspan="5"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"></font><a href="insert1.asp?"estado"><%=infPA("CuantosHay")% ></a></div></td>
</tr>
<tr>
</table>
oki cambia tu sql y correlo asi como te lo paso
te traera solo los estado vigentes luego tienes que colocar otra vez la sql con el siguiente estado
luego corres la pagina y me dices si marca error