% Dim imgArray(10,1), iw, ih, iwidth, iheight, isize, isizekb, isASPJpeg, Jpeg iwidth = Application("Classify_Main_Config" & strUnique)(23) iheight = Application("Classify_Main_Config" & strUnique)(24) isize = Application("Classify_Main_Config" & strUnique)(25) isizekb = isize*1000 On Error Resume Next Set Jpeg = Server.CreateObject("Persits.Jpeg") If err.number = 0 then If CDate(Jpeg.Expires) > Now then isASPJpeg = True End If sendImage Sub sendImage() Response.Write "
" End Sub On Error Goto 0 %>