WELCOME <%=UCase(session("name"))%>
YOU ARE <% If session("level")=1 then Response.write "ADMINISTRATOR" else Response.Write "USER" End If %> IN THIS PAGE.

 







<% If session("level")=1 then %> <% Response.Redirect "adminpage.asp" %> <% End If %> <% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from author", ObjConn, 3,3 %>
Name <%=LCase(session("name"))%>
Gender <%=LCase(session("gender"))%>
Email <%=LCase(session("email"))%>
Address <%=LCase(session("address"))%>
City <%=LCase(session("city"))%>
State <%=LCase(session("state"))%>
Zip <%=LCase(session("zip"))%>
Country <%=LCase(session("country"))%>
Status <%=LCase(session("status"))%>
Occupation <%=LCase(session("occupation"))%>