<% 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 %>
|
|
