Advertiser Disclosure

Random Ad in ASP Pages

Category:

ASP, HTML and XML

Type:

Difficulty:

Author:

Simon Nadar

Version Compatibility:

More information:

When an ASP page is refreshed the advertisement should be changed Randomly. To do a Random ad on the ASP page refresh, one ASP page and one Text file is required.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
None

Code:

The ASP Page (RandomAd.asp)

<%@ Language=VBScript %>
<HTML>
<HEAD>

<meta name="WT.qs_dlk" content="XzACw-A0YDSMo18yR4JyRQAAAA0"/>

<meta name="WT.qs_shmv" content="hv20200211-hartley.sf.quinstreet.net"/>

<meta name="inject_params" content="WT.qs_dlk=XzACw-A0YDSMo18yR4JyRQAAAA0&"/>

<script>!function(){if(!window.BOOMR||!window.BOOMR.version){var e,t,n,o=document.createElement("iframe");o.src="javascript:false",o.title="",o.role="presentation",(o.frameElement||o).style.cssText="width:0;height:0;border:0;display:none;",(n=document.getElementsByTagName("script")[0]).parentNode.insertBefore(o,n);try{t=o.contentWindow.document}catch(n){e=document.domain,o.src="javascript:var d=document.open();d.domain='"+e+"';void(0);",t=o.contentWindow.document}t.open()._l=function(){var t=this.createElement("script");e&&(this.domain=e),t.id="boomr-if-as",t.src="/imageserver/common/sg/1.0/sg.min.js",BOOMR_lstart=(new Date).getTime(),this.body.appendChild(t)},t.write('<body onload="document._l();">'),t.close()}}();</script>
<script>
                document.cookie = 'inject_params=WT.qs_dlk=XzACw-A0YDSMo18yR4JyRQAAAA0&; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
                document.cookie = 'WMUUID=XzACw-A0YDSMo18yR4JyRQAAAA0; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
            </script>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<script>
    window.webtrendsAsyncInit=function(){
        var dcs=new Webtrends.dcs().init({
            dcsid:"dcszmx810000004jhhhvshyva_9q4y",
            domain:"www.qsstats.com",
            timezone:-8,
            i18n:true,
            onsitedoms:"freevbcode.com",
            fpcdom:".freevbcode.com",
            plugins:{
                //hm:{src:"//s.webtrends.com/js/webtrends.hm.js"}
            }
            }).track();
    };
    (function(){
        var s=document.createElement("script"); s.async=true; s.src="/imageserver/common/v10/webtrends.min.js";    
        var s2=document.getElementsByTagName("script")[0]; s2.parentNode.insertBefore(s,s2);
    }());
    </script>
    <noscript><img alt="dcsimg" id="dcsimg" width="1" height="1" src="//www.qsstats.com/dcszmx810000004jhhhvshyva_9q4y/njs.gif?dcsuri=/index.php/ShowCode.asp&WT.js=No&WT.tv=10.4.1&dcssip=www.freevbcode.com&WT.qs_dlk=XzACw-A0YDSMo18yR4JyRQAAAA0&"/></noscript>
</head>
<BODY bgcolor=Thistle>

<%Set ad = Server.CreateObject("MSWC.AdRotator")%>
<center><%= ad.GetAdvertisement("RandomAd.txt") %></center>

</body>
</html>

The Text File (RandomAd.txt)

REDIRECT Adredir.asp
WIDTH 500
HEIGHT 60
BORDER 0
*
images/First_Ad.gif
http://www.site1.com 
The Systems Company
40
images/Second_Ad.gif
http://www.site2.com
The Search Site
20
images/Third_Ad.gif
http://www.site3.com
Manage Your Calendar
40

Place the above two files in your project directory and the image files in the "images" folder in your project.