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