<% if Request.ServerVariables("REMOTE_ADDR") = "166.70.25.35" then imgLoc="10.108.108.199" else imgLoc="166.70.25.35" myDefCamPic = "webcam_default.gif" myConnSpeed = request("bw") myCamView = request("cam") if myCamView <> "ustream" then select case myCamView case "1" if Request.ServerVariables("REMOTE_ADDR") = "166.70.25.35" then imgLoc="10.108.108.225" imgPort = "8182" myCamLoc = "oneshotimage.jpg" myCamTitle = "Temple Room Tour View" myConnSpeedDefault=45 myConnSpeedHi=15 myConnSpeedLo=60 case "2" imgPort = "9091" myCamLoc = "templeroomview.jpg" myCamTitle = "Temple Room View 1" myConnSpeedDefault=5 myConnSpeedHi=5 myConnSpeedLo=10 case "3" imgPort = "9091" myCamLoc = "templeroomview2.jpg" myCamTitle = "Temple Room View 2" myConnSpeedDefault=5 myConnSpeedHi=5 myConnSpeedLo=10 case else if Request.ServerVariables("REMOTE_ADDR") = "166.70.25.35" then imgLoc="10.108.108.225" imgPort = "8182" myCamLoc = "oneshotimage.jpg" myCamTitle = "Temple Room Tour View" myConnSpeedDefault=45 myConnSpeedHi=15 myConnSpeedLo=45 end select if myConnSpeed="" then myConnSpeed=myConnSpeedDefault else myConnSpeed=request("bw") end if %> <%if myCamView <> "ustream" then%> <%end if%> <%if myCamView = "ustream" then%> <%else%> <%end if%>

[ Hi-Res Cam 1 ] [ Cam 2 ] [ Cam 3 ] [ UStream Live ]

<%if myConnSpeed = 10 then%>[ Hi Bandwidth ]<%else%>[ Lo Bandwidth ]<%end if%>

<%if myCamView = "ustream" then%>Free TV Show from Ustream<%else%> <%end if%>