<%
if trim(request.form("mailto"))<>"" then
dim con,rs,addr
set con=server.createobject("ADODB.Connection")
set rs=server.createObject("ADODB.Recordset")
con.open "DSN=distance;UID=distance;PWD=distance"
'con.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("aa\mailids1.mdb")
if con.state=1 then
rs.ActiveConnection = con
rs.CursorType =1
rs.LockType = 3
rs.open "select * from mailids1 where id between " & trim(request.form("fromid")) & " and " & trim(request.form("toid"))
if not rs.eof then
%>
Mail
sent successfully.
|
<%
while not rs.eof
%>
| <% =rs("id") %> |
<% =rs("mailid") %> |
<%
set mailob=server.createObject("JMail.SMTPMail")
mailob.ServerAddress =request.ServerVariables("LOCAL_ADDR")
mailob.Sender=trim(request.form("mailfrom"))
mailob.SenderName="HeartyWishes.com"
addr=rs("mailid")
mailob.AddRecipientBCC addr
mailob.subject=trim(request.form("subject"))
mailob.Contenttype="text/html"
mailob.AppendBodyFromFile (server.mappath("mail.htm"))
mailob.Priority = 1
mailob.Execute
set mailob=nothing
rs.movenext
wend
else
%>
No Mail ids Found |
<%
end if
else
%>
Unable
to connect .Try after sometime. |
<%
end if
%>
<%
else
%>
|
<%
end if
%>
| |