[ Intro | Pubs | RunInfo | Workbook | Software | SLACVX | Search ] |
<%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%>
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%> | |
<%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. |