Skip to content

No catalogue entry available

No Catalogue entry available for this item

Back

Departments

Latest News

Copyright © 1999- SKINNER, INC. All rights reserved.

rray( retvalImg ) Then loadImageFiles = retvalImg Exit Function End If loadImageFiles = Array() 'Otherwise just check the filesystem for the default image to handle real-time updates Dim path, fs path = s_folder & "\" & s_refno & ".jpg" set fs=Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists(path) Then 'ReDim retvalImg(1) 'retvalImg(1) = s_refno & ".jpg" loadImageFiles = Array( s_refno & ".jpg" ) End If End Function ' 'Function loadImageFilesFromDb 'Check db for list of files for this refno 'We're doing this because Mosso disk access is painfully slow, and page load time > 5sec if we search the filesystem 'JJS 20090701 Function loadImageFilesFromDb( s_refno ) On Error Resume Next Dim refno refno = Trim(s_refno) If (refno= "") Then Exit Function End If Dim sql sql = "select filename from catalogue_images where filename like '" + refno +"%' AND (NOT filename like '%tn%') AND `deleted` =0 " Dim conn, cmd, rs, retval retval = "" Set conn = Server.CreateObject("ADODB.Connection") conn.open ( loggingDBConnectionString ) Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText= sql Set rs = cmd.Execute Dim rows Dim files(), r If rs.EOF Then Exit Function Else rows = rs.GetRows(,0,"filename") End If Redim files(UBound(rows, 2)) For r = 0 to UBound(rows, 2) files(r) = rows(0,r) Next loadImageFilesFromDb = files End Function %>