% Response.Buffer=true %>
<%
Dim MyBody
Dim MyCDONTSMail
function sendNote
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "CONTACT Page"
MyCDONTSMail.To= "karimi@karimiconsulting.com"
MyCDONTSMail.Subject="Service request/Volunteer/Comment"
MyBody = "Thank you for ordering that stuff" & vbCrLf
MyBody = MyBody & "We appretiate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
end function
'sendNote
%>
DESC: Contact Us
Mailing Address
Crossroads Building
16250 Northland Dr.
Suite 390
Southfield, MI 48075