<%@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ëtälü§ Grävï§: Member Information
     M E M B E R   I N F O R M A T I O N

 General Info
  Callsign:  
  Added:   <%=DateAdded%>    MemID: <%=ID%>
  Rank:   <%=RankName%>
  Departments:  
  Division:  
  Real Name:  
  Age:  
  Gender:  
  Home Page:  
  E-mail:  
  ICQ Number:  
  UserName:  
  Password:  
  Vacation Mode:   > (feature currently unavailable)