Also hier ist mal der komplette Scriptcode:
<%
dim strReferer, strArtikel, strBezeichnung, strBeschreibung
dim strKommentar, strEmpfName, strEmpfMail, strIhrName, strIhreMail
dim strWoher, strError, strMailOK
strWoher = Request.QueryString("woher")
strArtikel = Request.QueryString("art")
strBezeichnung = Request.QueryString("bez")
strBeschreibung = Request.QueryString("besch")
strKommentar = Request.QueryString("kommentar")
strEmpfName = Request.QueryString("empfname")
strEmpfMail = Request.QueryString("empfmail")
strIhrName = Request.QueryString("ihrname")
strIhreMail = Request.QueryString("ihre-mail")
strError = "<font face='Arial'><br>"
' #######################
' ## Referer ermitteln ##
' #######################
If strWoher = "" then
strReferer = Request.ServerVariables("HTTP_REFERER")
ElseIf strWoher = "mit" then
strReferer = Request.QueryString("ref")
End If
' ################################################################
' ## Ab hier wird die Mail zusammengestellt und alles getestet ##
' ################################################################
If strWoher = "mit" then
' #################
' ## Name testen ##
' #################
If strIhrName = "" then
strError = (strError & "Sie haben Ihren Namen nicht eingetragen<br>")
End If
' ################################
' ## Name des Empf�ngers testen ##
' ################################
If strEmpfName = "" then
strError = (strError & "Sie haben keinen Empf�ngernamen eingetragen<br>")
End If
' ##########################################
' ## e-mail adresse des Empf�ngers testen ##
' ##########################################
If strEmpfMail <> "" then
If len(strEmpfMail) < 7 then
strError = (strError & "Adresse zu kurz<br>")
End If
If instr(1, strEmpfMail, "@") < 1 then
strError = (strError & "@ wurde leider nicht gefunden<br>")
End If
If instr(1, strEmpfMail, ".") < 1 then
strError = (strError & "Keine g�ltige Endung gefunden<br>")
End If
Else
strError = (strError & "Keine e-mail Adresse eingetragen<br>")
End If
' ######################
' ## Mail verschicken ##
' ######################
If strError = "<font face='Arial'><br>" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "lint.osn.de"
Mailer.FromName = "[EMAIL PROTECTED]"
Mailer.FromAddress = "[EMAIL PROTECTED]"
Mailer.AddRecipient strEmpfName, strEmpfMail
Mailer.Subject = "Dies ist eine Seitenempfehlung von " & strIhrName
Mailer.BodyText = "Hallo " & strEmpfName & "," & CHR(13) & CHR(13) &
strIhrName & " empfiehlt Ihnen sich folgende Produktinformationsseite bei
K+K Computer anzusehen: " & CHR(13) & CHR(13) & strReferer & CHR(13) &
CHR(13) & "Hier die Beschreibung zu diesem Artikel:" & CHR(13) & CHR(13) &
"Artikelnummer: " & strArtikel & CHR(13) & CHR(13) & "Artikelbeschreibung: "
& strBeschreibung & CHR(13) & CHR(13) & "Mit freundlichen Gr��en Ihr" &
CHR(13) & "K+K Computer Team" & CHR(13) & CHR(13) &
"__________________________________" & CHR(13) & "K+K Computer GmbH" &
CHR(13) & "Sandreuthstr. 48" & CHR(13) & "90441 N�rnberg" & CHR(13) & "Tel:
0911-43902222" & CHR(13) & "Fax: 0911-43902444" & CHR(13) &
"[EMAIL PROTECTED]" & CHR(13) & CHR(13)
strMailOK = "ok"
if not Mailer.SendMail then
else
end if
End If
If strMailOK = "ok" then
strError = (strError & "Vielen Dank. Ihre E-Mail wurde verschickt<br>")
End If
' ###############################
' ## Mail zusammenstellen ENDE ##
' ###############################
End If
%>
<% strError = (strError & "</font>")
Response.Write(strError)%>
<p><font face="Arial">Bitte f�llen Sie das untenstehende Formular aus um
eine Seitenempfehlung zu verschicken. Die mit "*" gekennzeichneten Felder
m��en ausgef�llt werden.</font><p>
<p align="center">
<Form Action="mit.asp" Method=get>
<Input Type="Hidden" Name="woher" Value="mit">
<Input Type="Hidden" Name="art" Value="<%=strArtikel%>">
<Input Type="Hidden" Name="bez" Value="<%=strBezeichnung%>">
<Input Type="Hidden" Name="ref" Value="<%=strReferer%>">
<Input Type="Hidden" Name="besch" Value="<%=strBeschreibung%>">
<font face="Arial">
<br><u><b><font size="-1">Ihr Name:</font></b></u>*<br>
<INPUT Type="text" size="30" name="ihrname"><br><u><b><font size="-1">Ihre
e-mail Adresse:</font></b></u><br>
<INPUT Type="text" size="30" name="ihre-mail"><!--<br><u><b><font
size="-1">Zus�tzlicher Text:</font></b></u><br>
<textarea cols=46 rows=10 wrap="virtual"
name="kommentar"></textarea>--><br><br><font size="-1"><u><b>Name des
Empf�ngers:</font></b></u>*<br>
<INPUT Type="text" size="30" name="empfname"><br><u><b><font
size="-1">E-mail Adresse des Empf�ngers:</font></b></u>*<br>
<INPUT Type="text" size="30" name="empfmail"><br><br>
<input Type="Submit" Name="Abschicken" Value="abschicken" width="100"
height="13">
<input Type="Reset" Value="Reset" width="100" height="13">
</font>
</form>
----- Original Message -----
From: "Steppel" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, November 19, 2001 11:06 AM
Subject: [aspdebeginners] AW: e-mail versand > 1min??
> was passiert denn da alles auf deiner seite? oder ist der server so lahm?
>
> > -----Urspr�ngliche Nachricht-----
> > Von: Stephan Schumann [mailto:[EMAIL PROTECTED]]
> > Gesendet: Montag, 19. November 2001 11:08
> > An: ASP Diskussionsliste fuer Anfaenger
> > Betreff: [aspdebeginners] e-mail versand > 1min??
> >
> >
> > Hiho,
> > ich hab`etz das mail Formular soweit fertig um Seiten aus unserem
> > Onlineangebot von Besuchern an Besucher schicken zu lassen
> > (Seitenmitteilung). Nur hab`ich etz das Problem das wenn ich auf senden
> > klicke die Routine zum Mail verschicken ca. 30sek. bis 1 min.
dauert,.....
> > da kann doch irgendwas nicht stimmen,.....
> >
> > Hat vielleicht jemand erfahrung in Sachen mail verschicken und kann mir
> > bitte den ein oder anderen Tip(!) geben?
> >
> >
> > Gr��e Stephan
> >
> >
> > | 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
