<%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : UPS License Step 3 - Contact details
' Product : CandyPress Store Administration
' Version : 2.5
' Modified : February 2004
' Copyright: Copyright (C) 2004 CandyPress.Com
' See "license.txt" for this product for details regarding
' licensing, usage, disclaimers, distribution and general
' copyright requirements. If you don't have a copy of this
' file, you may request one at webmaster@candypress.com
'*************************************************************************
Option explicit
Response.Buffer = true
const adminLevel = 0
%>
<%
'Database
dim mySQL, cn, rs, rs2
dim acceptYN
'*************************************************************************
'Open Database Connection
call openDB()
'Store Configuration
if loadConfig() = false then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.")
end if
'Get parms from previous form
acceptYN = trim(request.Form("acceptYN"))
%>
<%
if acceptYN = "N" then
%>
You have chosen not to accept the License Agreement at this time.
Click HERE to close this window.
Click HERE to return to previous page.
<%
elseif isNull(acceptYN) or isEmpty(acceptYN) or acceptYN = "" then
%>
ERROR : You need to Accept or Decline the License Agreement to continue.
Click HERE to return to previous page.
<%
else
%>
Step 3. Registration
* Optional Information
<%
end if
%>
<%
'Close Database Connection
call closedb()
%>