<!-- #include file="admin.asp" -->
<%
	dim id
	id = session("id")
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "select * from admin where id = '"&id&"'"
	rs.open sql,conn,1,3

	rs("id") = request("id")
	rs("password") = request("password")
	rs.update
	
	rs.close
	conn.close
	set rs = nothing
	set conn = nothing

	response.redirect "changepsw.asp"	
%>