<%@ 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")
Zone_ID = Request("Zone_ID")
	
	Zone_Name = Request("Zone_Name")
	Zone_Desc = Request("Zone_Desc")
	
	If  Zone_Name = "" Then
		ErrorMessage = ErrorMessage & Server.URLEncode("You need to enter a Zone Name.\n\n")
	End If
	
If ErrorMessage <> "" Then
	
	Response.Redirect "edit_zone.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 CmdEditZone = Server.CreateObject("ADODB.Recordset")
	
If Action = "New_Zone" Then
	CmdBannerTemp.CommandText = "SELECT Banner_Zones.* FROM Banner_Zones "
Else
	CmdBannerTemp.CommandText = "SELECT Banner_Zones.* FROM Banner_Zones WHERE (Zone_ID = " & Zone_ID & ")"
End If
	
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnBannerSystem
CmdEditZone.Open CmdBannerTemp, , 1, 3
	
If Action = "New_Zone" Then
	CmdEditZone.AddNew
End If
	
If Zone_Name = "" THEN
	CmdEditZone.Fields("Zone_Name") = NULL
Else
	CmdEditZone.Fields("Zone_Name") = Zone_Name
End If
	
If Zone_Desc = "" THEN
	CmdEditZone.Fields("Zone_Desc") = NULL
Else
	CmdEditZone.Fields("Zone_Desc") = Zone_Desc
End If
	
CmdEditZone.Update
	
If Action = "New_Zone" Then
	Zone_ID = CmdEditZone.Fields("Zone_ID")
End If
	
CmdEditZone.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 ("zones.asp?Zone_ID=" & Zone_ID) %>