<%
'Gegenstände und Variablen initialisieren
JMail, intComp, strReferer, strServer, strClientIP, strServerIP, blnSpam verdunkeln
JMail = Server.CreateObject („JMail.SMTPMail“) einstellen
'Überprüfen, ob diese Seite von einer einer anderen Seite auf dem Bediener benannt
strReferer = request.servervariables („HTTP_REFERER“)
strServer = ersetzen (request.servervariables („SERVER_NAME“), „WWW. “, "")
strClientIP = request.servervariables („REMOTE_ADDR“)
strServerIP = request.servervariables („LOCAL_ADDR“)
intComp = inStr (strReferer, strServer)
Wenn intComp > 0 dann
blnSpam = falsch
Sonst
'Spam-Versuchs-Block
blnSpam = ausrichten en
Beenden wenn
'Dieses ist mein lokaler smtp-Bediener
JMail.ServerAddress = „smtp.“ u. strServer u. „: 25“
'Dieses ist ich….
JMail.Sender = „noreply@“ u. strServer
SenderName = Request.Form („Name“)
SenderCompany = Request.Form („Firma“)
SenderPhone = Request.Form („Telefon“)
SenderEmail = Request.Form („eMail“)
Thema = „Anfrage zum TOCO Training von „+ SenderName
Empfänger = „[email protected]“
SenderComments = Request.Form („Anmerkungen“)
Körper = „Anfrage von“ u. SenderName u. vbCrLf u. „Firma“ u. SenderCompany u. vbCrLf u. „Telefon“ u. SenderPhone u. vbCrLf u. „email address“ u. SenderEmail u. vbCrLf u. vbCrLf u. SenderComments u. vbCrLf
Wenn SenderEmail = "" dann
SenderEmail = „[email protected]“
Beenden wenn
JMail.Sender = SenderEmail
JMail.Subject = Thema
JMail.AddRecipient Empfänger
JMail.Body = Körper
JMail.Priority = 3
JMail.AddHeader „Entstehen-IP“, Request.ServerVariables („REMOTE_ADDR“)
'Post senden
Wenn NICHT blnSpam dann
JMail.Execute
strResult = „Post gesendet.“
Sonst
strResult = „Post nicht gesendet.“
Beenden wenn
Jmail einstellen = nichts
alertAndRedirect
VoralertAndRedirect ()
%>
<%
Enden-Unterseeboot
%>
|