Hab den Fehler gefunden, in der DB war ein Datensatz ohne eMailadresse drin. gruss Matthias > -----Urspr�ngliche Nachricht----- > Von: Matthias Winkler [mailto:[EMAIL PROTECTED]] > Gesendet: Mittwoch, 26. September 2001 14:48 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] global.asa + aspmail > > > Hallo Leute, > > ich brauche mal wieder Eure Hilfe. > Unten habe ich den Code f�r meine global.asa stehen. Dazu kommt > folgende Fehlermeldung. > > ******* > Persits.MailSender.4-Fehler '800a0006' > > 550 Recipient not here > > //global.asa, Zeile 115 > ******* > > Die Komponente ist installiert und funktioniert. > > Funkioniert das allgemein in einer global.asa nicht? > > Danke > Matthias > > Script > <SCRIPT LANGUAGE=VBScript RUNAT=Server> > Sub Application_OnStart > Application("myAktuellesDatum") = "16.07.01" > End Sub > > Sub Session_OnStart > Application.Lock > Application("myAnzahlAktuelleUser") = > Application("myAnzahlAktuelleUser") + 1 > Application.Unlock > > Session("myAktuellesDatum") = Date() > > IF NOT CDate(Session("myAktuellesDatum")) = > CDate(Application("myAktuellesDatum")) THEN > Application("myAktuellesDatum") = > Session("myAktuellesDatum") > > strConnection = "Driver={Microsoft Access Driver > (*.mdb)};DBQ=" > strConnection = strConnection & > Server.MapPath("/_scripts/meineDB.mdb") > strConnection = strConnection & > ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;" > > set MyConn=Server.CreateObject("ADODB.Connection") > MyConn.Open strConnection > > ' Oeffnen Recordset, Anzahl der Kunden auslesen > sqlSelect = "SELECT COUNT(*) FROM tKUNDEN" > Set MyRS = MyConn.execute(sqlSelect) > > myFeldgroesse = MyRS(0) - 1 > Application("myAnzahlKunden") = myFeldgroesse + 1 > ReDim myFeld(myFeldgroesse,5) > > ' Schliessen Recordset > MyRS.Close > Set MyRS = Nothing > > sqlSelect = "SELECT DB_KUNDENID, > DB_INTERNOBJEKTLAUFZEITDEAKTIVIERUNG, > DB_INTERNOBJEKTLAUFZEITLOESCHUNG FROM tKUNDEN" > Set MyRS = MyConn.execute(sqlSelect) > > ' Feld fuellen mit Daten der Kunden > DO WHILE NOT MyRS.EOF > myFeld(x,0) = MyRS("DB_KUNDENID") > myFeld(x,1) = > MyRS("DB_INTERNOBJEKTLAUFZEITDEAKTIVIERUNG") > myFeld(x,2) = > MyRS("DB_INTERNOBJEKTLAUFZEITLOESCHUNG") > myFeld(x,3) = MyRS("DB_GESCHLECHT") > myFeld(x,4) = MyRS("DB_NAME") > myFeld(x,5) = MyRS("DB_EMAIL") > > x = x + 1 > MyRS.MOVENEXT > LOOP > > ' Schliessen Recordset > MyRS.Close > Set MyRS = Nothing > > For x = 0 to UBound(myFeld) > sqlDelete = "DELETE FROM tOBJEKTEINTRAG > WHERE DB_KUNDENID=" & myFeld(x,0) & " AND DB_INTERNAENDERUNGDATUM > <= #" & getDatum(Date()-myFeld(x,2)) & "#" > 'Response.Write(sqlDelete & "<br>") > MyConn.execute(sqlDelete) > Next > > For x = 0 to UBound(myFeld) > sqlUpdate = "UPDATE tOBJEKTEINTRAG SET > DB_INTERNOBJEKTSICHTBAR = 0 WHERE DB_KUNDENID=" & myFeld(x,0) & " > AND DB_INTERNAENDERUNGDATUM < #" & getDatum(Date()-myFeld(x,1)) & > "# AND NOT DB_INTERNOBJEKTSICHTBAR = 0" > MyConn.execute(sqlUpdate) > sendMail > myFeld(x,5),"[EMAIL PROTECTED];[EMAIL PROTECTED]","IMSAX.NET > Objektdeaktivierung",myMailbody(myFeld(x,3),myFeld(x,4)) > Next > > ' Schliessen Connection > MyConn.Close > Set MyConn = Nothing > END IF > End Sub > > Sub Session_OnEnd() > Application.Lock > Application("myAnzahlAktuelleUser") = > Application("myAnzahlAktuelleUser") - 1 > Application.Unlock > End Sub > > Function myMailbody(myGeschlecht,myName) > myMailbody = "" > > If myGeschlecht = "Herr" then > myMailbody = myMailbody & "Sehr geehrter Herr " & > myName & "," & vbCrLf > Else > myMailbody = myMailbody & "Sehr geehrte Frau " & > myName & "," & vbCrLf > End If > > > myMailbody = myMailbody & myMailBottom() > End Function > > '*** Funktion um Mail zu verschicken *** > SUB sendMail(myMailempfaenger,myMailempfaengerBcc,mySubject,myMailbody) > Set Mail = Server.CreateObject("Persits.MailSender") > Mail.Host = "mail.meinserver.net" ' Specify a valid SMTP server > Mail.From = "[EMAIL PROTECTED]" ' Specify sender's address > Mail.FromName = "www.meinserver.net" ' Specify sender's name > > Mail.AddAddress myMailempfaenger > Mail.AddBcc myMailempfaengerBcc > Mail.Subject = mySubject > Mail.Body = myMailbody > Mail.IsHTML = False > > 'On Error Resume Next > Mail.Send > 'If Err <> 0 Then > ' Response.Redirect("../default.asp") > 'End If > > Set Mail = Nothing > END SUB > > Function myMailBottom() > myMailBottom = myMailBottom & "--" & vbCrLf > myMailBottom = myMailBottom & > "____________________________________________" & vbCrLf > End Function > > '*** Funktionen um deutsches Datumsformat in amerikanisches > Datumsformat zu konvertieren *** > Function getDatum(myDatum) > > myTag = getFormatDatum(day(myDatum)) > myMonat = getFormatDatum(month(myDatum)) > myJahr = year(myDatum) > > getDatum = myMonat & "/" & myTag & "/" & myJahr > > End Function > > Function getFormatDatum(myFormatDatum) > > IF LEN(myFormatDatum) = 1 THEN > getFormatDatum = 0 & myFormatDatum > ELSE > getFormatDatum = myFormatDatum > END IF > > End Function > '*** Ende // Funktionen um deutsches Datumsformat in > amerikanisches Datumsformat zu konvertieren *** > </SCRIPT> > > > | 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
