授权的问题

<%   
    Dim   cnt   
    cnt   =   0   
    Set   rs   =   Conn.Execute("Select   *   From   users   Order   by   Email")   
        
    Do   While   Not   rs.Eof   
        cnt   =   cnt   +   1   
  %>   
  <tr>   
  <td><%=rs("Email")%></td>   
  <td><%=rs("userName")%></td>   
  <td>   <%if   rs("Sex")=0   then%>男<%else%>女<%end   if%></td>   
  <td><%=rs("Telephone")%></td>   
  <td   align="center"><input   type="button"   value="Confirm"   name="update"   ></td>   
  <td   align="center"><a   href=UserDelt.asp?userid=<%=rs("Email")%>   >删除</a></td>   
  </tr>   
   
  <%   
          rs.MoveNext   
      Loop   
      If   cnt=0   Then   
  Response.Write   "<tr   align='center'><td   colspan=5><font   color=red>目前还没有用户记录</font></td></tr>"   
      End   If   
  %>   
  </table>   
  <SCRIPT   LANGUAGE="VBSCRIPT">   
  SUB   update_click()   
          dim   rsEmail   
          rsEmail=rs("Email")   
          sql1="update   users   set   c   where   Email=rsEmail>"     
          conn.execute(sql1)   
          rs.Refresh   
          if   err.number=0   then   
              msgbox   "此用户授权成功!",,"提示窗口"   
          end   if   
  END   SUB   
  </SCRIPT>   
   
  对SCRIPT不熟,就有个问题script能不能继承前面的数据,看了个列子,需要这样写   
  rds1.Server="http://<%=request.servervariables("server_name")%>"   
  rds1.C   
  那就是重新打开连接,我该怎么改????