Back to Home
Company Profile
Quality Achievements
Products & Services
Contact Us
 
 
 

King's Wrought Iron And Metal Works
Blk 3018 Bedok North St 5 #03-13 Eastlink Singapore 486132
Tel : 6446 6255
Fax : 6445 3977
 
Feedback/Enquiries
Please fill in all the fields as indicated in BOLD.
<% 'check for mandatory fields not filled in Dim checkEmpty,Item For each Item in Request.Form If Item="name" And Request.Form(Item) = "" Then checkEmpty = "- Please fill in your name.
" & checkEmpty End If If Item="email" And Request.Form(Item) = "" Then checkEmpty = "- Please fill in your e-mail address.
" & checkEmpty ElseIf Item="email" And MatchString(Request.Form(Item),"\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*","MatchPattern") = False Then checkEmpty = "- Invalid e-mail address.
" & checkEmpty End If If Item="feedbackenq" And Request.Form(Item) = "" Then checkEmpty = "- Please fill in your feedback/enquiries.
" & checkEmpty End If Next If Request.Form("Submit") = "Submit" And checkEmpty = "" Then call SendMail Else Response.write "" & checkEmpty & "" End If %>
Name
: ">
Designation
: ">
Company
: " size="40">
Address
: " size="60">
E-mail address
: ">
Telephone No (Office)
: ">
 (Mobile)
: ">
Enquiries/Feedback
:
   
 
<% Function MatchString(strData, MatchPattern, strAction) 'Function for verifying data input or search for a character in a string expression 'Create a regular expression object Dim regEx, Matches, Match, iCharPosition Set regEx = New RegExp 'The global property tells the RegExp engine to find ALL matching 'substrings, instead of just the first instance. We need this to be true. regEx.Pattern = MatchPattern If strAction = "FindPosition" Then regEx.Global = False Set Matches = regEx.Execute(strData) For Each Match in Matches iCharPosition = Match.FirstIndex Next MatchString = iCharPosition ElseIf strAction = "MatchPattern" Then regEx.Global = True MatchString = regEx.Test(strData) End If End Function Function SendMail() 'using of JMAIL object to send email Dim objMail,SenderEmail,RecipientEmail,EmailSubject,MessageContent 'setting of variables SenderEmail = Request.Form("email") RecipientEmail = "biz@kingsteel.com.sg" EmailSubject = "Feedback/Enquiries for King's Wrought Iron And Metal Works" MessageContent = "Name : " & Request.Form("name") & chr(10) MessageContent = MessageContent & "Designation : " & Request.Form("designation") & chr(10) MessageContent = MessageContent & "Company : " & Request.Form("company") & chr(10) MessageContent = MessageContent & "Address : " & Request.Form("address") & chr(10) MessageContent = MessageContent & "Email : " & Request.Form("email") & chr(10) MessageContent = MessageContent & "Tel No (Office) : " & Request.Form("officetel") & chr(10) MessageContent = MessageContent & "Mobile No : " & Request.Form("mobile") & chr(10) MessageContent = MessageContent & "Enquiries/Feedback: " & Request.Form("feedbackenq") & chr(10) Set objMail = Server.CreateObject("JMail.Message") objMail.From = SenderEmail objMail.AddRecipient RecipientEmail objMail.Subject = EmailSubject objMail.Body = MessageContent objMail.Send("smtp.eworkz.com.sg") Set objMail = Nothing response.redirect("send_success.html") End Function %>