If anyone got an idea of a workaround please tell me

Function fixurl(sRawURL)
Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\/&:"
Const sEscapeChars = "\/&:"
If Len(sRawURL) > 0 Then
Dim iLoop : iLoop = 1
Do While iLoop < Len(sRawURL)+1
Dim sTmp : sTmp = Mid(sRawURL, iLoop, 1)
If InStr(1,sValidChars,sTmp,0) = 0 Then
sTmp = Hex(Asc(sTmp))
If sTmp = "20" Then
sTmp = "+"
ElseIf Len(sTmp) = 1 Then
sTmp = "%0"&sTmp
Else
sTmp = "%"&sTmp
End If
ElseIf InStr(1,sEscapeChars,sTmp,0) > 0 Then
Select Case sTmp
Case "&"
sTmp = "%2526"
Case "/"
sTmp = "%252F"
Case "\"
sTmp = "%5C"
Case ":"
sTmp = "%3A"
End Select
End If
fixurl = fixurl & sTmp
iLoop = iLoop +1
Loop
End If
End Function



Users browsing this forum: No registered users and 7 guests