Sub DesignShow(imgname,width,height,sLink)
	if imgname = "" then exit sub

	if LCase(Right(imgname,4)) = ".swf" then	'Ç÷¡½¬ ÆÄÀÏÀÎ °æ¿ì
		Call flash_show(imgname,width,height)
	else
		Call img_show(imgname,width,height,sLink)
	end if
End Sub


Sub flash_show(flashname,width,height)
	Dim TmpsStr

              TmpsStr = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='" & width & "' height='" & height & "'>"
              TmpsStr = TmpsStr & "<param name=movie value='/shop/ShopImg/" & flashname & "'>"
              TmpsStr = TmpsStr & "<param name=quality value=high>"
              TmpsStr = TmpsStr & "<param name=wmode value=transparent>"
              TmpsStr = TmpsStr & "<embed src='/shop/ShopImg/" & flashname & "' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' wmode='transparent' width='" & width & "' height='" & height & "'>"
              TmpsStr = TmpsStr & "</embed></object>"

	document.write(TmpsStr)
End Sub

Sub img_show(imgname,width,height,sLink)
	Dim TmpsStr, TmpLink

	if sLink <> "" then 
		if Left(sLink,5) = "open;" then
			sLink = Right(sLink,Len(sLink)-5)
			TmpLink = "onclick=" & chr(34) & "window.open('" & sLink & "')" & chr(34) & " style='cursor:hand'"
		else
			TmpLink = "onclick=" & chr(34) & "window.location.href='" & sLink & "'" & chr(34) & " style='cursor:hand'"
		end if
	end if
	TmpsStr = TmpsStr & "<img src='/shop/ShopImg/" & imgname & "' width='" & width & "' height='" & height & "' " & TmpLink & ">"

	document.write(TmpsStr)
End Sub