%@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 %>
|