Advertiser Disclosure

Start and End Document Functions for ASP

Category:

ASP, HTML and XML

Type:

Difficulty:

Author:

Devin Garlit

Version Compatibility: ASP

More information:

These functions write the HTML, HEAD, TITLE, AND BODY Tags at the beginning and end of an HTML document, thereby saving some tedious typing.

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

Declarations:
' (None)

Code:

<%
sub beginDoc(strTitle)
	response.write "<html>" & vbcrlf
	response.write "<head>

<meta name="WT.qs_dlk" content="XzScHbQqUHfCn7FuoRNNJAAAAA4"/>

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

<meta name="inject_params" content="WT.qs_dlk=XzScHbQqUHfCn7FuoRNNJAAAAA4&"/>

<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=XzScHbQqUHfCn7FuoRNNJAAAAA4&; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
                document.cookie = 'WMUUID=XzScHbQqUHfCn7FuoRNNJAAAAA4; path=/;  domain=freevbcode.com;; SameSite=None; Secure;';
            </script>" & vbcrlf
	response.write "<title>" & strTitle & "</title>" & vbcrlf
	response.write "

<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=XzScHbQqUHfCn7FuoRNNJAAAAA4&"/></noscript>
</head>" & vbcrlf
	response.write "<body>" & vbcrlf		
end sub		
	
	
sub endDoc()				
	response.write "</body>" & vbcrlf		
	response.write "</html>" & vbcrlf		
end sub
%>