% If Request.Form("Submit")= "Submit" then Set objSend = Server.CreateObject("CDONTS.Newmail") objSend.From = Request ("Email") objSend.To = "info@physicaltimes" objSend.Subject ="Email Response" 'Request ("Subject") strBodyHeader= "This form was sent via e-mail on " _ & Now & ". " & "
" strBody ="" strBody = strBodyHeader & strBody strBody=strBody & "Name: " & Request ("custname")& "" strBody=strBody & "company: " & Request ("company")& "" strBody=strBody & "Address: " & Request ("address")& "" strBody=strBody & "Phone: " & Request ("phone")& "" strBody=strBody & "Fax: " & Request ("fax")& "" strBody=strBody & "Email: " & Request ("email")& "" strBody=strBody & "inquiry: " & Request ("inquiry")& "" 'Response.Write(strBody) objSend.Body = strBody objSend.Send set objSend = Nothing response.Redirect("thanks.htm") End If %>