<% Dim CR Dim MyBody Dim MyCDONTSMail CR = Chr(10) & Chr(13) %> Posilam Mail <% Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "hrachovm@vscht.cz" MyCDONTSMail.To= "hanusm@vscht.cz" MyCDONTSMail.Subject="This is a Test" MyBody = "Thank you for ordering that stuff" & CR MyBody = MyBody & "We appretiate your business" & CR MyBody = MyBody & "Your stuff will arrive within 7 business days" MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing %>