The script is using a bunch of hidden fields as far as I can tell.
'************************************************* ******
'Get values from hidden fields for sending the mail
'************************************************* ******
form_from = Request.Form("mail_from") 'who is the mail from, e.g.
feedback@yoursite.com
form_to = Request.Form("mail_to") 'who is the mail to, e.g.
info@yourcompany.com
form_cc = Request.Form("mail_cc") 'leave blank if not needed! who is the carbon copy to be sent to, e.g.
joe@yourcompany.com
form_bcc = Request.Form("mail_bcc") 'leave blank if not needed! who is the blind carbon copy to be sent to, e.g.
karen@yourcompany.com
form_subject = Request.Form("mail_subject") 'text to appear in subject line of the e-mail
form_importance = Request.Form("mail_importance") 'importance of the e-mail. Must be a number 0, 1 or 2. 2 = High, 1 = Normal, 0 = Low
form_redirect = Request.Form("mail_redirect") 'page to redirect to after sending e-mail, e.g.
http://yoursite.com/thankyou.htm
To debug start by writing out all the parameters being passed then make sure that you are getting all the values (emails, names, etc)
Response.Write(Request.Form("mail_from"))
If that doesn't tell you anything, Try sending the email programatically first in another page alone.
'************************************************* ******
'Get values from hidden fields for sending the mail
'************************************************* ******
SET objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From = form_from
objMail.To = "email@domain.com"
objMail.CC = "email@domain.com"
objMail.BCC = "email@domain.com"
objMail.Subject = "Some subject"
objMail.Body = "Some text"
objMail.Send 'This line actually sends the e-mail
SET objMail = NOTHING
Hopes that help. Next time provide error message.
Good luck,