Irgendwie durfte ich gerade dummerweise feststellen das seit heute keine
mails mehr versendet werden,... am Freitag gings noch und seitdem hat keiner
an dem Script rumgespielt,..... kann es sein das ich beim mailen keine "css"
auf die Seite einbinden darf???
Gr��e Stephan
----- Original Message -----
From: "Stephan Schumann" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, November 19, 2001 11:12 AM
Subject: [aspdebeginners] Re: AW: e-mail versand > 1min??
> 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
>
| 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
