Na das ist doch was!!
Zwar aufw�ndig, aber wenn's hilft :-)
Jedenfalls vielen Dank f�r deine M�he.

Ich wer's mal anwenden und sehen wie ich damit zurechtkomme.

Johannes.

> -----Urspr�ngliche Nachricht-----
> Von: Stephan Troxler [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 23. Juli 2002 18:55
> An: AspGerman Kaffeehaus
> Betreff: [aspdecoffeehouse] Re: AW: RE: Formularfelder in der richtigen
> Reihenfolge
>
>
> Sorry f�r die sp�te Antwort - es geht n�mlich doch! Hatte n�mlich
> mal das selbe Problem und es wie untenstehend gel�st.
>
> Gruss
> Stephan
> --
>
> 1. Die Werte nimmst Du �ber "request.form" in einem String
> entgegen. So sind die Daten zwar nicht decodiert aber die
> Reihenfolge stimmt! Eine Ausgabe des Wertes zeigt Dir wies funzt.
>
> 2. Du splittest den String �ber das "&" Zeichen und erstellst
> einen Array welcher Feldname und dazugeh�render Wert enth�lt
>
> 3. Mittels einer Schleife �ber den Array splittest Du jeden Wert
> des Arrays aus dem vorigen Punkt �ber das "=" Zeichen und
> erh�ltst so Name und Wert heraus.
>
> 4. Du dekodierst nun die Werte manuell (im Beispiel mittels der
> Funktion "URLDecode) �ber eine Funktion.
>
> Und so funktionierts:
>
> '**** Punkt 1 *****
> allform  = request.form
>
> '***** Punkt 2 *****
> myform  = split(allform, "&")
>
> '***** Punkt 3 *****
> for i = 0 to ubound(myform)
>     werte         =    split(myform(i),"=")
>     bezeichnung   =    URLDecode(werte(0))
>     inhalt        =    URLDecode(werte(1))
>
>     '***** Hier Werte verarbeiten *****
>
> next
>
> '***** Punkt 4 - Die Funktion dazu *****
> Function URLDecode(strToDecode)
>  strIn = replace(strToDecode, "+", " ")
>  intPos = Instr(strIn, "%")   'look for ASCII coded characters
>
>  Do While intPos
>   If intPos > 1 Then strOut = strOut & Left(strIn, intPos - 1)
>   strOut = strOut & Chr(CInt("&H" & Mid(strIn, intPos + 1, 2)))
>   If intPos > (Len(strIn) - 3) Then
>    strIn = ""
>   Else
>    strIn = Mid(strIn, intPos + 3)
>   End If
>
>   intPos = Instr(strIn, "%") 'and then look for next one
>  Loop
>
>  StrToDecode = strOut & strIn
>  URLDecode = StrToDecode
> End Function
>
>
> > Danke f�r die Info.
> > mmmhh, d.h. ich muss, um das ganze in Form und die "richtige"
> Reihenfolge zu
> > bringen,
> > jedes Feld direkt ansprechen und kann das Formular nicht in
> einer Schleife
> > abarbeiten.
> > :-(
>
> jy}�jy��ir�z�m��jz���jy}�


| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

Antwort per Email an