<% On Error Goto 0 dstyle = Application("Classify_Main_Config" & strUnique)(30) %> <%= strText_ViewImages %> <% Dim sl_Images(10), subject css = replace(dstyle, ".css", "") If Request.Querystring.Count = 1 then showPic = upload & Request("image") %>
<%= strText_AttachedPhoto %>
<% ElseIf Request.Querystring.Count = 2 then adID = Request.Querystring(2) If isNumeric(adID) And Len(CStr(adID)) > 0 then set rs = objConn.Execute("SELECT images,subject FROM " & tablPfx & "Ads WHERE adID='" & adID & "';") If not rs.EOF then images = rs(0) subject = rs(1) adImgArray = Split(images, sf) imgArrayDim = UBound(adImgArray) - 1 For d = 0 to imgArrayDim adImg = Split(adImgArray(d), "|")(0) If Request.Querystring(1) = adImg then sl_start = d adSize = Split(adImgArray(d), "|")(1) w = CLng(Split(adSize, "x")(0)) h = CLng(Split(adSize, "x")(1)) If d = 0 then maxWidth = w maxHeight = h End If If w > maxWidth then maxWidth = w If h > maxHeight then maxHeight = h sl_Images(d) = adImg Next If Len(CStr(sl_start)) = 0 then sl_start = 0 Call ManualShow(sl_start, sl_Images, maxWidth, maxHeight) End If rs.close End If End If Sub ManualShow(sl_start, sl_Images, maxWidth, maxHeight) If isArray(sl_Images) then J = 0 For I = 0 to Ubound(sl_Images) If Len(sl_Images(I)) > 0 then strImageBuild = strImageBuild & "photos[" & I & "]=" & chr(34) & upload & sl_Images(I) & chr(34) & vbcrLf J = J + 1 End If Next %>
<%= subject %>
<%= strText_ImageSL %> 1 <%= strText_of %> <%= J %>
   
<% End If End Sub %>