<% if (cbool(request("hdnIsSubmit"))) then dim sender, sEmail, rEmail, replyTo, mailSubject, mailContent sender = request("lstTitle") & " " & request("txtFirstName") & " " & request("txtLastName") sEmail = request("txtEmail") ' rEmail = "wing.siu@frasertec.com" rEmail = "marketing@musical.com.hk" replyTo = sEmail mailSubject = "Online Enquiry" '-- construct email content mailContent = "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" mailContent = mailContent & "" call send_mail(sender, sEmail, rEmail, replyTo, mailSubject, mailContent, true) call js_redirect ("enquiryform2.asp") end if %>

Name:	" & request("lstTitle") & " " & request("txtFirstName") & " " & request("txtLastName") & "
Company name:	" & request("txtCompanyName") & "
Postal Address:	" & replace(request("txtAddress"), vbCrLf, " ") & "
Town:	" & request("txtTown") & "
Postal Code:	" & request("txtPostalCode") & "
Country:	" & request("txtCountry") & "
Telephone:	" & request("txtTel") & "
Fax:	" & request("txtFax") & "
Email:	" & request("txtEmail") & "
Enquiry:	" & replace(request("txtComments"), vbCrLf, " ") & "

Title Mr Mrs Ms Miss Dr First Name* Last Name* Company Name Postal Address Town Post code Country Telephone* Fax E-mail* Your Enquiry*

<% sub send_mail(sender_name, sender_email, receiver_email, reply_to, subject, mail_content, is_html) dim mlObject '@ as CDONTS.NewMail '-- create new object set mlObject = server.createObject ("CDONTS.NewMail") '-- if it is html format if (is_html) then mlObject.bodyFormat = 0 mlObject.mailFormat = 0 end if '-- if it have reply to value if (reply_to <> "") then mlObject.value("Reply-To") = sender_name & "<" & reply_to & ">" end if mlObject.to = receiver_email mlObject.from = sender_name & "<" & sender_email & ">" mlObject.subject = subject mlObject.body = mail_content mlObject.send set mlObject = nothing end sub sub js_redirect(url) response.write ("") end sub %>