>>>
////////////////
on sendmail address, subject, message
set addressString = "[EMAIL PROTECTED]"
set subjectString = urlEncode("contact")
set messageString = urlEncode (" ______ // ____ \ _____ |___ // ___ ")
gotonetpage "mailto:"&addressString&"?subject="&subjectString&"&body="&messageString
end
on urlEncode whichString
if NOT stringP(whichString) then exit
set reservedListASCII = [32, 123, 125, 124, 92, 94, 126, 91, 93, 39,35,37, 60, 62,
34, 59, 44, 47, 63, 58, 64, 61, 38, 13]
set replaceList = ["%20", "%7B", "%7D", "%7C", "%5C", "%5E", "%7E", "%5B","%5D",
"%27", "%23", "%25", "%3C", "%3E", "%22", "%3B", "%2C", "%2F", "%3F","%3A", "%40",
"%3D", "%26","%0D"]
set sLength = the number of chars in whichString
repeat with i = 1 to sLength
set currentChar = charToNum(char i of whichString)
set replaceLoc = getOne(reservedListASCII,currentChar)
if replaceLoc then
put getAt(replaceList,replaceLoc) into char i of whichString
set i = i + 2
set sLength = sLength + 2
end if
end repeat
return whichString
end
\
bzzz
p/
\\\\\\\\
grazie a
http://www.area3.net/barcelona
in axion
http://www.fiftyfifty.org
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
