<%@ Language = VBScript %> <% 'Redirect if user is not supposed to be here if session("Newsletter") = false then response.redirect("index.asp") end if %> <%=CompanyName%> Newsletter Administrative Center
<%=CompanyName%> - Newsletter Administrative Center
Newsletter Control
» List all subscribers
» List inactive subscribers
» Send newsletter
» Edit signature file
» Logout

Inactive Subscribers

These are the email addresses of the people who signed up for your newsletter, but did not / have not replied to your confirmation email. You can safely deleted those email addresses that have been here for a long time.

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