<% 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, "
") & "
*
*
*
*
*
   
         
<% 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 %>