<%
On Error Resume Next

Dim intWidth, intHeight, strMovie, strPath, strClickLink
Dim intAffid, intSubAd
Dim intBannerID

strPath      = "http://www.betmaxcasino.com/banners/"
strClickLink = "http://www.betmaxcasino.com/affiliates/aiddownload.asp"
strMovie     = Trim(Request.QueryString("admov")) & ".swf"
intWidth     = Trim(Request.QueryString("w"))
intHeight    = Trim(Request.QueryString("h"))
intAffid	 = Trim(Request.QueryString("affid"))
intSubAd     = Trim(Request.QueryString("sub"))

''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Affiliates
''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Len(intAffid) > 0 Then
	If Not IsNumeric(intAffid) Then
		intAffid = "0"
	End If
Else
	intAffid = "0"	
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Subs
''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Len(intSubAd) > 0 Then
	If Not IsNumeric(intSubAd) Then
		intSubAd = "0"
	End If
Else
	intSubAd = "0"	
End If
%>
var _gWidth   = <%=intWidth%>;
var _gHeight  = <%=intHeight%>;
var _urlPath  = "<%=strPath%>";
var _strMovie = "<%=strMovie%>";
var _urlClick = "<%=strClickLink%>";
var _affId	  = <%=intAffid%>;
var _affIdSub = <%=intSubAd%>;
var _bolClick = true;

var isInternetExplorer = navigator.appName.indexOf("Microsoft") != -1;

function ad_BannerBM_DoFSCommand(command, args) {
	var ad_BannerBMObj = isInternetExplorer ? document.all.ad_BannerBM : document.ad_BannerBM;
	var strQuery = "";
	strQuery = (_affId > 0) ? "?affid=" + _affId : "";
	strQuery += (_affIdSub > 0) ? ((_affId > 0) ? "&sub=" + _affIdSub : "?sub=" + _affIdSub) : "";
	if(_bolClick){
		_bolClick = false;
		window.open(_urlClick + strQuery);
		setTimeout("_bolClick = true;",300);
	}		
}

if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1) {
	document.write('<script language=\"VBScript\"\>\n');
	document.write('On Error Resume Next\n');
	document.write('Sub ad_BannerBM_FSCommand(ByVal command, ByVal args)\n');
	document.write('	Call ad_BannerBM_DoFSCommand(command, args)\n');
	document.write('End Sub\n');
	document.write('</script\>\n');
}

//function LoadBanner(){
	document.write('<obj'+'ect classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" id="ad_BannerBM" width="'+_gWidth+'" height="'+_gHeight+'" align="middle">');
	document.write('<param name="movie" value="' + _urlPath + _strMovie + '" />');
	document.write('<param name="quality" value="high" />');
	document.write('<param name="bgcolor" value="#000066" />');
	document.write('<emb'+'ed src="' + _urlPath + _strMovie + '" quality="high" bgcolor="#000066" width="'+_gWidth+'" height="'+_gHeight+'" swLiveConnect=true id="ad_BannerBM" name="ad_BannerBM" align="middle" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
	document.write('</obje'+'ct>');
//}
//LoadBanner();