31/01/2008, 08:41
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 4 meses Puntos: 126 | |
| Re: Problema con consulta sql
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
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" /> |