<% cssFileName(UserAgent) strID = Request.QueryString("id") If (strID="" OR fncIsNumber(strID) = 0) Then Response.Redirect "template.html?id=1" End IF If (strID<(arrPepsiObjects.Count-(arrPepsiObjects.Count-1)) OR strID<0) Then Response.Redirect "template.html?id=1" End If If(int(strID)>int(arrPepsiObjects.Count)) Then ' response.write arrPepsiObjects.Count Response.Redirect "template.html?id=1" End If If(Session("plFm")="mac") Then currentPlatform = "_mac" strCodeBase = "" Else currentPlatform = "" ' VMPMinimalInstall_3_0_12_9.exe strCodeBase = " codebase='http://components.metastream.com/MTSInstallers/MetaStream3.cab#Version=3,0,8,2,01'" ' strCodeBase = " codebase='http://components.metastream.com/MTSInstallers/MetaStream3.cab#Version=3,0,2,62'" End If arrPepsiObjectsKeys = arrPepsiObjects.Keys arrPepsiObjectsItems = arrPepsiObjects.Items For i=0 To arrPepsiObjects.Count-1 multipleItemsArray = Split(arrPepsiObjectsItems(i), arraySeparator, -1, 1) floatingName = multipleItemsArray(0) floatingPageTitle = multipleItemsArray(1) floatingPageObject = multipleItemsArray(2) If(strID=arrPepsiObjectsKeys(i)) Then strPageTitle = floatingPageTitle strMTX = floatingPageObject End If Next strKEY = "http://www.360ok.com/key/key.txt" strWidth = "400" strHeight = "300" strName = "MetaStreamCtl" objStr = "" %> Models by ELRO | <%=strPageTitle%> <% If(Session("plFm")="mac") Then %><% End If %>
<% If(Session("plFm")="mac") Then %><% End If %>
Action Revert
<% If(Session("plFm") = "mac") Then %><% ElseIf (Instr(Session("ua"),"o") OR Instr(Session("ua"),"nn6")) Then Response.Write noStr ElseIf(Instr(Session("ua"),"nn7")>0) Then %><% Else Response.Write objStr End If %>