<%
function validateEmail(em)
validateEmail = false
if instr(em, "@") > 0 AND instr(em, ".") > 0 then validateEmail = true
end function
emailXMLPath = "XML/emaillist.xml"
txtInvalidEmail = "Invalid email format. eg: jjh@aol.com"
txtExistingEmail = "Email already in list"
txtAddedEmail = "Email added to list"
txtRemovedEmail = "Email removed from list"
txtNotFoundEmail = "Email not found. Please reenter. "
if request.form("sbAdd") <> "" then
curEmail = request.form("addEmail")
curEmail = lcase(curEmail)
if validateEmail(curEmail) then
set objDOM = server.createobject("MSXML2.DOMDocument")
objDOM.async = false
objDOM.load server.mappath(emailXMLPath)
set ePtr = objDOM.selectSingleNode("emailaddresses")
set ptr = ePtr.selectsinglenode("email[@address='" & curEmail & "']")
if not ptr is nothing then
if ptr.selectsinglenode("@live").text = "False" then
ptr.setAttribute "live", "True"
objDom.save server.mappath(emailXMLPath)
addMsg = txtAddedEmail
else
addMsg = txtExistingEmail
end if
else
set elNode = objDOM.createElement("email")
elNode.setAttribute "date", cstr(date)
elNode.setAttribute "address", curEmail
elNode.setAttribute "live", "True"
ePtr.appendChild elNode
objDom.save server.mappath(emailXMLPath)
addMsg = txtAddedEmail
end if
set objDOM = nothing
else
addMsg = txtInvalidEmail
addEmail = curEmail
end if
end if
if request.form("sbRemove") <> "" then
curEmail = request.form("removeemail")
curEmail = lcase(curEmail)
if validateEmail(curEmail) then
set objDOM = server.createobject("MSXML2.DOMDocument")
objDOM.async = false
objDOM.load server.mappath(emailXMLPath)
set ePtr = objDOM.selectSingleNode("emailaddresses")
set ptr = ePtr.selectsinglenode("email[@address='" & curEmail & "']")
if ptr is nothing then
removeMsg = txtNotFoundEmail
else
ptr.setAttribute "live", "False"
objDom.save server.mappath(emailXMLPath)
removeMsg = txtRemovedEmail
end if
set objDOM = nothing
else
removeMsg = txtInvalidEmail
removeEmail = curEmail
end if
end if
%>
<%= addMsg %><%= removeMsg %>
