>< % ERROR: set RsetTipDispositivo= ConBase.execute(SqlQryTipDispositivo) % > > <select name="CmbTipDispositivo1" style="width:150" onChange="form1.submit()"> > < % ERROR: while not RsetTipDispositivo.eof > if RsetTipDispositivo("Id_TipDispositivo") = request("CmbTipDispositivo1") then % > > <option selected value="< % ERROR: =RsetTipDispositivo("Id_TipDispositivo") % >">< % ERROR: =RsetTipDispositivo("TipDspNombre") % ></option> > < % ERROR: else % > > <option value="< % ERROR: =RsetTipDispositivo("Id_TipDispositivo") % >">< % ERROR: =RsetTipDispositivo("TipDspNombre") % ></option> > < % ERROR: end if % > > < % ERROR: RsetTipDispositivo.movenext > > wend > RsetTipDispositivo.close > Set RsetTipDispositivo = nothing > % > > </select>>