Mucho Password <% if Request("pass")=1 then set rs = Server.CreateObject("ADODB.RECORDSET") slstr="SELECT userName, Password FROM UserTable WHERE userName=" & session("username") & ";" 'rs.open slstr ,conn,adOpenForwardOnly,adLockOptimistic rs.open slstr,conn, adOpenForwardOnly,adLockOptimistic if not rs.EOF then if UCASE(rs("Password")) = UCASE(request.Form("oldpassword")) then ustr="update UserTable set password='"& request.Form("password") &"' where userName=" & session("username") & ";" conn.execute(ustr) Response.Redirect("muchoinfo.asp") else Response.Write("Old Password is Incorrect") end if end if end if %> All Fields are Compulsory. Old Password: New Password: Confirm Password:           <% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.userpetName, PetTable.petName, UserPetTable.energylevel, PetTable.smallimg FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & "));",conn if not rsp.eof then %> " width="34" height="34"> Pet Name <%=rsp("userpetname")%> Pet Type <%=rsp("petname")%> Energy Level <%=rsp("energylevel")%> <%end if end if %>