<td><font COLOR="#09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1>Modelo</font></td> <td><SELECT id=har2 name=har2> < % ERROR: set rs_modelo=conn.Execute(sql_m) while not rs_modelo.eof if rs_modelo("codigo")=rs_hardware("modelo") then % > <OPTION selected value=< % ERROR: =rs_modelo("codigo") % >>< % ERROR: =rs_modelo("codigo") % ></OPTION> < % ERROR: else % > <OPTION value="< % ERROR: =rs_modelo("codigo") % >">< % ERROR: =rs_modelo("codigo") % ></OPTION> < % ERROR: end if rs_modelo.MoveNext wend rs_modelo.Close % > </SELECT></td>And the code for the place is:
<td><font COLOR="09135A" face="Verdana, Arial, Helvetica, sans-serif" size=1>Dependencia</FONT></td> <td colspan=3 ><SELECT id=har4 name=har4> < % ERROR: rs4.open sqlo_4 while not rs4.eof if cint(mid(rs_hardware("interfaceu"),1,len(rs4("cod_und"))))=cint(rs4("cod_und")) and cint(mid(rs_hardware("interfacej"),1,len(rs4("cod_jef"))))=cint(rs4("cod_jef")) and cint(mid(rs_hardware("interfaced"),1,len(rs4("cod_dpt"))))=cint(rs4("cod_dpt")) then % > <OPTION selected value=< % ERROR: =rs4("cod_und") % >!< % ERROR: =rs4("cod_jef") % >!< % ERROR: =rs4("cod_dpt") % >>(< % ERROR: =rs4("sig_und") % >) (< % ERROR: =rs4("sig_jef") % >) (< % ERROR: =rs4("sig_dpt") % >) < % ERROR: =mid(rs4("des_dpt"),1,30) % ></OPTION> < % ERROR: else % > <OPTION value=< % ERROR: =rs4("cod_und") % >!< % ERROR: =rs4("cod_jef") % >!< % ERROR: =rs4("cod_dpt") % >>(< % ERROR: =rs4("sig_und") % >) (< % ERROR: =rs4("sig_jef") % >) (< % ERROR: =rs4("sig_dpt") % >) < % ERROR: =mid(rs4("des_dpt"),1,30) % ></OPTION> < % ERROR: end if rs4.MoveNext wend rs4.Close % > </SELECT></td>