获取每行最后一个不为空的列

sql1="select * from ems_dbxx"

Set rs1=Server.CreateObject("ADODB.RecordSet")

 rs1.Open sql1,Conn,1,2 

 if rs1.eof and rs1.bof then

 response.write"<script>alert('错误！');</script>" 

 else

 while not(rs1.eof)         

 for i=1 to 12  

 Conn.Execute("update ems_dbxx set dbxx_lastmonth='"&i&"' where dbxx_m"&i&" is not null")  

next

rs1.movenext        

wend

end if

response.Write"<script>alert('时间更新成功！');window.location='dbxx_edit.asp';//</script>" 

这段代码是对一张设备检修表操作，获取每台设备的最后一次检修时间，把最后一次检修的月份存入字段“dbxx_lastmonth”。这段代码是在一个网友的帮助呀写的，但是效率太慢，数据少的时候还行，上千台设备的时候就会提示：超过了脚本运行的最长时间。
怎么修改一下能提高运算的效率呢？？
------解决方案--------------------
又来了：

<%

dim n

sql1="select * from ems_dbxx"

Set rs1=Server.CreateObject("ADODB.RecordSet")

 rs1.Open sql1,Conn,1,3

 if rs1.eof and rs1.bof then

    response.write"<script>alert('错误！');</script>"

 else

     while not(rs1.eof)

         n=""

         for i=1 to 12

            if rs1("dbxx_m"&i)<>null then n=i

         next

         if n<>"" then

              rs1("dbxx_lastmonth")=n

              rs1.update

         end if

         rs1.movenext

     wend

end if

Rs1.Close:Set Rs1=Nothing

response.Write"<script>alert('时间更新成功！');window.location='dbxx_edit.asp';</script>"

%>