<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True %> <% Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") %> <% p_contactname = Request.form("contactname") p_compname = Request.form("compname") p_add = Request.form("add") p_country = Request.form("countrydesc") p_contactno = Request.Form("contactno") p_faxno = Request.Form("faxno") p_email = Request.form("email") p_remarks = Request.form("remarks") 'email settings p_compurl = Request.Form("comp_url") p_sitename = Request.Form("sitename") p_recipient = Request.Form("recipient") p_redirect = Request.Form("redirect") sMonths = "JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC" arrMonths = split(sMonths, ",") anDay = day(Now()) anMonth = month(Now()) anYear = year(Now()) snMonth = arrMonths(anMonth - 1) p_date = anDay & "/" & snMonth & "/" & anYear Dim p_messagecc 'Client Copy Start p_subjectcc = "Enquiry from web (" & p_sitename & ") - by " & p_contactname p_messagecc = "You have received an Enquiry from " & p_contactname & "," & " please refer the below details:" & vbcrlf & vbcrlf p_messagecc = p_messagecc & "Enquiry Details" & vbcrlf p_messagecc = p_messagecc & "======================" & vbcrlf p_messagecc = p_messagecc & "Date : " & p_date & vbcrlf & vbcrlf p_messagecc = p_messagecc & "Contact Name : " & p_contactname & vbcrlf p_messagecc = p_messagecc & "Company Name : " & p_compname & vbcrlf p_messagecc = p_messagecc & "Email : " & p_email & vbcrlf p_messagecc = p_messagecc & "Address : " & p_add & vbcrlf p_messagecc = p_messagecc & "Country : " & p_country & vbcrlf p_messagecc = p_messagecc & "Contact Number : " & p_contactno & vbcrlf p_messagecc = p_messagecc & "Fax Number : " & p_faxno & vbcrlf p_messagecc = p_messagecc & "Remarks : " & p_remarks & vbcrlf & vbcrlf p_messagecc = p_messagecc & "Thank you." & vbcrlf & vbcrlf p_messagecc = p_messagecc & "**This is an auto generated mail." & vbcrlf & vbcrlf p_subjectvc = "Thank you for your enquiry from " & p_compurl msgBody = "Dear " & p_contactname & "," & vbcrlf & vbcrlf msgBody = msgBody & "Thank you for your enquiry." & vbcrlf & vbcrlf msgBody = msgBody & "You have sent an Enquiry from " & p_compurl & "," & " please refer the below details:" & vbcrlf & vbcrlf msgBody = msgBody & "Enquiry Details" & vbcrlf msgBody = msgBody & "======================" & vbcrlf & vbcrlf msgBody = msgBody & "Date : " & p_date & vbcrlf & vbcrlf msgBody = msgBody & "Contact Name : " & p_contactname & vbcrlf msgBody = msgBody & "Company Name : " & p_compname & vbcrlf msgBody = msgBody & "Email : " & p_email & vbcrlf msgBody = msgBody & "Address : " & p_add & vbcrlf msgBody = msgBody & "Country : " & p_country & vbcrlf msgBody = msgBody & "Contact Number : " & p_contactno & vbcrlf msgBody = msgBody & "Fax Number : " & p_faxno & vbcrlf msgBody = msgBody & "Remarks : " & p_remarks & vbcrlf & vbcrlf msgBody = msgBody & "Please call or fax it to us if you do not receive our reply within 3 working days." & vbcrlf & vbcrlf msgBody = msgBody & "Thank you." & vbcrlf & vbcrlf msgBody = msgBody & "**This is an auto generated mail." & vbcrlf & vbcrlf '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.locus.com.my" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "feedback@locus.com.my" 'Your password on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "feedback99" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== With objMessage .To = p_email .From = p_recipient .Subject = p_subjectvc .TextBody = msgBody .Send .To = p_recipient .From = p_email .Bcc = "feedback@locus.net.my" .Subject = p_subjectcc .TextBody = p_messagecc .Send End With %> <% else %> <% CheckCAPTCHA = False end if End Function %> <%= Application("system_title") %> <% p_contactname = Request.form("contactname") p_compname = Request.form("compname") p_add = Request.form("add") p_country = Request.form("countrydesc") p_contactno = Request.Form("contactno") p_faxno = Request.Form("faxno") p_email = Request.form("email") p_remarks = Request.form("remarks") p_prodid = Request("prod_id") %>
 
We thank you for taking time to visit our website. We wish we can serve you better by answering your concerns and questions, and heartily appreciate your comments. Please complete and submit the following form.
 
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> <%else%> <% end if end if %>
* Contact Name
  Company Name
* Email (eg. abc@xyz.com)
  Address
  Country
* Contact Number (eg. 03-1234567, please enter 031234567)
  Fax Number (eg. 03-1234567, please enter 031234567)
  Remarks
* Verify your entry This Is CAPTCHA Image Code not clear? Click here
    Verified (<%=strCAPTCHA%>)
    Not Verified. Please Retry.
  Enter Code shown above