hello frainds
where is the not report any error but not update any row and when remove the loop then one one record is updated
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
%>

__________________
sanjeev

Hi
plz try this one:
<%
if (request("submit"))<>"" then
  vFlag=Trim(Request("vopneflg"))
  updateStr="UPDATE topmaster set open_flg='"&Trim(vFlag)&"'"
  conn.execute(updateStr)
end if
%>

Muthu

thanks for reply but soryy this is some response is taking if any open_flg is set 0,1, 2 then it remove all value from table but not insert any value which is select 0, 1, 2 plz

sanjeev

hello this code is update all record from table so how can update only selected rows from table records. i am using pagingnation and show one record on page if more then one record is show on page then multiple oledb error so help plz
[]code] code is here[/code]
 <%conn.close
  If Not IsEmpty(Request.Form("submit")) then
  vopenflg = Request.Form("vopenflg")
  vopenflg=trim(vopenflg)
  conn.Mode = adModeReadWrite
  conn.open
  R1.open "Select open_flg from topmaster ", conn, adOpenStatic, adLockOptimistic, adCmdText
  R1("open_flg")=vopenflg
  do while not R1.eof
  R1.moveNext
  loop
  R1.update
  R1.Close
  conn.close
  end if
%>

sanjeev