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