<% '' /** '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Script Name: screenad.js '' '' Description: Manipulate the Flash Object and Display Big Ads '' '' Author: Pablo Viquez Rogers '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Call: ' ' '' **/ Option Explicit On Error Resume Next Dim intAffid, intFrom, intSub, intTop, intLeft intAffid = Request.QueryString("affid") intFrom = Request.QueryString("from") intSub = Request.QueryString("sub") intTop = Request.QueryString("top") intLeft = Request.QueryString("left") If Len(intAffid) = 0 Or Not IsNumeric(intAffid) Then intAffid = 0 End If If Len(intFrom) = 0 Or Not IsNumeric(intFrom) Then intFrom = 0 End If If Len(intSub) = 0 Or Not IsNumeric(intSub) Then intSub = 0 End If If Len(intTop) = 0 Or Not IsNumeric(intTop) Then intTop = 50 End If If Len(intLeft) = 0 Or Not IsNumeric(intLeft) Then intLeft = 50 End If %> var GObjLoaded = false;var GDivLoaded = false;var GDivIntLeft = <%=intLeft%>;var GDivIntTop = <%=intTop%>;var SWF_AdW = 360;var SWF_AdH = 510;var SWF_AdName = "vm_bunny.swf";var SWF_AdPath = "http://www.vegasmagic.com/ad/" + SWF_AdName;var GURL_To = "http://www.vegasmagic.com/remote/aiddownload.asp";var GintAffidId = <%=intAffid%>;var GintFromId = <%=intFrom%>;var GintSubId = <%=intSub%>;var GBolPlaying = false;var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;function SWF_Ad_DoFSCommand(command, args){var SWF_AdObj = InternetExplorer ? SWF_Ad : document.SWF_Ad;if(command == "window" && args == "open") GET_SWFClick();else{StopSWF_Ad();}}if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1) {document.write('