vbscript email disclaimer

[novus]

could anyone tell me if there is anything wrong with this script we seem to be unable to make the script/eventsink work on our exchange2003 server.

<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "The information contained in this e-mail may be confidential and may also be legally privileged. It is intended solely for the addressee(s). If you are not the intended recipient then please delete forthwith. If a quotation is included, it is provided for budgetary purposes only and is subject to status. Quotes exclude VAT and are correct at time of quotation, but may change at any time. Emails are not guaranteed to be secure, the contents of this message may have been altered prior to delivery, and it is your responsibility as the recipient to have adequate virus protection. Any views or opinions expressed are those of the sender and may not reflect the views or opinions of brigade-electronics.com PLC which accepts no liability in respect thereof. If you have received this e-mail in error please notify the postmaster immediately by e-mail to [e-mail]."

HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>The information contained in this e-mail may be confidential and may also be legally privileged. It is intended solely for the addressee(s). If you are not the intended recipient then please delete forthwith. If a quotation is included, it is provided for budgetary purposes only and is subject to status. Quotes exclude VAT and are correct at time of quotation, but may change at any time. Emails are not guaranteed to be secure, the contents of this message may have been altered prior to delivery, and it is your responsibility as the recipient to have adequate virus protection. Any views or opinions expressed are those of the sender and may not reflect the views or opinions of brigade-electronics.com PLC which accepts no liability in respect thereof. If you have received this e-mail in error please notify the postmaster immediately by e-mail to [e-mail]"

If Msg.HTMLBody <> "" Then
'Search for the "</body>" tag and insert our disclaimer before that tag.
pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
szPartI = Left(Msg.HTMLBody, pos - 1)
szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
End If

If Msg.TextBody <> "" Then
http://www.thescripts.com/forum/newt...wthread&f=132#
Decrease Size Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
End If

'Commit the content changes to the transport ADO Stream object.
Msg.DataSource.Save ' Commit the changes into the transport Stream

EventStatus = cdoRunNextSink
End Sub
</SCRIPT>

cheers
Novus