<%@ 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" %>
>
Return to Zones Screen
<%
ErrorMessage = Request("ErrorMessage")
If ErrorMessage <> "" Then
%>
<%
End If
Action = Request("Action")
Zone_ID = Request("Zone_ID")
If Action <> "New_Zone" Then
Set ConnBannerSystem = Server.CreateObject("ADODB.Connection")
ConnBannerSystem.Open BannerConnectionString
Set CmdBannerTemp = Server.CreateObject("ADODB.Command")
Set CmdEditZone = Server.CreateObject("ADODB.Recordset")
CmdBannerTemp.CommandText = "SELECT Banner_Zones.* FROM Banner_Zones WHERE (Zone_ID = " & Zone_ID & ")"
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnBannerSystem
CmdEditZone.Open CmdBannerTemp, , 0, 1
Zone_Name = CmdEditZone("Zone_Name")
Zone_Desc = CmdEditZone("Zone_Desc")
End If
' Populating Form data from querystring if there is an error message
If ErrorMessage <> "" Then
Zone_Name = Request("Zone_Name")
Zone_Desc = Request("Zone_Desc")
End If
%>