要如何製作加入會員能夠修改自己的資料ㄋ

我登入會員ㄉ部分已經能夠修改資料
我要讓一加入會員ㄉ人就算登入可以立即修改資料
幫我看看哪裡要改過
我對程式不太行看不懂 Cry

<%
   id = request("mid")
   password = request("mpassword")

   if id<>"" then
      i=1
      sid=mid(id,1,1)
      do while sid<>""
         If ASC(sid) < 48 or ASC(sid) > 57 and ASC(sid) < 65 or ASC(sid) > 90 and ASC(sid) < 97 or ASC(sid) > 122 Then
            Response.Redirect "register.asp?meg=1"　'帳號不可使用特殊字元
         End If
            i=i+1
            sid=mid(id,i,1)
      loop
   end if

   if Password<>"" then
      i=1
      sPassword=mid(Password,1,1)
      do while sPassword<>""
         If ASC(sPassword) < 48 or ASC(sPassword) > 57 and ASC(sPassword) < 65 or ASC(sPassword) > 90 and ASC(sPassword) < 97 or ASC(Password) > 122 Then
            Response.Redirect "register.asp?meg=2" '密碼不可使用特殊字元
         End If
            i=i+1
            sPassword=mid(Password,i,1)
      loop
   end if


set rs = conn.Execute("select max(memnum) as maxmem from member")

if isnull(rs("maxmem")) then
   maxmem=1
else
   maxmem=rs("maxmem")+1
end if

'新增進資料庫
set rscheck=Server.CreateObject("ADODB.Recordset")
sqlcheck="select * from member where memid ='" & request("mid") & "'"
   　 rscheck.open sqlcheck,conn,3,3
   　 if rscheck.eof or rscheck.BOF　then

   　　　sqlnew="insert into member (memnum,mname,memid,mpassword,mail) values (" & maxmem &_
                  ",'" & request("mname") &"','" &request("mid") &_
                  "','"& request("mpassword") &_
                  "','"& request("mail") &"')"
　　　　Session("Memid") = objRS("Memid")
　　　　Session("membernum") = objRS("Memnum")這是有人叫我家ㄉ但我家ㄌ以後又不知道要幹麻應該還有別ㄉ地方要改能不能請看ㄉ董ㄉ人幫我一下哩

       　conn.Execute(sqlnew)
   　 else
   　　　response.redirect "register.asp?err=1"
   　 end if   　
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title></title>
<%
   Session("logmember") = Ucase(request("mid"))
   Response.Redirect "SQLInsert.asp"
%>
</head>

</html>