can any body help me in updation of rows in asp with vbscript
<select name="vopenflg <%=R("top_id"%>">
<%If IsEmpty(vopenflg) or vopenflg = 0 Then%>
<option value=" " selected>Normal</option>
<option value="0">Abuse</option>
<option value="1">clsoe</option>
<%Elseif vopenflg =1 Then%>
<option value=" " >Normal</option>
<option value="0" selected>Abuse</option>
<option value="1">clsoe</option>
<%Elseif vopenflg =2 Then%>
<option value=" " >Normal</option>
<option value="0" >Abuse</option>
<option value="1" selected>clsoe</option>
<%End If%>
</select>
<% R.close
If Not IsEmpty(Request.Form("submit") then
vopenflg = Request.Form("vopenflg"
vopenflg=trim(vopenflg)
conn.close
conn.Mode = adModeReadWrite
conn.open
R.open "select top_id,open_flg from topmaster ",conn, adOpenStatic, adLockOptimistic, adCmdText
if request.QueryString("vopenflg"& R("top_id")<>"" then
R("open_flg"=vopenflg
R.update
R.Close
conn.close
end if
end if
end if
%>


jha