<% ' BannerManager ' ASP Advertising System under GPL License ' Coded by Eduard Roccatello ' Websites: http://www.pcimprover.it ' http://rovigo.linux.it ' Camaran Thomas MySQL adapter ' Website: http://www.e-thomas.net ' File details: This page response Javascript code ' Syntax: for random banner ' for fix banner %> <% dim bannerId, zoneId, typeId, jsCode Response.Buffer = TRUE Response.ContentType = "application/x-javascript" bannerId = request.querystring("B") zoneId = request.querystring("Z") typeId = request.querystring("T") if bannerId<>"" then jsCode = BM_GetOneBanner(bannerId) else jsCode = BM_GetRndBannerSE(zoneId, typeId) end if jsCode = replace(jsCode, "'", "\'") jsCode = "document.write('" & replace(jsCode, vbCrLf, " ") & "');" response.write jsCode %>