<%@ Language = VBScript %> <% 'Redirect the user if he has not logged in yet if session("Newsletter") = false then response.redirect("index.asp") end if 'Function for deletetion ActFunction = request.queryString("function") Email = request.queryString("email") if ActFunction = "delete" then set con = server.createObject("ADODB.Connection") con.open(strServerConnection) sqlString = "Delete from Newsletter Where Email = '"&Email&"'" set rs = con.execute(sqlString) output2 = Email & " has been deleted from the mailing list." 'Redirect user is he/she comes from the inactive page if len(request.queryString("redirect")) > 0 then response.redirect(request.queryString("redirect")) end if end if %> <%=CompanyName%> Newsletter Administrative Center
<%=CompanyName%> - Newsletter Administrative Center
Newsletter Control
» List all subscribers
» List inactive subscribers
» Send newsletter
» Edit signature file
» Logout

<%=output2%>

Newsletter Listing

<% 'Open connection to database set con = server.createObject("ADODB.Connection") con.open(strServerConnection) sqlString = "Select Email from Newsletter Where Status = 1" set rs = con.execute(sqlString) 'Loop and print table while not rs.eof output = output & "" rs.moveNext wend response.write(output) %>
"&rs("Email")&"