Canon EOS Rebel Digital

<% UserAgent = Request.ServerVariables("HTTP_USER_AGENT") rootDir = "/" cssDir = rootDir & ".css/" imgDir = rootDir & "v_img/" strWidth = "400" strHeight = "300" dlStr = "

" noStr = "

" %><% cssFileName(UserAgent) If(Session("plFm")="mac") Then currentPlatform = "_mac" strCodeBase = "" ElseIf(Session("plFm")="win") Then currentPlatform = "" strCodeBase = " codebase='/plugins/windows/ie/Cult3D_IE_5.3.0.228.cab#version=5,3,0,228'" Else currentPlatform = "" strCodeBase = " codebase='/plugins/windows/ie/Cult3D_IE_5.3.0.228.cab#version=5,3,0,228'" End If strSRC = "eos_rebel.co" strName = "CultObject" strNameNN = "CultEmbed" objStr = "

" %> Canon EOS Rebel Digital <% If(Session("plFm")="win") Then If(InStr(Session("ua"),"ie")>0) Then %> <% ElseIf(InStr(Session("ua"),"nn6")>0 OR InStr(Session("ua"),"nn7")>0) Then %> <% End If ElseIf(Session("plFm")="mac") Then If(InStr(Session("ua"),"ie")>0) Then %> <% End If End If %>


	$Open\Close Flash$

<% If(Session("plFm")="win")Then If(InStr(Session("ua"),"ie")>0) Then response.write objStr ElseIf(InStr(Session("ua"),"nn4")>0) Then %><% ElseIf(InStr(Session("ua"),"nn")>0) Then %><% Else response.write dlStr End If ElseIf(Session("plFm")="mac")Then If((InStr(Session("ua"),"ie")>0) OR (InStr(Session("ua"),"nn")>0)) Then %><% Else response.write objStr End If End If %>