<%
if Session("LoggedIn") <> "yes" then
Session("Message") = "You must log in before viewing that page!"
response.redirect "login.asp"
end if
%>
<%
response.buffer = true
Server.ScriptTimeout = 1000000
dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT email from regis"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount
useraction=request("action")
select case useraction
case "send"
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT email from regis order by userid"
rs.open sql,conn
do while not rs.eof
emails=rs("email")
'Response.Write (emails & " ")
subject = request.form("subject")
comm = request.form("comm")
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = emails
'-----------------------------------
'change to your email!!
'-----------------------------------
objCDO.From = "info@marketerpro.net"
objCDO.Subject = subject
objCDO.Body = comm
objCDO.Send
rs.movenext
loop
set objCDO = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write ""
response.end
end select
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Interface
