<% Dim zobjRS,zstrSQL,z1_Email zstrSQL = "SELECT userInfo.Email FROM userInfo WHERE userInfo.UserID LIKE " & z1_UserID Set zobjRS = Server.CreateObject("ADODB.Recordset") zobjRS.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText z1_Email = zobjRS("Email") zobjRS.Close Set zobjRS = Nothing zobjConn.Close Set zobjConn = Nothing %> kaos news - update area
your current login details are:
username <%=z1_Username%>
email address <%=z1_Email%>
user id <%=z1_UserID%>
access level <%=z1_AccessLevel%>

any news post you submit will contain this information.
access level <% Select Case z1_AccessLevel Case 0 Response.Write z1_AccessLevel & " is guest level access - you may post news but not modify the database." Case 1 Response.Write z1_AccessLevel & " is normal user access - you may post news and modify news or comments." Case 2 Response.Write z1_AccessLevel & " is admin level access - you may post news, modify news/comments and add/edit users." Case 3 Response.Write z1_AccessLevel & " is master level access - full permissions to modify script functions." End Select %>

if you would like to logout of the system; click here.
if you would like to alter details in your profile; click here.