%@ Language=VBScript %> <% set Conn = server.CreateObject("ADODB.Connection") Conn.Open Application("ConnectionString") set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = Conn SQL = "select * from MemberInfo where id = " & Session("id") cmd.CommandText = SQL set RS = cmd.Execute UserName = RS("UserName") Password = RS("Password") CallSign = RS("CallSign") Department = RS("Department") Division = RS("Division") Name = RS("Name") Age = RS("Age") Gender = RS("Gender") HomePage = RS("HomePage") Email = RS("Email") ICQ = RS("ICQ") PicURL = RS("PicURL") GamingExperience = RS("GamingExperience") Comments = RS("Comments") Conn.Close %>
Member Information |