SLD [ Intro | Pubs | RunInfo | Workbook | Software | SLACVX | Search ]
<%sql = "SELECT s.sld_code,s.lname,s.fname,o.off_phone,o.off_bld,o.off_room_num,o.off_mailstop,a.sld_node,a.sld_userid,i.inst_name,i.inst_code,i.inst_dept,m.webphoto 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='"+Request.QueryString("ID")+"' AND 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 a.SLD_EMAIL='Y' AND o.off_mail='Y'" %>

<%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%>

SLD Collaborator - <%=rs.Fields("Fname").Value%> <%=rs.Fields("Lname").Value%>

Name <%=rs.Fields("Fname").Value%> <%=rs.Fields("Lname").Value%> <%If rs.Fields("WebPhoto").Value="Y" Then PicCode = Replace(rs.Fields("SLD_Code").Value,".","")%><%Else%>Sorry, no photo available.<%End If%>
Institution "><%=rs.Fields("Inst_Name").Value%><%If Not rs.Fields("Inst_Dept").Value="" Then%>">, <%=rs.Fields("Inst_Dept").Value%><%End If%>
Phone <%=rs.Fields("Off_Phone").Value%>
Office <%=rs.Fields("Off_Room_Num").Value%> <%=rs.Fields("Off_Bld").Value%>
Mail Stop <%=rs.Fields("Off_Mailstop").Value%>
E-Mail <%email=LCase(rs.Fields("SLD_Userid").Value+"@"+rs.Fields("SLD_Node"))%><%=email%>
<%ShiftCode = Replace(rs.Fields("SLD_Code").Value,".","@")%>Change shift password
Shift availability for this collaborator
Shifts assigned to this collaborator
Tapes '+ORDER+BY+TAPE">Tapes owned by this collaborator.

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