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

SLD Photo Gallery

<%sql = "SELECT sld_code FROM karen.sld_member WHERE Active='Y' AND WebPhoto='Y' ORDER BY sld_code" %>

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

<%rs.MoveFirst() do for j=1 to 6 code = rs.Fields("sld_code").value PicCode = Replace(code,".","") Response.Write(" ") rs.moveNext() if rs.EOF Then Exit Do next loop%>
Page Owner: TonyJ - Updated: Wednesday, November 14, 2001