<%
if session("userid")="" then
response.Redirect("login.asp?loginmsg=Please enter user and password")
end if
submit=request("submit")
if submit<>"" then
%>
<%
newpwd=Request("newpwd")
response.Write(newpwd)
sql="Update admin set pwd='" & newpwd & "'"
cn.Execute(sql)
set rs=nothing
cn.Close
set cn=nothing
Response.Redirect "admin.asp?msg=3"
end if
%>
Admin Area
