modsat URLEncode()?

URLDecode() evt.

findes i PHP :) try it

Det burde du ikke have brug for. Når du trækker noget fra URL\'en, så skulle det automatisk være dekodet.

sone::

Jo... for jeg ville bruge den til at løse problemet beskrevet i: http://www.eksperten.dk/spm/108706

Function URLDecode(Byval What)
\'URL decode function
\'2001 Antonin Foller, PSTRUH Software, http://www.pstruh.cz
  Dim Pos, pPos

  \'replace + to space
  What = Replace(What, \"+\", \" \")

  On Error Resume Next
  Dim Stream: Set Stream = CreateObject(\"ADODB.Stream\")
  If Err = 0 Then \'URLDecode using ADODB.Stream, if possible
    On Error Goto 0
    Stream.Type = 2 \'String
    Stream.Open

    \'replace all %XX to character
    Pos = Instr(1, What, \"%\")
    pPos = 1
    Do While Pos > 0
      Stream.WriteText Mid(What, pPos, Pos - pPos) + _
        Chr(CLng(\"&H\" & Mid(What, Pos + 1, 2)))
      pPos = Pos + 3
      Pos = Instr(pPos, What, \"%\")
    Loop
    Stream.WriteText Mid(What, pPos)

    \'Read the text stream
    Stream.Position = 0
    URLDecode = Stream.ReadText

    \'Free resources
    Stream.Close
  Else \'URL decode using string concentation
    On Error Goto 0
    \'UfUf, this is a little slow method.
    \'Do not use it for data length over 100k
    Pos = Instr(1, What, \"%\")
    Do While Pos>0
      What = Left(What, Pos-1) + _
        Chr(CLng(\"&H\" & Mid(What, Pos+1, 2))) + _
        Mid(What, Pos+3)
      Pos = Instr(Pos+1, What, \"%\")
    Loop
    URLDecode = What
  End If
End Function

Har svaret på spm. - ved den løsning, så skal du ikke bruge decode

Eller en knap så avanceret form:

Private Function URLDecode(Expression)
  \'Why doesn\'t ASP provide this functionality for us?
  Dim strSource, strTemp, strResult
  Dim lngPos
  strSource = Replace(Expression, \"+\", \" \")
  For lngPos = 1 To Len(strSource)
    strTemp = Mid(strSource, lngPos, 1)
    If strTemp = \"%\" Then
      If lngPos + 2 < Len(strSource) Then
        strResult = strResult & _
            Chr(CInt(\"&H\" & Mid(strSource, lngPos + 1, 2)))
        lngPos = lngPos + 2
      End If
    Else
      strResult = strResult & strTemp
    End If
  Next
  URLDecode = strResult
End Function             

Aaens anden udgave virker ikke for mig. Men det gør den første, lange udgave.