Skip to content

Fine Jewelry - Sale 2510 - Lot 42

 

Lot 42
Three Pieces of Sterling Silver Jewelry, a Mexican silver brooch, Maricela, and set of fur clips, together with a pair of leaf earclips, N.E. From, Denmark.
Estimate $75-125
Unsold
Inquiry Back to Search Results

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