%@LANGUAGE="VBSCRIPT"%> <% set VacationStatus = Server.CreateObject("ADODB.Recordset") VacationStatus.ActiveConnection = "dsn=MG;uid=Admin;pwd=4236;" VacationStatus.Source = "SELECT * FROM MemberInfo WHERE Id = 1" VacationStatus.CursorType = 0 VacationStatus.CursorLocation = 2 VacationStatus.LockType = 3 VacationStatus.Open VacationStatus_numRows = 0 %> <% SQL = "select MemberInfo.*, RankName, DepartmentName, DivisionName from MemberInfo, Rank, Departments, Division where MemberInfo.ID = " & Session("ID") & " AND Memberinfo.RankID = Rank.ID AND MemberInfo.DepartmentID = Departments.ID AND MemberInfo.DivisionID = Division.ID" dbstart_temp set RS = Conn.execute(SQL) ID = RS("ID") UserName = RS("UserName") Password = RS("Password") CallSign = RS("CallSign") RankName = RS("RankName") DateAdded = RS("DateAdded") Department = RS("DepartmentID") Division = RS("DivisionID") Name = RS("Name") Age = RS("Age") if Age = 0 then Age = "" end if Gender = RS("Gender") HomePage = RS("HomePage") Email = RS("Email") ICQ = RS("ICQ") if ICQ = -1 then ICQ = "unavailable" end if PicURL = RS("PicURL") VacationStatus = RS("VacationStatus") dbclose %>
M E M B E R I N F O R M A T I O N |