Danke trotzdem,... es wurde anscheinend nur der RemoteHost umgestellt,....
dann kanns nimmer klappen,...... :-)
Gr��e Stephan
----- Original Message -----
From: "Stephan Schumann" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, November 19, 2001 11:22 AM
Subject: [aspdebeginners] Re: AW: e-mail versand > 1min?? -> anmerkung
> 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
>
| 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
