Sabah Progressive Party Online - Chinese Version

英语

国语

中文

捐赠

搜索

入党

主页 | 组织 | 背景 | 妇女运动 | 青年运动 | GKB 小组 | 图库 | 评论 | <%= Request.ServerVariables("REMOTE_USER")%> <%= now %>

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

Tweets & News

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.

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