%
DIM x, body, mMail, contact
contact = Request.Form("contact")
IF contact <> "" THEN
body = "Contact Request:" & vbcrlf & vbcrlf
FOR EACH x IN Request.Form
body = body & x & " = " & Request.Form( x ) & vbcrlf
NEXT
SET mMail = Server.CreateObject("CDONTS.Newmail")
' An email that will show up in the from part of the message
mMail.From = Request.Form("email")
' This is the email that the information is to be sent to
' This has to be an email of the domain that is hosted on the server
mMail.To = "adina@marketconsult.com"
'The subject that you want to show when you get the email
mMail.Subject = "Contact Request"
mMail.Body = body
mMail.Send
set mMail = nothing
END IF
%>
MarketConsult - Contact Us - Canadian Web Consulting and Direct Marketing Services
|
| |
|
|
|
MarketConsult
Inquiry
Email: adinaz@rogers.com
Phone:
416-728-7913. Fax:
905-764-5745
|
|
| MarketConsult
is located in Toronto, Canada and serves clients in Canada, the US
and internationally. |
For a project quote or a copy of the NRB Presentation,
please email
me at:
adina@marketconsult.com or sales@marketconsult.com
Phone:
416-728-7913.
Fax:
905-764-5745
|
|
| |
|