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
