SLD [ Intro | Pubs | RunInfo | Workbook | Software | SLACVX | Search ]

SLD Collaborators

Do you know what someone looks like, but not who they are? Find them in the SLD Photo Gallery.

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

<%sqlX = "SELECT s.sld_code,s.lname,s.fname,o.off_phone,a.sld_node,a.sld_userid,i.inst_name,i.inst_code FROM karen.sld_master s,karen.sld_member m,karen.sld_collaborator c,karen.sld_institution i,karen.sld_comp_accts a,karen.sld_office_address o WHERE s.sld_code=m.sld_code AND s.sld_code=c.sld_code AND s.sld_code=a.sld_per_code AND s.sld_code=o.sld_code AND c.inst_code=i.inst_code AND c.current_inst='Y' AND s.Involvement='MEMBER' AND m.Active='Y' AND a.SLD_EMAIL='Y' AND o.off_mail='Y' ORDER BY s.Lname" sql = "SELECT s.sld_code,s.lname,s.fname,o.off_phone, " &_ " a.sld_node,a.sld_userid,i.inst_name,i.inst_code " &_ " FROM karen.sld_master s,karen.sld_member m,karen.sld_collaborator c," &_ " karen.sld_institution i,karen.sld_comp_accts a,karen.sld_office_address o " &_ " WHERE s.sld_code=m.sld_code AND s.sld_code=c.sld_code AND s.sld_code=a.sld_per_code " &_ " AND s.sld_code=o.sld_code AND c.inst_code=i.inst_code " &_ " AND c.current_inst='Y' and (active_end_date > '01-jan=1998' or active_end_date is null) " &_ " AND s.Involvement='MEMBER' AND a.SLD_EMAIL='Y' AND o.off_mail='Y' ORDER BY s.Lname" %>

<%Session.timeout = 5 If IsObject(Session("Oracle_conn")) Then Set conn = Session("Oracle_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "SLAC-Unix-Oracle","sldmem","RN9<32#KN" Set Session("Oracle_conn") = conn End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3%>

<% first = "@" table = false rs.MoveFirst() Do Until rs.EOF email=LCase(rs.Fields("SLD_Userid").Value+"@"+rs.Fields("SLD_Node")) lname = rs.Fields("Lname").Value f = Left(lname,1) if f<>first Then first = f if table Then response.write("") table = true %> <%end if%> <% rs.MoveNext() Loop %>
<%=first %> Name Phone E-Mail Institute
  "><%=rs.Fields("Fname").Value%>  <%=rs.Fields("Lname").Value%> <%=rs.Fields("Off_Phone").Value%> <%=email%> "><%=rs.Fields("Inst_Name").Value%>

Page Owner: TonyJ - Updated: Wednesday, November 14, 2001