My-Partners | Feedback 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="Feedback : " & request.Form("selSubject") myMail.From=request.Form("txtEmail") myMail.To = "info@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 from : " & request.Form("selSource") & "
" & _ "Other : " & request.Form("txtOthers") & "

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

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

					SOLUTIONS FOR BUSINESS DEVELOPMENT

CONTACT US

ENQUIRIES

FEEDBACK

FIND US

Map

FEEDBACK

My-Partners

Tell us what you think! We at My-Partners Sdn. Bhd. are always interested in hearing comments or suggestion on our products and services or about your experience with our site. You can either visit us or send us an email. Your opinions and comments are very important to us in order for us to improve. Thank You.