<% '-------------------------------------------------------- ' Configurations for this page '-------------------------------------------------------- myPageName = "viewImages.asp" '-------------------------------------------------------- log_Page(myPageName) displayHeader() %> <% if db_qdSelect("SELECT security_to_view_images, ID FROM job WHERE ID="&request("job_id"),"security_to_view_images") > Session("security_level") then displayListOnly() else displayViewImages() end if displayFooter() function displayViewImages() jobName = db_qdSelect("SELECT job, id FROM job WHERE id="&request("job_id"),"job") sqlQuery ="SELECT images.* FROM images WHERE job_id = " & request("job_id") & " ORDER BY order_by ASC" Set objRS = objConn.Execute(sqlQuery) If not objRS.EOF Then %>

<%=JobName %>

 To view TIF files you must have Java installed. Also, it is recommended that you add us to your trusted sites list, especially if you are using Windows XP or later.
<% stripeFlag = 0 do while not objRS.EOF if objRS("color_id") = "0" or objRS("color_id") = "" or objRS("color_id") = 0 then if (stripeFlag mod 2)=1 then curStripe = "rowMyStripes2" else curStripe = "rowMyStripes1" end if %> <% else if (stripeFlag mod 2)=1 then %> _hover';" onMouseOut="onMouseOut=this.className='imageColor_<%=objRS("color_id")%>_2';"> <% curStripe = "rowMyStripes2" else curStripe = "rowMyStripes1" %> _hover';" onMouseOut="onMouseOut=this.className='imageColor_<%=objRS("color_id")%>_1';"> <% end if end if %> <% stripeFlag = stripeFlag + 1 objRS.MoveNext loop %>
# Sheet # Sheet Name Image Name (Click To View)
File Size / Approx. Download Time (56k Modem)		 Download
(if available)
<%=objRS("image_number")%> <%=objRS("sheet_number")%> <%=objRS("sheet_name")%> <% filename = lcase(Base64decode(objRS("filename"))) ext = fileExtension(filename) select case ext case "tif" %>&site_id=<%=CONST_siteId%>')"><%=filename%><% case "pdf" %>" target="_blank"><%=fileName%><% case else %>&site_id=<%=CONST_siteId%>')"><%=filename%><% end select response.Write("
") FileSize = generic_GetFileSize(CONST_imageLocation & objRS("Directory_Name") & "\" & objRS("filename")) FileTime = (FileSize/1024) / 7.168 ' Magic number for 56K Modem FileSize = Int(FileSize/1024) & " Kb" hourmod = FileTime mod 3600 thour = int(FileTime / 3600) tminute = int(hourmod / 60) tsecond = int(FileTime mod 60) Response.Write FileSize & " / " if thour >0 then response.write thour & "h " if tminute >0 then response.write tminute & "m " if tsecond >0 then response.write tsecond & "s " %> 		<% if objRS("allow_download") = "-1" then %>">Download<% end if %>
<% End If end function function displayListOnly() jobName = db_qdSelect("SELECT Job, ID FROM job WHERE ID="&request("job_id"),"Job") sqlQuery ="SELECT * FROM images WHERE Job_ID = " & request("job_id") & " ORDER BY Order_By ASC" Set objRS = objConn.Execute(sqlQuery) If not objRS.EOF Then Response.write "

" & JobName & "

" & vbcrlf dim headerArray(2) dim jsRowArray(2) dim displayArray(2,5,1) headerArray(0) = "#" headerArray(1) = "Sheet #" headerArray(2) = "Sheet Name" ' headerArray(3) = "Image Name (Click To View)
File Size / Approx. Download Time (56k Modem)" ' headerArray(4) = "Download
(if available)" displayArray(0,0,0) = "image_number" displayArray(0,0,1) = "field" displayArray(1,0,0) = "sheet_number" displayArray(1,0,1) = "field" displayArray(2,0,0) = "sheet_name" displayArray(2,0,1) = "field" ' displayArray(3,0,0) = "imageLink" ' displayArray(3,0,1) = "imageLink" ' displayArray(3,1,0) = "filesize" ' displayArray(3,1,1) = "filesize" ' displayArray(4,0,0) = "download" ' displayArray(4,0,1) = "download" generic_selectionList objRS, displayArray, headerArray, jsRowArray End If end function %>