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
' begin random function
' random numbers is the varible that will contain a numeriv value
' between one and nine
' write the random number out to the browser
GenerateTokenId = random_number
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)
wordCount = cnt
dim sName, sEmail, sMessage, sender
dim oCdoMail, oCdoConf, sConfURL
dim sch, cdoConfig, cdoMessage
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
if sMessage<>"" Then
countHTTP = wordCount(Request.Form("Message"), "Cannot be too many link, this system will consider it is spam"
if bSendMail then
sName = Trim(Request.Form("Name"))
sEmail = Trim(Request.Form("Email"))
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
'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") ="firstname.lastname@example.org"
'''.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") = "email@example.com" '"firstname.lastname@example.org" '"email@example.com"
.Item(sch & "sendpassword") = "sapp2008" '"$@pp2008" '"sapp2008"
Set cdoMessage = CreateObject("CDO.Message")
if sName = "" Then
sender = sEmail
sender = sName & "<" & sEmail & ">"
On Error Resume Next ' catch errors
Set .Configuration = cdoConfig
.From = sender
.ReplyTo = sender
.TO = sender
.BCC = "firstname.lastname@example.org"
.Subject = "Donation to SAPP"
'.HTMLBody = sMessage
.TextBody = sMessage
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/"
' .Fields.Item(sConfURL & "sendusing") = 2
' .Fields.Item(sConfURL & "smtpserver") = "smtp.sabah.com.my"
' .Fields.Item(sConfURL & "smtpserverport") = 25
' .From = sEmail
' .To = sEmail
' .BCC = "email@example.com,firstname.lastname@example.org"
' .Subject = "Donation to SAPP"
' .TextBody = sMessage
' .Configuration = oCdoConf
'Set oCdoConf = Nothing
'Set oCdoMail = Nothing
If Err.Number = 0 Then
response.write "Thanks for your donation!"
Contribution to SAY
YES to Our
Sustain our existing campaigns for
democracy, social justice and rights
Continue our political training for
members, research and development
To fulfill our commitment to realize our
8-points declaration for Malaysians especially in Sabah.
That the government shall be of the people and based on good governance
and civil society and non-racial politics based on a progressive, just and
that Sabah shall have political autonomy
whereby the government shall be formed and run by the people of Sabah;
that Sabah and other oil producing States shall be entitled to the
petroleum royalty of 20%;
that the Federal Territory of Labuan shall
be returned to Sabah and governed as a special region;
that unfair and imprudent federal laws
which have been extended to Sabah and federal departments and which are to
the detriment of he State shall be reviewed;
that Sabah shall be given fair and just
participation in the federal administration, the civil service and private
sector, and that the federal departments in Sabah shall, as far as
possible, he headed by local Malaysians;
that the federal government and the state
governments shall put in sufficient resources, political will and
leadership in solving the illegal immigrant problems in a firm but humane
manner, with emphasis on regional concept and smart partnership; and
that the federal and state governments
shall together work on redressing the in-built structural imbalances in
the economic and social structure of the country affecting Sabah and other
How to donate
Cheques are payable to SAPP under
the name of "Sabah Progressive Party" and can be sent to this address;
Sabah Progressive Party,
Lot 23, Tingkat 2, Jalan Kolam Luyang,
88300 Kota Kinabalu, Sabah, Malaysia.
Donations through the bank can be done
at all Maybank branches:
Bank Name : MayBank Berhad
Current Account No. : 510198018801
Please be informed that SAPP does not solicit donations through any persons
/persons /individuals /agents.
Cases like these should be referred to our Party Headquarters at Tel :
Sabah Progressive Party
" & err.description & ""
tokenId = GenerateTokenId
Our comment box below
can be used to notify us of any donations made.