Enquiry Form

<% strHost = "mail.hi-rel.com.hk" If Request("Submit") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "" Mail.FromName = "HIREL Equiry Form" Mail.AddAddress "info@hi-rel.com.hk" Mail.Subject = "HIREL Enquiry Form Results" Mail.IsHTML = True strMailBody="" _ &"" _ &"" _ &" " _ &" " _ &"

" _ &" " _ &" " _ &" " _ &"

Enquiry Form Results

" _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &" " _ &"

Your Name:	" & Request("yourName") & "
Company Name:	" & Request("comName") & "
Your Position:	" & Request("yourPos") & "
Address:	" & Request("add1") & "
	" & Request("add2") & "
	" & Request("add3") & "
	" & Request("add4") & "
Telephone:	" & Request("telephone") & "	Fax:	" & Request("fax") & "
Email Address:	" & Request("email") & "	Website:	" & Request("web") & "
Enquiry Content:	" & Request("enquiryContent") & "

" _ &"

" _ &"" _ &"" strMailSent = "Your enquiry form is successfully sent!"_ &"
Thank you for your interest in our product."_ &"

Back to Home

" Mail.Body = strMailBody Mail.Send Response.Write strMailSent Else %> Enquiry Form

Enquiry Form

Your Name:*
Company Name:*
Your Position:
Address:*



Telephone:*		Fax:*
Email Address:*		Website:
Enquiry Content:

* Must be filled

<% End If%>