<% function fixx(record) if not(isnull(record)) then fixx = replace(record,"'","''") else fixx = null end if end function Set oConn = Server.CreateObject("ADODB.Connection") oConn.Mode = adModeReadWrite 'response.write(Application("conn")) 'response.end oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/hazeldeanDB.mdb")&";Jet OLEDB:Database Password=s4bl3h0m3s;admin" oConn.open vars="" vals="" if request("submit")<>"" then for each x in request.form if x<>"Submit" then vars=vars&"["&x&"]," vals=vals&"'"&fixx(request(x))&"'," end if 'response.write(x&" = "&request(x)&"
") next vals=vals&"#"&now()&"#" vars=vars&"date_created" query="insert into contacts ("&vars&") values ("&vals&")" response.write(query) oConn.execute query,,adCmtTxt Set objNewMail = server.createobject("CDONTS.NewMail") message="" for each x in request.form if x<>"Submit" then message=message&x&" : "&request(x)&vbcrlf next objNewMail.From = "sablehomesza@abland.co.za" objNewMail.To = "susan.duplessis@sablehomes.co.za" '"events@ciscoevents.co.za" objNewMail.Subject = "Website Query - Hazeldean Development" objNewMail.Body = message objNewMail.Send set objNewMail = nothing response.redirect("thank_you.html") end if %>
     

Contact Us

Full name*
Contact number*
E-mail address*
Where did you hear about us?*
I am interested in:* Residential Property
  Commercial Property
  Industrial Property
  Retail Property
  Hazeldean Newsletter
Other comments
   
 

 

 Residential Enquiries:
Annamarie : 082 741 7766
Email : info@sablehomes.co.za

Commercial Enquiries:
Renier : 082 555 3979 renier.swarts@abland.co.za
 
Retail Enquiries:
Fransie : 082 772 1749 fransie.gouws@abland.co.za

Curro Primary and College:
012 809 0714