Danke f�r Eure Hilfen Mit freundlichen Gr��en Andr� Scheres http://hotelandre.de http://partnerhotels.com ----- Original Message ----- From: "Mayer Stefan" <[EMAIL PROTECTED]> To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]> Sent: Monday, November 26, 2001 10:19 PM Subject: [aspdecoffeehouse] AW: Emailadressen aus textfile auslesen
Ach ja - kleiner Nachsatz: Es wird dabei nicht gepr�ft, ob eine Mailadresse g�ltig ist - dies lie�e sich mit RegExp sehr leicht durchf�hren. Oder man l�scht halt die als unzustellbar zur�ckgekommenen Mails .... -----Urspr�ngliche Nachricht----- Von: Mayer Stefan [mailto:[EMAIL PROTECTED]] Gesendet: Montag, 26. November 2001 22:16 An: AspGerman Kaffeehaus Betreff: [aspdecoffeehouse] AW: Emailadressen aus textfile auslesen Nun, ich habe da vor einiger zeit folgendes programmiert - nur mit dem Unterschied, dass der Input kein Textfile sondern ein Formularfeld ("S1") ist. Ist eine quick'n-dirty-Aktion, funktioniert aber einigerma�en === CUT === <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Mailadressen extrahieren....</title> </head> <body> <%M = lcase(request("S1")) M = M & "<BR>" REM: Zerst die REPLACES: M = Replace(M," ",";") M = Replace(M,"=",";") M = Replace(M,">",";") M = Replace(M,"<",";") M = Replace(M,CHR(10),";") M = Replace(M,CHR(13),";") M = Replace(M,"("," ") M = Replace(M,")"," ") M = Replace(M,"["," ") M = Replace(M,"]"," ") M = Replace(M,","," ") M = Replace(M,";"," ") M = Replace(M,"SMTP:","<BR>") M = Replace(M,"TO:","<BR>") M = Replace(M,"An:","<BR>") M = Replace(M,"'","<BR>") M = Replace(M,":"," ") M = Replace(M," "," ") M = Replace(M," "," ") M = Replace(M," ","<BR>") M = Replace(M,CHR(34)," ") M = Replace(M,"<BR><BR>","<BR>") %> <p> </p> <p><% REM: Und jetzt die Klammeraffen suchen.... While M > "" P1 = Instr(M,"<BR>") St1 = Left(M,P1-1) L=Instr(St1,"@") St2 = St1 St1 = St1 + "<P>" If L > 0 AND Instr(St2,".") Then If Instr(Alle,St1) Then Doppel = Doppel + St1 Else Alle = Alle + St1 End If End If M = Mid(M,P1+4) Wend Response.write Alle %> </p> <p> </p> <p> </p> <p><strong>davon doppelt</strong></p> <p>:<%response.write Doppel%> </p> </body> </html> === CUT === Stefan -----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Gesendet: Montag, 26. November 2001 19:37 An: AspGerman Kaffeehaus Betreff: [aspdecoffeehouse] Emailadressen aus textfile auslesen Hallo, gibt es die M�glichkeit mit asp eine Textdatei nach emailadressen auszulesen und wie mu� die Verbindung aufgebaut werden? Mit freundlichen Gr��en Andr� Scheres http://hotelandre.de http://partnerhotels.com | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
