My-Partners | Enquiry Us

<%@ Language=VBScript %> <% If request.Form("txtComment") <> "" Then 'Send Email Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig 'as CDO.Configuration Dim Fields 'As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.mypartners.com.my" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "email@mypartners.com.my" '<-------------kene tukar .Item(cdoSendPassword) = "email123" '<-------------kene tukar .Update End With Set myMail=CreateObject("CDO.Message") Set myMail.Configuration = objConfig myMail.Subject="Enquiry on " & request.Form("selProduct") myMail.From=request.Form("txtEmail") myMail.To = "info@mypartners.com.my" 'myMail.Bcc = "izwan@mypartners.com.my" myMail.HTMLBody = "" & "Dear My-Partners,

" & _ Replace(request.Form("txtComment"),vbCrLf,"
") & "

" & _ "User's information
" & _ "Email : " & request.Form("txtEmail") & "
" & _ "Company : " & request.Form("txtCompany") & "
" & _ "Phone : " & request.Form("txtPhone") & "
" & _ "Find website : " & request.Form("selSource") & "
" & _ "Other : " & request.Form("txtOthers") & "

" & _ "Click " & "here to reply." & "

" & _ "From,
" & _ request.Form("txtName") & "" myMail.Send set myMail=nothing response.redirect "info-enquiry.asp?msg=Thank you for your enquiry." End If %> My-Partners | Enquiry Us

					SOLUTIONS FOR BUSINESS DEVELOPMENT

CONTACT US

ENQUIRIES

FEEDBACK

FIND US

Map

ENQUIRIES

My-Partners

Please send us your enquiries on our products or services. Just type in your enquiries and then submit. We will get back to you soon. Thank You.

Name* :
Company :
Email* :
Phone :
Enquiry About* :
Comment / Feedback* :
How you find our website?*
Others
	*required