Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How could I use asp to send an email .
- Thread starter campbemr
- Start date
Guest_imported
New member
- Jan 1, 1970
- 0
Check this ------- it might help
<html>
...
<%
if request.form("submit.x"
> 0 then
dim rs, sql, from, to, subject, letter, conn, cs
from = request.form("from"
to = ""
subject = request.form("subject"
letter = request.form("letter"
set conn = server.createobject("adodb.connection"
cs = "Provider.............data source=........"
conn.Open(cs)
sql = "SELECT email FROM newsletter db;"
set rs = server.createobject("adodb.recordset"
rs.Open sql, conn, adOpenForwardOnly, adLockPessimistic
if not rs.EOF then
while not rs.EOF
to = to & rs("email" & "; "
rs.MoveNext
wend
else
response.write "<scipt language=""javascript"" type=""text/javascript"">alert('There is no one on your list!');</script>""
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
dim mail
set mail = server.createobject("CDONTS.NewMail"
with mail
.from = from
.to = to
.subject = subject
.body = body
.send()
mail.close
set mail = nothing
response.redirect "conf.asp"
end if
%>
<body>
<form action="THISFILENAME.asp" method="post">
<input type="text" name="from">
<input type="text" name="subject">
<textarea name="letter"></textarea>
<input type="image" src="img.gif" name="submit">
</form>
<html>
...
<%
if request.form("submit.x"
> 0 thendim rs, sql, from, to, subject, letter, conn, cs
from = request.form("from"
to = ""
subject = request.form("subject"
letter = request.form("letter"
set conn = server.createobject("adodb.connection"
cs = "Provider.............data source=........"
conn.Open(cs)
sql = "SELECT email FROM newsletter db;"
set rs = server.createobject("adodb.recordset"
rs.Open sql, conn, adOpenForwardOnly, adLockPessimistic
if not rs.EOF then
while not rs.EOF
to = to & rs("email"
& "; "rs.MoveNext
wend
else
response.write "<scipt language=""javascript"" type=""text/javascript"">alert('There is no one on your list!');</script>""
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
dim mail
set mail = server.createobject("CDONTS.NewMail"
with mail
.from = from
.to = to
.subject = subject
.body = body
.send()
mail.close
set mail = nothing
response.redirect "conf.asp"
end if
%>
<body>
<form action="THISFILENAME.asp" method="post">
<input type="text" name="from">
<input type="text" name="subject">
<textarea name="letter"></textarea>
<input type="image" src="img.gif" name="submit">
</form>
You could try a ready made mailing list that I use. I can't remember where I got it from, so I've uploaded the zip for you here:
I think there's a Readme in there with it. It's pretty simple to set up anyway.
Hope it's useful!
I think there's a Readme in there with it. It's pretty simple to set up anyway.
Hope it's useful!
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question