<% Dim sl_Images(10) adID = Request("id") sl_pause = Request("pause") sl_type = Request("type") If isNumeric(adID) then If Len(sl_pause) = 0 then sl_pause = 3000 If Not isNumeric(sl_pause) then sl_pause = 3000 If Not sl_type = "slide" AND NOT sl_type = "trans" AND NOT sl_type = "belt" AND NOT sl_type = "down" AND NOT sl_type="manual" then sl_type = "slide" set rs = objConn.Execute("SELECT images,subject FROM " & tablPfx & "Ads WHERE adID='" & adID & "';") If not rs.EOF then images = rs(0) subject = rs(1) %>
<%= strText_Home %>::<%= subject %>::<%= strText_SlideShow %>

<%= strText_SlidePhotoShow %> - <%= subject %>

<%= strText_ShowType %>: <% If Not sl_type = "manual" then If sl_type = "belt" then Response.Write "  " & strText_Speed & ": " Else Response.Write "  " & strText_Delay & ": " End If %> <% End If %>


<% adImgArray = Split(images, sf) imgArrayDim = UBound(adImgArray) - 1 For d = 0 to imgArrayDim adImg = Split(adImgArray(d), "|")(0) 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 Select Case sl_type Case "slide": Call SlideShow(sl_pause, sl_Images, maxWidth, maxHeight) Case "trans": Call TransShow(sl_pause, sl_Images, maxWidth, maxHeight) Case "belt": Call BeltShow(sl_pause, sl_Images, maxWidth, maxHeight) Case "down": Call DownShow(sl_pause, sl_Images, maxWidth, maxHeight) Case "manual": Call ManualShow(sl_pause, sl_Images, maxWidth, maxHeight) End Select %>
<% Else: msg = "

" & strText_AdNotFoundSL & "
" & msgBack End If rs.close Else: msg = "

" & strText_InvalidRequestList & "
" & msgBack End If Sub SlideShow(sl_pause, sl_Images, maxWidth, maxHeight) If isArray(sl_Images) then For I = 0 to Ubound(sl_Images) If Len(sl_Images(I)) > 0 then strImageBuild = strImageBuild & "dropimages[" & I & "]=" & chr(34) & upload & sl_Images(I) & chr(34) & vbcrLf Next %> <% Response.Write "
Powered by Dynamic Drive

" End If End Sub Sub TransShow(sl_pause, sl_Images, maxWidth, maxHeight) If isArray(sl_Images) then For I = 0 to Ubound(sl_Images) If Len(sl_Images(I)) > 0 then strImageBuild = strImageBuild & "slideshowcontent[" & I & "]=[""" & upload & sl_Images(I) & """, """", """"]" & vbcrLf Next %>
<% Response.Write "
Powered by Dynamic Drive

" End If End Sub Sub BeltShow(sl_pause, sl_Images, maxWidth, maxHeight) sl_pause = Left(CStr(sl_pause), Len(sl_pause) - 3) If isArray(sl_Images) then For I = 0 to Ubound(sl_Images) If Len(sl_Images(I)) > 0 then strImageBuild = strImageBuild & "leftrightslide[" & I & "]=''" & vbcrLf Next %> <% Response.Write "
Powered by Dynamic Drive

" End If End Sub Sub DownShow(sl_pause, sl_Images, maxWidth, maxHeight) If isArray(sl_Images) then For I = 0 to Ubound(sl_Images) If Len(sl_Images(I)) > 0 then strImageBuild = strImageBuild & "slideimages[" & I & "]=''" & vbcrLf Next %> <% Response.Write "
Powered by Dynamic Drive

" End If End Sub Sub ManualShow(sl_pause, 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 %>
<%= strText_ImageSL %> 1 <%= strText_of %> <%= J %>
   
<% Response.Write "
Powered by Dynamic Drive

" End If End Sub %>