Bei fehlenden Datensätzen wird keine Meldung ausgegeben

[pervenches]

Guten Tag,

Ich habe ein Script, das bei leeren Datensätzen eine entsprechende Meldung per Email versenden sollte auf DTS.
Es funktioniert, wenn Daten vorhanden sind. Doch ist die Abfrage leer gibt der DTS die Meldung "successfully completed execution of package" doch es wird kein Email mit der entsprechenden Meldung versandt.
Kann mir jemand helfen?
Hier der entsprechende Scriptausschnitt:

'Falls Daten leer sind Meldung, entsprechende Meldung.
	If (objRS.Eof and objRS.Bof ) Then
    strTable = strTable & ("<p><font size='2' face='arial'>Es gibt keine Daten</font>")

    
	'Wenn die Daten nicht leer sind wird weiter gefahren.
	 Else 			
	       While Not objRS.Eof 'Hier werden die Daten aus den Tabellen gelsen abgefragt.
			
			'Jetzt erstell den Nachrichtenteil des Emails.
			strTable = FormatRecordset(objRs)
			
			'Jetzt wird das Email mit der HTML-Tabelle versandt.
			Call send_email("Auswertung", strTable)
			
	    Wend
	 End If 
	 'Die Variablen werden zurück gesetzt. 
               Set objRS = Nothing

	End Sub

Gruss
Tanja

[O. Helper]

Hallo Tanja,

das "send_email" steht doch nur im ELSE Zweig; pack es doch nach den IF ... END Anweisung.

....
End If
'Jetzt wird das Email mit der HTML-Tabelle versandt.
Call send_email("Auswertung", strTable)

'Die Variablen werden zurück gesetzt.
Set objRS = Nothing


Gruß, Olaf

[pervenches]

Hallo Olaf

Genau so war's.
Ganz herzlichen Dank!

Gruss
Tanja