% @Language="VBScript" %> <% strMessage = "" if request("B1")="Submit" then strMessage = "----------------------------------------------------------------" & vbcrlf & _ "Name: " & request("Name") & vbcrlf & _ "E-mail: " & request("Email") & vbcrlf & _ "Company: " & request("Company") & vbcrlf & _ "Address: " & request("Address") & vbcrlf & _ "Contact Number: " & request("ContactNumber") & vbcrlf & _ "Budget: " & request("Budget") & vbcrlf & _ "Quality: " & requesT("Quality") & vbcrlf & _ "Description of Item: " & request("DescriptionOfItem") & vbcrlf & _ "Enquiry/Feedback: " & request("Feedback") & vbcrlf & _ "----------------------------------------------------------------" Set objMail = server.createobject("CDONTS.NewMail") objMail.Send "getraco@singnet.com.sg",request("email"),"your enquiry","Thank you for your enquiry. We will get back to you shortly" & vbcrlf & vbcrlf & strMessage Set objMail = nothing Set objMail = server.createobject("CDONTS.Newmail") objMail.Send request("email"),"getraco@singnet.com.sg","new enquiry", strMessage Set objMail = nothing end if %>
|
||||||||
|
|
|
|
||||
|
|
||||||
|
||||||