<% if Session("UserName")="" then %>

You are not authorised User. Please login

<% else %>

Welcome <%=Session("UserName")%> Home || Change Passowrd Logout <% dim strCon set Connect=Server.CreateObject("ADODB.connection") 'strcon = "provider=Microsoft.Jet.Oledb.4.0;data source=E:\Websites\LYP\database\YellowPages_MSAccess.mdb" 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.open set rst = Server.CreateObject("ADODB.Recordset") SQL ="SELECT * FROM user1 where uname='" & Session("UserName") & "';" if rst.State=1 then rst.Close rst.Open SQL, Connect, 3, 1, 1 %> Enter Old Password "> Enter Password Confirm Password <% err1=Request.QueryString("err") if err1="changed" then Response.Write "Pasword Changed" else Response.Write err1 end if %>

<% end if %>