<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% '*********************************************************************** ' System : ASPBanner Unlimited ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved '*********************************************************************** %> <% CHECKFOR = "Admin" %> <% If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then %> <% End If %> >

Return to Main Screen

<% ErrorMessage = Request("ErrorMessage") If ErrorMessage <> "" Then %> <% End If Action = Request("Action") Action2 = Request("Action2") Banner_ID = Request("Banner_ID") User_ID = Request("User_ID") Existing_File = Request("Existing_File") DeleteButton = Request("DeleteButton") PreviewButton = Request("PreviewButton") BannerDirectory = "http://" & Request.ServerVariables("HTTP_HOST") & Replace(Request.ServerVariables("URL"),"edit_banner.asp","images/banners/") If DeleteButton = "Delete Selected File" Then Response.Redirect("delete_file.asp?Existing_File=" & Server.URLEncode(Existing_File)) Response.End End If If PreviewButton = "Preview Selected Image" And (InStr(LCase(Existing_File),"gif") or InStr(LCase(Existing_File),"bmp") or InStr(LCase(Existing_File),"jpg") or InStr(LCase(Existing_File),"jpeg")) Then Response.Redirect("bannerpreview.asp?FromUploadForm=True&BannerFile=" & BannerDirectory & Server.URLEncode(Existing_File)) Response.End ElseIf PreviewButton = "Preview Selected Image" and (Existing_File = "" or InStr(LCase(Existing_File),".swf") > 0) Then Response.Redirect("upload_form.asp?NonePicked=True") Response.End End If If Action2 = "FromUpload" and (Existing_File = "" or InStr(LCase(Existing_File),".swf") > 0) Then Response.Redirect("upload_form.asp?NonePicked=True") Response.End End If If Existing_File <> "" and Banner_Image_URL = "" Then Banner_Image_URL = BannerDirectory & Existing_File End If If Action = "New_Ad" Then Banner_Width = "" Banner_Height = "" Banner_Border = "0" Banner_Target = "_Top" Banner_Begin_Date = DATE Banner_End_Date = DATE + 365 Else Set ConnBannerSystem = Server.CreateObject("ADODB.Connection") ConnBannerSystem.Open BannerConnectionString Set CmdBannerTemp = Server.CreateObject("ADODB.Command") Set CmdEditAd = Server.CreateObject("ADODB.Recordset") CmdBannerTemp.CommandText = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")" CmdBannerTemp.CommandType = 1 Set CmdBannerTemp.ActiveConnection = ConnBannerSystem CmdEditAd.Open CmdBannerTemp, , 0, 1 Banner_Name = CmdEditAd("Banner_Name") Banner_Type = CmdEditAd("Banner_Type") Banner_HTML_Code = CmdEditAd("Banner_HTML_Code") Banner_Image_URL = CmdEditAd("Banner_Image_URL") Banner_Width = CmdEditAd("Banner_Width") Banner_Height = CmdEditAd("Banner_Height") Banner_Border = CmdEditAd("Banner_Border") Banner_ALT_Text = CmdEditAd("Banner_ALT_Text") Banner_Link_URL = CmdEditAd("Banner_Link_URL") Banner_Text_Message = CmdEditAd("Banner_Text_Message") Banner_Target = CmdEditAd("Banner_Target") Zone_ID = CmdEditAd("Zone_ID") Banner_Weight = CmdEditAd("Banner_Weight") Banner_Status = CmdEditAd("Banner_Status") Banner_Begin_Date = CmdEditAd("Banner_Begin_Date") Banner_End_Date = CmdEditAd("Banner_End_Date") Banner_Impressions_Purchased = CmdEditAd("Banner_Impressions_Purchased") Banner_Notes = CmdEditAd("Banner_Notes") End If ' Populating Form data from querystring if there is an error message If ErrorMessage <> "" Then Banner_Name = Request("Banner_Name") Banner_Type = Request("Banner_Type") Banner_HTML_Code = Request("Banner_HTML_Code") Banner_Image_URL = Request("Banner_Image_URL") Banner_Width = Request("Banner_Width") Banner_Height = Request("Banner_Height") Banner_Border = Request("Banner_Border") Banner_ALT_Text = Request("Banner_ALT_Text") Banner_Link_URL = Request("Banner_Link_URL") Banner_Text_Message = Request("Banner_Text_Message") Banner_Target = Request("Banner_Target") Zone_ID = Request("Zone_ID") Banner_Weight = Request("Banner_Weight") Banner_Status = Request("Banner_Status") Banner_Begin_Date = Request("Banner_Begin_Date") Banner_End_Date = Request("Banner_End_Date") Banner_Impressions_Purchased = Request("Banner_Impressions_Purchased") Banner_Notes = Request("Banner_Notes") End If %>

<% If Action = "New_Ad" Then %> <% Else %> <% End If %>

Banner User

<% If Action2 = "FromUpload" Then %>

Add New User

<% End If %>

Banner Properties

Banner_Type
Banner Name
Banner Zone
Banner Weight

Image Banner

If the banner type is Image you must fill out this section. Otherwise this info is not used.

Image URL <% If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then %> SELECT OR PREVIEW UPLOADED IMAGES <% End If %>

Width

Height

Border

Why is this info required ?

ALT Text This is the text that shows up when you hold the mouse over the banner,

Text Message This will show up as another link under the banner image.

Code Banner

If the banner type is Code you must enter the code to be used here. Otherwise this info is not used. This can be any HTML or Javascript code. You can also enter code here to display a Flash Banner. Click here for example code.

Banner Link

When a Banner is clicked on it goes to a redirection page that tracks the click and then sends the user to the intended URL.

Link URL
Link Target
ThisTarget setting only effects image banners.
If you are entering Code for you banner you must set the target in your code.

For a Code banner to track a click you will need to have your code link to the redirection
page feeding it the correct Banner ID. Then that page will redirect to the intended URL specified above.
Ex.) <% =Application("BannerRedirectURL") %>?Banner_ID=<% If Banner_ID <> "" Then %><% =Banner_ID %><% End If %>

Status

Active	Ad is running and live
Hold	Use this to disable an Ad
Waiting	Use this when you want an Ad to start at a future date
ImpHit	Ad hit impression limit
Expired	Ad hit expiration date

Banner Run

Begin Date

Until
End Date or Impressions Purchased

Notes

These are just notes for your own use. They do not show up when a banner is displayed.