<!-- #INCLUDE FILE="doc.asp" -->

<!-- #INCLUDE VIRTUAL="/lib/formObj.asp" -->

<%
DIM f, r

StartDoc "Contact Us"

	OpenDatabase
	SET r = db.LockRs

	Print "Send email to us now or use our Online Contact Form. Any questions or enquiries are welcomed. Your info are confidential and we would not used it for any other purposes other than answering your query.<br><br>"

	SET f = NEW MyForm

	'POpen

	DXOpen "Contact Form"
	f.Open "", "sendContact.asp"
	'COpen "Send To": f.ListBox "ToUser", "Webmaster,Argentina, Australia, Bangladesh, Belgium, Canada, Egypt, Greece, Hong Kong, India, Italy, Japan, Korea, Libya, Malaysia, Malta, New Zealand, Singapore, South Africa, Turkey, United Kingdom, USA", c: Print " <I>Select your recipient / country</I>": CClose
	COpen "Company": f.Edit "Company", "", 40, 50: CClose
	COpen "Your Name": f.Edit "Name", "", 40, 50: CClose
	COpen "Email": f.Edit "Email", "", 40, 64: CClose
	COpen "Tel": f.Edit "Tel", "", 40, 20: CClose
	COpen "Fax": f.Edit "Fax", "", 40, 20: CClose
	COpen "Address": f.Memo "Address", "", 3, 40: CClose
	COpen "Country": f.DBListBox "CountryID", "SELECT ID, Name FROM Countries ORDER BY Name", "Name", "Name", "Malaysia": CClose
	COpen "Subject": f.Edit "Subject", "", 70, 100: CClose
	COpen "Message": f.Memo "Message", "", 13, 70: CClose
	COpen "": f.Submit " Send To Us "
		f.Close
	DXClose

	'POpen

	'TOpen2 200, "Notes"
	'Print "Send email to us now or use our Online Contact Form. Any questions or enquiries are welcomed. Your info are confidential and we would not used it for any other purposes other than answering your query.<br><br>"
	'TClose

	'PClose
EndDoc
%>