<% result = true temp = "now" if request("Submit") = "Submit" then table = "
Error Report Please Correct The Following:

" if trim(request("work email 1")) = "" then table = table & "Please Enter A Valid Email Address

" result = false end if if inStr(1, request("work email 1"),"@") = 0 then table = table & "Your Email Address Does Not Seem To Be Valid

" result = false end if if trim(request("subject")) = "" then table = table & "Please Enter A Subject

" result = false end if if trim(request("comments")) = "" then table = table & "Please Enter Your Comments

" result = false end if table = table & "
" Else result = false End if if request("reset") = "Clear" then mname = "" msubject = "" memail = "" mphone ="" mcomments ="" send = "no" end if if result = false then response.write(table) send = "no" mname = request("name") msubject = request("subject") memail = request("work email 1") mphone = request("phone") mcomments = request("comments") else send = "yes" end if if send = "yes" then For Each x In Request.Form message = message & x & ": " & Request.Form(x) & CHR(10) if not instr(1, Request.Form(x),"@") = 0 then email = Request.Form(x) end if Next set smail=Server.CreateObject("CDO.Message") smail.To="info@webft.com.au" smail.Cc ="sganesh@webft.com.au" smail.From= request("work email 1") smail.Subject=request("subject") smail.TextBody = message smail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server smail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="192.168.5.5" 'Server port smail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 smail.Configuration.Fields.Update smail.Send if err then response.Write err.Description else end if set smtp = Nothing set smail = Nothing end if if temp = "now" then %>

Contact Us

Website: www.hdamedical.com.au

Business hours:
Monday - Thursday: 8.30am to 5.00pm Friday: 9.15am to 4.15pm

Business address: H.D.A. Medical Group Pty Ltd
Suite 8, 200 Sydney Road, Brunswick Victoria 3056, Australia

Phone: (03) 9387 4588 Fax: (03) 9388 1697
Sessional rooms:
110 Heaths Road, Hoppers Crossing, Victoria 3030
12 - 14 St Lawrance Way, Rowville, Victoria 3178
53 Victoria Street, Hastings 3915

Australian Business Number: 45 157 292 944
Enquiry Form
Company name:
Your Phone Number:
Your e-mail:
Subject:
Comments:
<%end if%>