Services
 
 
 
 
Contact Us
 
Come and see us at three locations. Blackburn, Brighton and Hapburn Springs
Call me now on: 0412 370 681
Feedback Form
* Name:
Telephone:
Fax:
* Email:
* Message:
 
 

 

 
 
 
 
 
<% Dim strBody Dim strHeader Dim strSubject Dim strFromEmail Dim strToEmail 'Dim strCcEmail strFromEmail = Request.Form("email") if strFromEmail <> "" then strSubject ="Feedback from myhypnotherapist.com.au" 'strToEmail ="info@myhypnotherapist.com.au" strToEmail ="info@myhypnotherapist.com.au" 'strCcEmail="meenu.sharma@shivam.com.au" strHeader = strSubject strBody ="" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "" strBody =strBody + "
Feedback from myhypnotherapist.com.au

Name : "& Request.Form("name") &"
Telephone : "& Request.Form("phone") &"
Fax : "& Request.Form("fax") &"
Message : "& Request.Form("message") &"

" 'Response.write(strBody) 'Response.end() 'On Error Resume Next 'Dim MailObj 'Mail object 'Set MailObj = CreateObject("CDO.Message") 'With MailObj '.Subject = strSubject '.From = strFromEmail '.To = strToEmail '.Cc = strCcEmail '.Bcc = emailto '.HTMLBody =strbody '.Send 'End With 'Response.Redirect("thanks.htm") Set myMail=CreateObject("CDO.Message") myMail.Subject=strSubject myMail.From=strFromEmail myMail.To=strToEmail 'myMail.Cc=strCcEmail myMail.HTMLBody=strbody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="115.178.19.61" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect("thanks.htm") end if %>
Copyrights © 2007, Hoehmann Hypnosis. All Rights Reserved.
Design & Marketed By Shivam