if session("realname") ="" then
session("realname") =""
end if
if session("email") ="" then
session("email") =""
end if
if session("comment") ="" then
session("comment") =""
end if
session("SecurityCode") = RandomString(6)
'Comment: Return a random number not bigger than the input parameter.
'------------------------------------------------------------------------------------------------------------
Function RandomNumber(iMax)
On Error Resume Next
Randomize
RandomNumber = Int(iMax * Rnd)
End Function
'------------------------------------------------------------------------------------------------------------
' Comment: Create a random string of lower case letters [a-z] for the css class names.
'------------------------------------------------------------------------------------------------------------
Function RandomString(iMax)
On Error Resume Next
Dim i, sTmp
For i = 1 To iMax
sTmp = sTmp & Chr(97 + RandomNumber(26)) '// Return a random number between 97 and 122, ascii values for [a-z]
Next
RandomString = sTmp
End Function
%>
Contact - Bali Directory - Information about resources in Bali - Designed and Managed by bali3000
