%
if request("send") = 1 then
strBody = "First Name: " & request("first_name") & vbcrlf _
& "Last Name: " & request("last_name") & vbcrlf _
& "Telephone: " & request("phone") & " ext " & request("ext") & vbcrlf _
& "Company: " & request("company") & vbcrlf _
& "Email: " & request("email") & vbcrlf _
& "Comments: " & request("detail") & vbcrlf
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "sales@accutech-design.com"
objCDOMail.To = "sales@accutech-design.com"
objCDOMail.Subject = "Comments"
objCDOMail.Body = strBody
objCDOMail.Send
response.write "
Thank you for your inquiry. We will respond to you as soon as possible
|
CONTACT US
|