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

Contribution to SAY YES to Our Struggle.... 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 harmonious society; 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 States. 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 Online: http://www.maybank2u.com.my   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 : +6088-242107 Thank You Sabah Progressive Party

<% 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 "