Investor Centre

<% Dim firstname, lastname, fullname, address, city, province, country, postalcode, email, profile message="Please complete the following form to join our mailing list." if request.form("subSend")="Submit" then subSubscribe subSend end if Dim myCDONTSMail Dim strFrom Dim strTo Dim strSubject Dim strMessage Dim lngImportance %> <% 'PROCEDURES sub subSubscribe firstname=trim(request.form("firstname")) firstname=Replace(firstname,"""","") firstname=Replace(firstname,"'","''") lastname=trim(request.form("lastname")) lastname=Replace(lastname,"""","") lastname=Replace(lastname,"'","''") fullname=firstname & " " & lastname address=trim(request.form("address")) address=Replace(address,"""","") address=Replace(address,"'","''") city=trim(request.form("city")) city=Replace(city,"""","") city=Replace(city,"'","''") province=request.form("province") country=request.form("country") postalcode=trim(request.form("pcode")) email=trim(request.form("email")) email=Replace(email,"""","") email=Replace(email,"'","''") profile=request.form("profile") end sub sub subSend Set myCDONTSMail = CreateObject("CDONTS.NewMail") strFrom = email strTo = "news@crownpointventures.ca" strSubject = "Add: " & fullname strBody = fullname & chr(13) & chr(13) & address & chr(13) & city & ", " & province & chr(13) & country & ", " & postalcode & chr(13) & chr(13) & email & chr(13) & chr(13) & profile lngImportance = "1" myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance Set myCDONTSMail = Nothing message="Thank You " & ucase(firstname) & " and Welcome to Crown Point Ventures." subIndex end sub %> <%sub subIndex%> <%end sub%>

Crown Point Ventures Limited is a publicly traded company headquartered in Vancouver, Canada.

If you would like to obtain further information on the company, please contact us directly.

<%=message%>

First Name:
Last Name:
Address:
City:
Province/State:
Country:
Postal/Zip Code:
Email:
Profile:

Disclaimer Contact Us