Konvertere %20 + osv til normale tegn

??? er ikke lige med på hvad det er du mener

er det fordi du vil bruge Mandag morgen! til at udhente et bestemt felt i din tabel ???

eller hvad er det du vil

Der må jo være en eller anden grund til at det er blevet urlencoded.
Når du laver en request("blabla") bliver det automatisk decodet, så du må på en eller anden måde selv have gjort det.

Tak indtil nu. Ser lige nærmere på det og vender tilbage..

Jeg henter en streng fra db som denne med bookingtider:

09:00-09:15¤09:15-09:30¤09:30-09:45¤09:45-10:00¤10:00-10:15¤10:15-10:30¤10:30-10:45¤10:45-11:00¤11:00-11:15¤11:15-11:30¤11:30-11:45¤

Dernæst for at vise den bearbejder jeg den:

            reqForm0 = request.form
            arrReqForm = split(reqForm0,"&")
            for each reqElement in arrReqForm
                    if instr(reqElement,"BookingtidDelA") then
                        TidTaeller = TidTaeller+1
                        reqFormX = reqFormX & mid(reqElement,instr(reqElement,"=")+1) & ":"
                    end if
                    if instr(reqElement,"BookingtidDelB") then
                        reqFormX = reqFormX & mid(reqElement,instr(reqElement,"=")+1) & "-"
                    end if
                    if instr(reqElement,"BookingtidDelC") then
                        reqFormX = reqFormX & mid(reqElement,instr(reqElement,"=")+1) & ":"
                    end if
                    if instr(reqElement,"BookingtidDelD") then
                        reqFormX = reqFormX & mid(reqElement,instr(reqElement,"=")+1) & " "
                    end if
                    if instr(reqElement,"BookingtidBeskrivelseDel") then
                        reqFormX = reqFormX & mid(reqElement,instr(reqElement,"=")+1) & "¤"
                    end if
                reqFormBookingtiderListe = reqFormX
            next
       
Strengen vises så opdelt i en form, hvor jeg kan rette dataene. Og det virker udemærket. Videre fra formen indsættes i db og her er det at det som kommer fra BookingtidBeskrivelseDel bliver kodet med + og %21:

            strSQL = " update Lokaliteter set "
            strSQL = strSQL & " Ugedag" & request.querystring("vis") & "tider = '" & reqFormBookingtiderListe & "' "
            strSQL = strSQL & " where Lokalitet = 'Standard' "
            objConn.execute(strSQL)

Så er det jo derfor.
Når du requester på den måde, bliver data IKKE dekodet.

Du kan eventuelt hente en funktion her:
http://www.pstruh.cz/tips/detpg_URLDecode.htm

Tak mortrr >
Jeg fik ikke forklaret ordentligt. Jeg splitter først strengen fra db for at vise den i formopstilling.
Men nevermind, nu henter jeg lige den funktion og vender rilbage.

Ser lovende ud. Hvordan bruger jeg den mon. Jeg får:
Typer stemmer ikke overens: 'URLDecode'
Ved at kalde funktionen som:
tider = '" & URLDecode(reqFormBookingtiderListe) & "' "

URLDecode(ByVal What) Hvad er ByVal mon..

ByVal betyder at værdien sendes over, og ikke en pointer til en evt variabl.

Hvorfor du får fejlen ved jeg ikke. Den giver ikke rigtigt mening.
Den kan dog komme ved stavefejl i funktionsnavne og lignende.

Jeg har bl.a. testet med:
URLDecode(ByVal What)<%=URLDecode("test+test")%>
Samme fejlmeddelelse..

Funktionen er her. Der må da være noget galt et sted? :

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 lige kontrolleret den her, og det virker altså fint.

Er du nu sikker på at den er i koden?
Serverside?

Som sagt kan du få fejlen "Typer stemmer ikke overens" hvis du kalder en funktion eller array som ikke findes.

Godt spørgsmå

l. Jeg må jo huske at gemme mit dokument... =o)
Tak for nu.

(altså det var en includefil, jeg ikke fik gemt)