Hallo Liste
Ich hoffe es kann mir jemand helfen. Ich habe den Script von
http://www.aspheute.com/artikel/20000608.htm downgeloadet und implementiert. Nun das
mit dem Siteswitch funktioniert einwandfrei, doch ein mail wird nie ausgel�st, hat
vielleicht jemand eine
Tip wieso? Folgend mein Source:
<% @LANGUAGE = "VBScript" %>
<!--#include file="mailparser.asp"-->
<html>
<head>
<title>Unbekannte Seite</title>
</head>
<body>
<h1>Unbekannte Seite</h1>
<p>
Die von Ihnen angeforderte Seite existiert nicht innerhalb unseres Internet-Angebotes
</p>
<%
Dim referer, message, url
referer = Request.ServerVariables("HTTP_REFERER")
If IsEmpty(referer) Then
'Kein Referer im HTTP Header, daher vermutlich
'direkte Eingabe der Adresse
Message = "Bitte pr�fen Sie die Schreibweise der Adresse."
ElseIf InStr(1, referer, Request.ServerVariables("HTTP_HOST"), vbTextCompare) = 0 Then
'Externe Referer, daher vermutlich falscher (externer) Link
Message = "Bitte informieren Sie den Webmaster der Seite " & referer & _
" �ber den fehlerhaften Link."
Else
'Interner Referer vom gleichen Internet-Angebot, daher
'vermutlich falscher Link auf den eigenen Seiten -> eMail ab Webmaster
Message = "Unser Webmaster wurde �ber den fehlerhaften Link innerhalb unseres" & _
" Internet-Angebotes informiert und wird sich so schnell wie m�glich" & _
" mit dem Problem besch�ftigen"
url = Request.ServerVariables("QUERY_STRING")
url = Mid(url, InStr(url, ";") + 1)
Dim NewMail
Set NewMail = New MailParser
NewMail.AddVariable "referer", referer
NewMail.AddVariable "url", url
NewMail.Template = Server.Mappath("404.msg")
Call NewMail.Send
End If
%>
<p>
<% = Message %> <b> Vielen Dank f�r Ihr Verst�ndnis! </b>
</p>
<p> Zu unserer <a href="default.asp">Homepage</a>... </p>
</body>
</html>
| 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
