' convert a string so that it can be used on a URL path'' Same effect as the Server.URLPathEncode method in ASPFunction URLPathEncode(ByVal Text As String) As String Dim i As Integer Dim acode As Integer URLPathEncode = Text For i = Len(URLPathEncode) To 1 Step -1 acode = Asc(Mid$(URLPathEncode, i, 1)) Select Case acode Case 48 To 57, 65 To 90, 97 To 122 ' don't touch alphanumeric chars Case 33, 35, 36, 38, 42, 43, 45, 46, 47, 58, 63, 64, 95, 126 ' these punctuation chars require no translation Case Else ' replace other chars with "%hex" URLPathEncode = Left$(URLPathEncode, i - 1) & "%" & Hex$(acode) _ & Mid$(URLPathEncode, i + 1) End Select Next End Function

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job