<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim dbOps,strSQL set dbOps = new dbOperations %> Welcome to HEALTH TOOLS ONLINE
   
 




G.P.O Box no 635
Sydney NSW 2001
Australia.

Ph: +61-2-8300 3323
Fax: +61-2-9398 3818

Email: info@yourpracticeonline.com.au
Website: www.yourpracticeonline.com.au

<% If(Request("sFlag") = "True") Then%>

Your Message has been sent! Thank you.

<%End If%>
method="post" class="body">
 
Subject*:
Comments*:
Name*:
Address:
City:
State:
Country
Post/Zip code:
Email*:
 

 

Home | Feedback | Advertise with us | Disclaimer | Privacy | Contact Us
DESIGNED / DEVELOPED BY
<% If Request.ServerVariables("REQUEST_METHOD")="POST" Then Dim smtpServer, smtpPort, oMail Dim strSenderEmail, strSubject, strRecipient, strComments, strMessage Dim strName,strAddress,strCity,strState,strCountry,strZip smtpServer = "216.187.77.94" smtpPort = 25 strSenderEmail = Request("txtEmail") strSubject = Request("txtSubject") strRecipient = "bhakta@cognosinfotech.com" strComments = Request("txtComments") strName = Request("txtName") strAddress = Request("txtAddress") strCity = Request("txtCity") strState = Request("txtState") strCountry=Request("cmbCountry") strZip = Request("txtZip") strMessage= strComments & "

" & strName & "
" & strAddress & "
" & strCity & "
" & strCountry & "
" & strZip Set oMail = Server.CreateObject("JMail.SMTPMail") oMail.ServerAddress = smtpServer & ":" & smtpPort oMail.Sender = strSenderEmail oMail.Subject = strSubject oMail.ContentType = "text/html" 'or you can put 'text/plain' for plain text email oMail.AddRecipient strRecipient oMail.ISOEncodeHeaders = False oMail.ContentTransferEncoding = "8bit" oMail.Body = strMessage ' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest oMail.Priority = 3 ' Add sender's IP address (not required, but useful for web-based email) oMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR") ' Actually send mail on error resume next oMail.Execute If(Err.Number = 0) Then response.write("Thank you, your mail has been sent") response.redirect C_F_CONTACT & "?sFlag=True" Else response.write(Err.description) End If Set oMail = Nothing strMessage="Your message has been sent!" End If %>