英语 国语 中文 捐赠 搜索 入党
主页 | 组织 | 背景 | 妇女运动 | 青年运动 | GKB 小组 | 图库  | 评论 | <%= Request.ServerVariables("REMOTE_USER")%>  <%= now %>

... Parti Maju Sabah (Sabah Progressive Party) .... United We Build, Together We Progress in Gabungan

Put your views, comments on how to help Sabah regain its pride

Follow Sappmedia on Tweet

Borneo Herald

A little contribution goes a long way

Message

Yong Teck Lee: "This is my promise to you, that our struggle continues and I will always be by your side"...."Trust and integrity of the leaders are fundamental to the future of a country or a government or, in our case, SAPP as a serious political party of the future"

------------

Send us yours to publish

SHOW YOUR SUPPORT

請捐助沙巴進步黨,改變沙巴政局,為沙巴人民爭取公平、民主、權益及發展之八點宣言。

 

八大宣言如下:

(一)     政府應實行良好的管理和非種族性的政治,並創造一個有進步,公平與和諧的社會。

(二)     沙巴應擁有政治自主,而政府應民治和由人民組成。

(三)     沙巴和其他產油州屬應獲得20巴仙油稅。

(四)     納閩聯邦直轄區應歸還給沙巴。

(五)     伸展到沙巴的不公平憲法和不利本州的聯邦部門應受到檢討。

(六)     沙巴應獲得公平參與聯邦行政、公共服務和私人界,並由本地大馬人為首。

(七)     聯邦政府和州政府應集合足夠的資源,政治力量和領導,並以堅決,但以人道的方式去解決非法移民難題,並著重區域性理念和精明伙伴合作。

(八)     聯邦和州政府應共同努力,俾克服我國影響沙巴和其他州屬的社經不平衡架構。

 

如何捐赠

支票捐款,请写予沙巴进步党Sabah Progressive Party 也可以送至此地址;

Sabah Progressive Party,
Lot 23, Tingkat 2, Jalan Kolam Luyang,
88300 Kota Kinabalu, Sabah, Malaysia.

现金捐款可以直接存入Maybank 银行的分行:
 

Bank Name : MayBank Berhad
Current Account No. : 510198018801
Online: http://www.maybank2u.com.my
 

謝謝!

沙巴進步黨總   敬啟

 

<% function GenerateTokenId() ' begin random function randomize dim random_number ' random numbers is the varible that will contain a numeriv value ' between one and nine random_number=int(rnd*10000000)+1 ' write the random number out to the browser GenerateTokenId = random_number end function function wordCount(text, word) Dim cnt, index cnt = 0 index = InStr(1, text, word) Do While index>0 cnt = cnt + 1 index = InStr(index + len(word), text, word) Loop wordCount = cnt end function dim sName, sEmail, sMessage, sender dim oCdoMail, oCdoConf, sConfURL dim sch, cdoConfig, cdoMessage dim tokenId dim bSendMail dim countHTTP bSendMail = false tokenId = trim(Request.Form("tokenId")) sMessage = Trim(Request.Form("Message")) 'response.write session("sendcomment_tokenId") & " " & tokenId & " " & Request.Form("Action") if Request.Form("Action") <> "" AND trim(session("sendcomment_tokenId"))=tokenId then ' Validation if sMessage<>"" Then countHTTP = wordCount(Request.Form("Message"), "Cannot be too many link, this system will consider it is spam" end if end if end if if bSendMail then session.Contents.Remove("sendcomment_tokenId") sName = Trim(Request.Form("Name")) sEmail = Trim(Request.Form("Email")) sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields '1=Send message using the local SMTP service pickup directory. '2=Send the message using the network (SMTP over the network) .Item(sch & "sendusing") = 2 ' cdoSendUsingPort - Send the message using the network (SMTP over the network). .Item(sch & "smtpserver") = "smtp.gmail.com" '"smtp.mail.yahoo.com" '"smtp.gmail.com" '"smtp-proxy.tm.net.my" '"smtp.sabah.com.my" .Item(sch & "smtpserverport") = 25 .Item(sch & "smtpconnectiontimeout") = 60 '.Item(sch & "usemessageresponsetext") = True ''' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ''' 2 for NTLM, 1 for basic, 0 for none (the default) '''.Item(sch & "smtpauthenticate") = 1 'basic (clear-text) authentication '''.Item(sch & "sendusername") ="username@someone.net" '''.Item(sch & "sendpassword") ="password" .Item(sch & "smtpauthenticate") = 1 'basic (clear-text) authentication .Item(sch & "smtpusessl") = True 'Use SSL for the connection (True or False) .Item(sch & "sendusername") = "sapp.kk.sbh@gmail.com" '"sappsabah@yahoo.com" '"sappsabah@gmail.com" .Item(sch & "sendpassword") = "sapp2008" '"$@pp2008" '"sapp2008" .update End With Set cdoMessage = CreateObject("CDO.Message") if sName = "" Then sender = sEmail else sender = sName & "<" & sEmail & ">" end if On Error Resume Next ' catch errors With cdoMessage Set .Configuration = cdoConfig .From = sender .ReplyTo = sender .TO = sender .BCC = "sappmedia@yahoo.com" .Subject = "Donation to SAPP" '.HTMLBody = sMessage .TextBody = sMessage .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing 'Set oCdoMail = Server.CreateObject("CDO.Message") 'Set oCdoConf = Server.CreateObject("CDO.Configuration") 'sConfURL = "http://schemas.microsoft.com/cdo/configuration/" 'with oCdoConf ' .Fields.Item(sConfURL & "sendusing") = 2 ' .Fields.Item(sConfURL & "smtpserver") = "smtp.sabah.com.my" ' .Fields.Item(sConfURL & "smtpserverport") = 25 ' .Fields.Update 'end with 'with oCdoMail ' .From = sEmail ' .To = sEmail ' .BCC = "sappkk@streamyx.com,moneyloy@yahoo.com" ' .Subject = "Donation to SAPP" ' .TextBody = sMessage ' .Configuration = oCdoConf ' .Send ' 'end with 'Set oCdoConf = Nothing 'Set oCdoMail = Nothing If Err.Number = 0 Then response.write "Thanks for your donation!" Else Response.write "
" & err.description & "
" End If else tokenId = GenerateTokenId session("sendcomment_tokenId")=tokenId %>

Our comment box below can be used to notify us of any donations made.

">

Name/Nama/名

E-mail/E-mel/电子邮件

Sum to donate/Jumlah sumbangan/捐赠数额

<% end if %>



Copyright (C) 1996-2015 Sabah Progressive Party (R) All Rights Reserved
Pages maintained by Sabah Progressive Party