<%
if request("v") = "" then
BodyLoad = "onLoad=""showitem('none')"""
elseif request("v") = "pr" then
BodyLoad = "onLoad=""showitem('pr')"""
elseif request("v") = "wqr" then
BodyLoad = "onLoad=""showitem('wqr')"""
elseif request("v") = "nl" then
BodyLoad = "onLoad=""showitem('nl')"""
elseif request("v") = "wbi" then
BodyLoad = "onLoad=""showitem('wbi')"""
elseif request("v") = "uwmp" then
BodyLoad = "onLoad=""showitem('uwmp')"""
end if
%>
>
News & Information
<% if request("action") = "subscribe_new" then %>
<% elseif request("action") = "subscribe" then
if request("optout") = "TRUE" then
set eNews = Connect.Execute("SELECT * FROM eNews_subscribers")
do until eNews.eof
if eNews("email") = request("email") then
exists = TRUE
tempID = eNews("ID")
exit do
end if
eNews.MoveNext
loop
'Delete from database
if exists = TRUE then
Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM enews_subscribers WHERE ID = "&tempID
objRecordset.Open strSQL, Connect, adOpenStatic, adLockOptimistic
objRecordset.delete
objRecordset.Update
optType = "We have received your request to be removed from the eNewsletter mailing list. You will no longer receive future issues of eNewsletter."
objRecordset.Close
Set objRecordset = Nothing
else
optType = "No record exists. Please try again."
end if
else
'CHECK TO SEE IF USER ALREADY EXISTS
set eNews = Connect.Execute("SELECT * FROM eNews_subscribers")
do until eNews.eof
if eNews("email") = request("email") then
exists = TRUE
optType = "Thank you for you request to be added to the eNewsletter mailing list. You are currently enrolled and will continue receiving future issues."
exit do
end if
eNews.MoveNext
loop
if exists <> TRUE then
'Write information to database
Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM enews_subscribers"
objRecordset.Open strSQL, Connect, adOpenStatic, adLockOptimistic
objRecordset.AddNew
objRecordset("Username") = Request("Username")
objRecordset("email") = Request("email")
objRecordset("HTML") = request("HTML")
objRecordset("campaign") = "Standard"
objRecordset("signupdate") = date()
objRecordset.Update
optType = "Thank you for you request to be added to the eNewsletter mailing list. You will receive the next issue."
objRecordset.Close
Set objRecordset = Nothing
end if
end if
response.write "
