|
 |
|
|
|
 |
|
 |
|
 |
|
 |
|
 |
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 |
|
|
|
  |
|
Views and Comments
from the Public on Sabah Progressive Party...
We invite visitors to this Home Page to offer any comments on how we
can further improve our information service via this electronic
means.
The SAPP also welcomes views on how it can improve its services to
the society for the progress and development of the State of Sabah
in particular,and our country Malaysia as a whole.
Please enter your COMMENTS HERE. Thank you
Please feel free to drop down any comments and suggestion that the
Party should work on at present or in the future.....
|
<%
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 = "moneyloy@yahoo.com,sappmaju@gmail.com,yongtl33@gmail.com,melanieckchia@gmail.com,sappmedia@yahoo.com,chuasb2008@gmail.com,wekongyong@yahoo.com,mdpchongpitfah@yahoo.com"
'.BCC = "yhlai@gmail.com"
.Subject = "SAPP Comment Box"
'.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,ybyong@tm.net.my"
' .Subject = "SAPP Comment Box"
' .TextBody = sMessage
' .Configuration = oCdoConf
' .Send
'
'end with
'Set oCdoConf = Nothing
'Set oCdoMail = Nothing
If Err.Number = 0 Then
response.write "Thanks for your comment!"
Else
Response.write "" & err.description & " "
End If
else
tokenId = GenerateTokenId
session("sendcomment_tokenId")=tokenId
%>
<%
end if
%> |
|
