{NeoBook Function}
Version=5,80
Language=VBScript
Comment=This VBScript encode a url.
Param=[%1]|Text|
Param=[%2]|Variable|Variable to store result:
{End}
Function UrlEncode(url)
	For i = 1 To Len(url)
		n = Asc(Mid(url,i,1))
		If (n >= 48 And n <= 57) Or (n >= 65 And n <= 90) _
			Or (n >= 97 And n <= 122) Then
			UrlEncode = UrlEncode & Mid(url,i,1)
		Else
			ChrHex = Hex(Asc(Mid(url,i,1)))
                        For j = 0 to (Len(ChrHex) / 2) - 1
			    UrlEncode = UrlEncode & "%" & Mid(ChrHex,(2*j) + 1,2)
                        Next
		End If
	Next
End Function

'send the results to a NeoBook variable
nbSetVar "resultado",  UrlEncode("[%1]")
