Das w�re nicht schlecht mit dem Script, Danke Dir im voraus. Gruss an Bangkog
Kai ----- Original Message ----- From: "Roman Pittroff" <[EMAIL PROTECTED]> To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]> Sent: Friday, May 10, 2002 8:44 PM Subject: [aspdebeginners] RE: Wo kommt die SMTP Addresse hin? Das geht mit CDONTS.NewMail nicht besser es braucht keine weil der smtp server des IIS verwendet wird. Also must du den richtig konfigurieren. Wenn du einen anderen smtp server verwenden willst gibt es den weg einer anderen componente oder ich kann bei bedarf die ein script schicken das vielleicht je nach system funktionieren koennte. Gruss Roman Pittroff Consulting Bangkok, Thailand >-----Original Message----- >From: Kai Beppler [mailto:[EMAIL PROTECTED]] >Sent: Saturday, May 11, 2002 1:34 AM >To: ASP Diskussionsliste fuer Anfaenger >Subject: [aspdebeginners] Wo kommt die SMTP Addresse hin? >Importance: High > > >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 | 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 | 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
