誰可以幫我改一下這個東東?(編號:8091)

下面這個網頁程式碼有人可以幫我修改一下嗎?
第一:我在sql裡面已經把所有的會員都分級分好了,總共有三級,並留有一欄位是記錄分級的代碼。
第二:我想要讓會員登錄至此網頁的時候根據sql裡的代碼而讓他有權限的留在這地方,無此權限的到令一個網頁,以此類推.....也就是根據sql裡的等級記錄而分配到各個網頁裡去,各位高手可以幫幫我,我需要怎麼樣改呢?
<%  name=request.form("username")
pass= request.form("password")
  Set db = Server.CreateObject("ADODB.Connection")
  db.Open "DSN=**;uid=sa;pwd=;database=****"
 
  sql = "select * from **** where **** = '" & name & "'"
  sql = sql & " and ** = '" & pass & "'"
  set  rs = db.Execute(sql)
  if not rs.eof then %>
<html>
<head>
<title>新網頁1</title>
</head>
<body>
<form method="POST" action="test2.asp">
 <p><input type="hidden" name="name1" value="<% =name %>"> </p>
 <table width="75%" border="1" cellspacing="0" cellpadding="0" align="center">
  <tr bordercolor="#BEDEBE">
   <td colspan="2" height="30" bgcolor="#BEDEBE"> </td>
  </tr>
  <tr bordercolor="#BEDEBE" bgcolor="#E8FFE8">
   <td width="25%">主旨: </td>
   <td width="75%">
    <input type="text" name="sub" size="60">
   </td>
  </tr>
  <tr bordercolor="#BEDEBE" bgcolor="#E8FFE8">
   <td width="25%" valign="top">內容:</td>
   <td width="75%">
    <textarea rows="16" name="body1" cols="66"></textarea>
   </td>
  </tr>
  <tr bordercolor="#BEDEBE" bgcolor="#E8FFE8">
   <td width="25%">有效日期:</td>
   <td width="75%">
    <input type="text" name="date1" size="20" value=<%=date+15%>>
   </td>
  </tr>
  <tr bordercolor="#BEDEBE" bgcolor="#E8FFE8">
   <td width="25%"> </td>
   <td width="75%"> </td>
  </tr>
  <tr bordercolor="#BEDEBE" bgcolor="#E8FFE8">
   <td width="25%"> </td>
   <td width="75%">
    <input type="submit" value="**" name="B1">
   </td>
  </tr>
  <tr bordercolor="#BEDEBE">
   <td colspan="2" height="30" bgcolor="#BEDEBE">  </td>
  </tr>
 </table>
 <p>  </p>
 <p>  </p>
 <p>  </p>
 <p> </p>
</form>
</body>
</html>

 
 
 <% else
   response.write " ******"
 
  end if
%>