Different Email Recipient Issue

The form I have created is intended to send a email to an address based on what subject the user selects. Right now the form processes fine, but I receive no emails.

Dim name, email, phone, subject, message, customer, advertisement, truck, objNewMail
name = Request.Form("name")
email = Request.Form("email")
phone = Request.Form("phone")
subject = Request.Form("subject")
message = Request.Form("message")
customer = Request.Form("customer")
advertisement = Request.Form("advertisement")
message = Request.Form("truck")

Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = Request.Form("email")

if ("subject") = "1" then
objNewMail.To = "mrowan@hackworthrepro.com"
'hri@hackworthrepro.com

elseif ("subject") = "2" then
objNewMail.To = "foundsheep@yahoo.com"
'dcs@hackworthrepro.com

elseif ("subject") = "3" then
objNewMail.To = "foundsheep@gmail.com"
'production@hackworthrepro.com

'else if ("subject") = "4" then
'NewMailObj.To = "bmaury@hackworthrepro.com"

'else if ("subject") = "5" then
'NewMailObj.To = "slinton@hackworthrepro.com"

'else if ("subject") = "6" then
'NewMailObj.To = "mmartin@hackworthrepro.com"

'else if ("subject") = "7" then
'NewMailObj.To = "jvivio@hackworthrepro.com"

'else if ("subject") = "8" then
'NewMailObj.To = "hri@hackworthrepro.com"

end if

objNewMail.Subject = "Message from HRI Website"
objNewMail.Body = "Name: " & name & _
"<br>Email: " & email & _
"<br>Phone: " & phone & _
"<br>Subject: " & subject & _
"<br>Message: " & message & _
"<br>Heard About HRI from: " & customer & _
"<br>" & advertisement & _
"<br>" & truck

objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Send

Set objNewMail = nothing
Response.write "<p>Thank you for contacting Hackworth Reprographics, Inc. Your message has been successfully sent. You should expect a response from us within one business day. Have a great day.</p> <p>Return to <a href='default.asp'>Home Page</a></p>"