Hallo Gruppe,
Hat jemand eine Ahnung, wie ich die Newsletter Applikation von
www.aspheute.com von CDONTS auf ASPMAIL umbauen kann?
Hier ist die entsprechende Stelle:
Danke,
Reinhold
If Request.QueryString("mode") = "send" Then
Group = Request.Form("Group")
MessageSubject = Replace(Request.Form("Subject"), "'", "''")
Message = Replace(Request.Form("Message"), "'", "''")
strSQL = "INSERT INTO NewsHistory (SentTo, MessageSubject,
Message, SentDate) VALUES ('" & Group & "', '" & MessageSubject & "', '"
& Message & "', '" & Date() & "')"
Conn.Execute(strSQL)
strSQL = "SELECT Last(NewsHistoryID) AS NewsletterID FROM
NewsHistory"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.Open (strSQL), Conn, adOpenForwardOnly, adLockReadOnly,
adCmdText
If Not rs.EOF Then
CHtml = CHtml & "Your Newsletter has been saved under
unique ID <B><a href=""newsletter.asp?mode=detail&id=" &
rs("NewsletterID") & """>" & rs("NewsletterID") & "</a></B>" & vbcrlf
End If
rs.Close
Set rs = Nothing
CHtml = CHtml & "<BR>" & vbcrlf
CHtml = CHtml & "<BR>" & vbcrlf
CHtml = CHtml & "<BR>" & vbcrlf
strSQL = "SELECT EMail FROM Newsletter WHERE Section = '" &
Group & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.Open (strSQL), Conn, adOpenForwardOnly, adLockReadOnly,
adCmdText
MaxCount = 0
While Not rs.EOF
MaxCount = MaxCount + 1
strTo = rs("EMail")
strSubject = MessageSubject
strFrom = "[EMAIL PROTECTED]"
strBody = Message
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = StrFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
CHtml = CHtml & rs("EMail") & vbcrlf
CHtml = CHtml & "<BR>" & vbcrlf
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
CHtml = CHtml & "<BR>" & vbcrlf
CHtml = CHtml & "Mails sent to <B>" & MaxCount & "</B> adresses"
& vbcrlf
End If
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
