<%@ Language=VBScript %> <% option Explicit %> <% Dim SKU, picnum dim pic SKU = Trim(Request.QueryString("sku")) picnum = Trim(Request("picnum")) pic = Trim(request("pic")) if picnum="" or isnull(picnum) then picnum = 1 end if %> <% '----------------------------- BEGIN - Full Size Image ------------------------------> %>

" %> <% Response.Write "" %>

	Close Window
<% if not isnull(SKU) and not isnull(picnum) then %> Navigate Pictures >>>> <% if isnull(request("pic")) or request("pic")="" then pic = 1 else pic = int(trim(request("pic"))) end if ' picture through arrow if int(pic)=1 then Response.Write "" else Response.Write "" end if Response.Write ""& pic &"/"& picnum &"" Response.Write "" %> Supersize Picture
<% 'dim j 'j=1 'do while not j > int(ImageNumber) 'Response.Write "" 'j = j + 1 'loop Response.Write "" Response.Write "

<%else%> <%end if%>

<% '----------------------------- END - Full Size Image ------------------------------> %>