The remote server returned an error: (500) Internal Server Error.
<% Function emailsub (objFrom,objMessageTextbody, objsubject, recepients) Dim objMessage Dim objMessageFrom Dim objMessageSubject Set objMessage = CreateObject("CDO.Message") myMail.Subject=objsubject myMail.From= objFrom myMail.To=recepients myMail.TextBody=objMessageTextbody myMail.Send set myMail=nothing %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)