Models by ELRO

<% UserAgent = Request.ServerVariables("HTTP_USER_AGENT") rootDir = "/" cssDir = rootDir & ".css/" imgDir = rootDir & "v_img/" 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 = "ssc1.co" ' strWidth = "400" ' strHeight = "300" strWidth = "400" strHeight = "400" strName = "CultObject" strName = "CuldEmbed" objStr = "

" %> Models by ELRO <% 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 %>

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