<%@LANGUAGE= " VBSCRIPT " CODEPAGE= " 65001 " %>
<%
Schwaches senderemail, recipientemail, Thema, messagebody, title_field, editor1, fromemail, whensent
'EDIT DIESE WERTE!!!!
'das email address eintragen, dass Sie die Anzeigen wünschen, die zu geschickt werden
recipientemail = „[email protected]“
'das email address eintragen, dass Sie in „“ von der Linie Ihrer eMail erscheinen möchten
senderemail = „ENRads“
fromemail = request.form („email_field“)
fromemail = ersetzen (fromemail, „'“, „'' ")
Thema = „ENR eingestufte Anzeigen - on-line-Unterordnung von“ u. fromemail
whensent = jetzt ()
title_field = request.form („title_field“)
titlefield = ersetzen (titlefield, „'“, „'' ")
editor1 = request.form („editor1“)
editor1 = ersetzen (editor1, „'“, „'' ")
editor1 = ersetzen (editor1, „“, "")
editor1 = ersetzen (editor1, „ “, "")
editor1 = Ordnung (editor1)
messagebody = „die folgende ENR eingestufte Anzeige wurde von“ u. fromemail u. „an“ u. whensent u. vbcrlf u. vbcrlf u. title_field u. editor1 empfangen
response.write (senderemail) u. „ “
response.write (recipientemail) u. „ “
response.write (vorbehaltlich) u. „ “
response.write (messagebody)
Stellen myMail=CreateObject ein („CDO.Message“)
myMail.Subject=subject
myMail.From=senderemail
myMail.To=recipientemail
myMail.TextBody=messagebody
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing ")=2
'Name oder IP des Fern-smtp-Bedieners
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver ") _
= " mail.glowfishtw.com "
'Bedienerhafen
myMail.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport ") _
=25
myMail.Configuration.Fields.Update
myMail.Send
gesetztes myMail=nothing
messagebody = „für Ihre Unterordnung zu ENR Classifieds danke. Unter ist der Text von Ihrer Anzeige. Wir treten mit Ihnen in Verbindung, wenn wir benötigen irgendwelche anderen Informationen.“ u. danken vbcrlf u. „Ihnen.“ u. vbcrlf u. vbcrlf u. messagebody
myMail2=CreateObject („CDO.Message“) einstellen
myMail2.Subject= Thema
myMail2.From=senderemail
myMail2.To=fromemail
myMail2.TextBody=messagebody
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/sendusing ")=2
'Name oder IP des Fern-smtp-Bedieners
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserver ") _
= " mail.glowfishtw.com "
'Bedienerhafen
myMail2.Configuration.Fields.Item _
(„http://schemas.microsoft.com/cdo/configuration/smtpserverport ") _
=25
myMail2.Configuration.Fields.Update
myMail2.Send
myMail2=nothing einstellen
%>
Send eMail für enr_ads
<%
'Response.Redirect „enr_ads.asp? resp=x“
%>
|