<%@ 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
'***********************************************************************
%>

<!--#INCLUDE FILE="dataconn_inc.asp"-->
<!--#INCLUDE FILE="config_inc.asp"-->
<% CHECKFOR = "Admin" %>
<!--#INCLUDE FILE="check_user_inc.asp"-->

<%
Action = Request("Action")
Banner_ID = Request("Banner_ID")
User_ID = Request("User_ID")
	
	Banner_Name = Request("Banner_Name")
	Banner_Name = Replace(Banner_Name,"""","''")
	Banner_Name = Replace(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_ALT_Text = Replace(Banner_ALT_Text,"|"," ")
	Banner_ALT_Text = Replace(Banner_ALT_Text,"""","''")
	Banner_Link_URL = Request("Banner_Link_URL")
	Banner_Text_Message = Request("Banner_Text_Message")
	Banner_Text_Message = Replace(Banner_Text_Message,"""","''")
	Banner_Text_Message = Replace(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")
	
	If  User_ID = "nochoice" Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You need to select a Banner User.\n\n")
	End If
	
	If  Banner_Name = "" Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a Banner Name.\n\n")
	End If
	
	If Banner_Type = "Image" Then
		
		If  Banner_Image_URL = "" Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a Image_URL Name.\n\n")
		End If
		
		If  IsNumeric(Banner_Border) = False Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid Banner Border.\n\n")
		End If
		
		
' **** This is the section you can remove or remark out if you don't want widths and heights required
		
		If  IsNumeric(Banner_Width) = False Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid Banner Width.\n\n")
		End If
		
		If  IsNumeric(Banner_Height) = False Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid Banner Height.\n\n")
		End If
		
' ***** This is the section you can remove or remark out if you don't want widths and heights required
		
		
		If  Banner_Link_URL = "" or InStr(Lcase(Banner_Link_URL),"http://") = 0 Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid Link_URL including the http://.\n\n")
		End If
		
	End If
	
	If Banner_Type = "Code" Then
		
		If  Banner_HTML_Code = "" Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter the Banner Code.\n\n")
		End If
		
	End IF
	
	If  IsDate(Banner_Begin_Date) = False Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid Begin Date.\n\n")
	End If
	
	If Banner_End_Date <> "" Then
		If  IsDate(Banner_End_Date) = False Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid End Date.\n\n")
		End If
	End If
	
	If Banner_Impressions_Purchased <> "" Then
		If  IsNumeric(Banner_Impressions_Purchased) = False Then
			ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid value for Impressions_Purchased.\n\n")
		End If
	End If
	
	If Banner_End_Date = "" And Banner_Impressions_Purchased = "" Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a valid value for either the Impressions_Purchased fields or for the Banner_End_Date field.\n\n")
	End If
	
	If Banner_End_Date <> "" And Banner_Impressions_Purchased <> "" Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You can not enter values for both the End Date field and the Impressions_Purchased field. Please only fill in one of them.\n\n")
	End If
	
If ErrorMessage <> "" Then
	
	Response.Redirect "edit_banner.asp?" & Request.Form & "&ErrorMessage=" & ErrorMessage
	Response.End
	
End If
	
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
ConnBannerSystem.Open BannerConnectionString
Set CmdBannerTemp = Server.CreateObject("ADODB.Command")
Set CmdEditBanner = Server.CreateObject("ADODB.Recordset")
	
If Action = "New_Ad" Then
	CmdBannerTemp.CommandText = "SELECT Banners.* FROM Banners "
Else
	CmdBannerTemp.CommandText = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")"
End If
	
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnBannerSystem
CmdEditBanner.Open CmdBannerTemp, , 1, 3
	
If Action = "New_Ad" Then
	CmdEditBanner.AddNew
End If
	
	CmdEditBanner.Fields("User_ID") = User_ID
	
If Banner_Name = "" THEN
	CmdEditBanner.Fields("Banner_Name") = NULL
Else
	CmdEditBanner.Fields("Banner_Name") = Banner_Name
End If
	
If Banner_Type = "" THEN
	CmdEditBanner.Fields("Banner_Type") = NULL
Else
	CmdEditBanner.Fields("Banner_Type") = Banner_Type
End If
	
If Banner_HTML_Code = "" THEN
	CmdEditBanner.Fields("Banner_HTML_Code") = NULL
Else
	CmdEditBanner.Fields("Banner_HTML_Code") = Banner_HTML_Code
End If
	
If Banner_Image_URL = "" THEN
	CmdEditBanner.Fields("Banner_Image_URL") = NULL
Else
	CmdEditBanner.Fields("Banner_Image_URL") = Banner_Image_URL
End If
	
If Banner_Width = "" THEN
	CmdEditBanner.Fields("Banner_Width") = NULL
Else
	CmdEditBanner.Fields("Banner_Width") = Banner_Width
End If
	
If Banner_Height = "" THEN
	CmdEditBanner.Fields("Banner_Height") = NULL
Else
	CmdEditBanner.Fields("Banner_Height") = Banner_Height
End If
	
If Banner_Border = "" THEN
	CmdEditBanner.Fields("Banner_Border") = NULL
Else
	CmdEditBanner.Fields("Banner_Border") = Banner_Border
End If
	
If Banner_ALT_Text = "" THEN
	CmdEditBanner.Fields("Banner_ALT_Text") = NULL
Else
	CmdEditBanner.Fields("Banner_ALT_Text") = Banner_ALT_Text
End If
	
If Banner_Link_URL = "" THEN
	CmdEditBanner.Fields("Banner_Link_URL") = NULL
Else
	CmdEditBanner.Fields("Banner_Link_URL") = Banner_Link_URL
End If
	
If Banner_Text_Message = "" THEN
	CmdEditBanner.Fields("Banner_Text_Message") = NULL
Else
	CmdEditBanner.Fields("Banner_Text_Message") = Banner_Text_Message
End If
	
If Banner_Target = "" THEN
	CmdEditBanner.Fields("Banner_Target") = NULL
Else
	CmdEditBanner.Fields("Banner_Target") = Banner_Target
End If
	
If Zone_ID = "" THEN
	CmdEditBanner.Fields("Zone_ID") = NULL
Else
	CmdEditBanner.Fields("Zone_ID") = Zone_ID
End If
	
If Banner_Weight = "" THEN
	CmdEditBanner.Fields("Banner_Weight") = NULL
Else
	CmdEditBanner.Fields("Banner_Weight") = Banner_Weight
End If
	
If Banner_Status = "" THEN
	CmdEditBanner.Fields("Banner_Status") = NULL
Else
	CmdEditBanner.Fields("Banner_Status") = Banner_Status
End If
	
If Banner_Begin_Date = "" THEN
	CmdEditBanner.Fields("Banner_Begin_Date") = NULL
Else
	CmdEditBanner.Fields("Banner_Begin_Date") = InternationalDate(Banner_Begin_Date)
End If
	
If Banner_End_Date = "" THEN
	CmdEditBanner.Fields("Banner_End_Date") = NULL
Else
	CmdEditBanner.Fields("Banner_End_Date") = InternationalDate(Banner_End_Date)
End If
	
If Banner_Impressions_Purchased = "" THEN
	CmdEditBanner.Fields("Banner_Impressions_Purchased") = NULL
Else
	CmdEditBanner.Fields("Banner_Impressions_Purchased") = Banner_Impressions_Purchased
End If
	
If Banner_Notes = "" THEN
	CmdEditBanner.Fields("Banner_Notes") = NULL
Else
	CmdEditBanner.Fields("Banner_Notes") = Banner_Notes
End If
	
CmdEditBanner.Update
CmdEditBanner.Close
%>

<!-- Delay Function -->

<%
Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>

<% TLdelaySec(2) %>

<!-- End Of Delay Function -->

<!--#INCLUDE FILE="appinfo_inc.asp"-->

<% Response.Redirect "default.asp" %>