% @Language="VBScript" %> <% strMessage = "" if request("B1")="Submit" then strMessage = "----------------------------------------------------------------" & vbcrlf & _ "Name: " & request("Name") & vbcrlf & _ "E-mail: " & request("Email") & vbcrlf & _ "Contact Number: " & request("ContactNo") & vbcrlf & _ "Message: " & request("Message") & vbcrlf & _ "----------------------------------------------------------------" Set objMail = server.createobject("CDONTS.NewMail") objMail.Send "getraco@singnet.com.sg",request("email"),"your enquiry (" & request("option") & ")","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 (" & request("option") & ")", strMessage Set objMail = nothing end if %>
|
||||||||
|
|
|
|
||||
|
|
||||||
|
||||||