Hallo, hab ein kleines Problem...
M�chte eine Weiterempfehlung der Seite einbauen, hab es getestet, aber es
kommt keine Mail an.
Kann es sein das hier bei dem folgendem Code irgendwo die SMPP Addresse
hinkommt? W�re nett, wenn man mir helfen k�nnte.
<% @ Language="VBScript" EnableSessionState = False%>
<%
Const cstrPagetitle = "Tell-a-friend Statusseite"
Const cstrDefaultSender = "[EMAIL PROTECTED]"
%>
<!--#include file="pagetop.asp"-->
<H1><%=cstrPagetitle %></H1>
<%
strToEmail = Request.Form("ToEmail")
strFromEmail = Request.Form("FromEmail")
strAddtlMessage = Request.Form("AddtlMessage")
strArticleTitle = Trim(Request.Form("ArticleName2Send"))
strArticle = Request.Form("Article2Send")
If (strToEmail <> "" And strFromEmail <> "" And strArticle <> "") Then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = cstrDefaultSender
objMail.To = strToEmail
objMail.Subject = "Seitenempfehlung: " & strArticleTitle
strBody = "Email von DETONATOR-TREIBER.COM" & vbCrLf & vbCrLf
strBody = strBody & strFromEmail & " hat Ihnen folgende Seite empfohlen:" &
vbCrLf
strBody = strBody & strArticle & vbCrLf & vbCrlf
If (strAddtlMessage <> "") Then
strBody = strBody & "Und m�chte Ihnen noch folgende Informationen
mitteilen: "
strBody = strBody & vbCrLf & """" & strAddtlMessage & """" & vbCrLf &
vbCrLf
End If
strBody = strBody & "Mit freundlichen Gr��en von
http://www.detonator-treiber.com/"
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
Response.Write "Die Seitenempfehlung wurde erfolgreich weitergeleitet!"
Response.Write " Vielen Dank, daß Sie diesen Service in Anspruch
genommen haben."
Else
Response.Write "<b>Es wurden nicht alle benötigten Informationen an
dieses Skript übergeben!</b>"
End If
%>
<!--#include file="pageend.asp"-->
Gruss Kai
| 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