# Copyright for the Uniform Repository Service (c) 1995 - 2001,
# by Gerald Banon. All rights reserved.
# Version 2.1
# advertising.tcl
# Creates an advertising warning to be used in the banner space
# (see CreateBannerSpace in utilities1.tcl) 

proc CreateAdvertisingWarning {} {
	global env
	global cgi
	set col ../../../../..
	set URLibServiceRepository $env(URLIB_SERVICE_REP)
	source ../$col/$URLibServiceRepository/doc/cgi/mirrorfind-.tcl
	foreach {name value} [split $env(QUERY_STRING) &=] {
		set cgi([DecodeURL $name]) [DecodeURL $value]
	}
	set languageRep2 $cgi(languagerep)
	set language $cgi(languagebutton)
	set e-mailAddress $cgi(emailaddress)
	Load ../$col/$languageRep2/doc/${language}Ad.html fileContent
	set fileContent [subst $fileContent]
	puts {Content-Type: text/html}
	puts {}
	puts $fileContent
}