<%
newpass=Request.Form("NewPass")
'Response.Write Session("UserName")
dim strCon
	set Connect=Server.CreateObject("ADODB.connection")
	strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
	& Server.MapPath("database/users.mdb") _
	& ";User ID=;"
	Connect.ConnectionString = strCon
	if Connect.State=1 then Connect.Close 
	'Connect.Mode=3
	Connect.open
	set cmd=Server.CreateObject("ADODB.Command")
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * FROM user1 WHERE uname='" & Session("UserName") & "'", Connect, 2, 2
	
		  rs("pass") = newpass
          'rs("course_detail") = course_detail
          'rs("page") = page
		  rs.Update
        
        rs.Close
        Set rs = Nothing
	if error<>0 then
		Response.Redirect "ChangePassword.asp?err="&err.Description 
	else
		Response.Redirect "ChangePassword.asp?err=changed"   
	end if

%>