Hallo!
> ich habe ein formular mit vielen feldern, nach dem submit m�chte ich
dem
> user nochmal eine zusammenfassung der seite zeigen
>
> auf der zusammenfassungsseite m�sste ich also folgendes machen:
>
> MBewerberName = request.form("MBewerberName")
> MBewerberinName = request.form("MBewerberinName")
> MBewerberVorname = request.form("MBewerberVorname")
> MBewerberinVorname = request.form("MBewerberinVorname")
> MBewerberGeburtsname = request.form("MBewerberGeburtsname")
> MBewerberinGeburtsname = request.form("MBewerberinGeburtsname")
> MBewerberGeburtsdatum = request.form("MBewerberGeburtsdatum")
> MBewerberinGeburtsdatum = request.form("MBewerberinGeburtsdatum")
> MBewerberGeburtsort = request.form("MBewerberGeburtsort")
> MBewerberinGeburtsort = request.form("MBewerberinGeburtsort")
>
> response.write MBewerberName
> response.write MBewerberinName
> response.write MBewerberinVorname
>
> dass m�chte ich mir ersparen...
>
> statt dessen, m�chte ich alle form fields in ein array tun und dann
> ausgeben.
>
> response.write ArrFormValue(1)
> response.write ArrFormValue(2)
> response.write ArrFormValue(3)
>
> ich weiss nicht genau wie ich dass array f�llen soll..
>
> 'anzahl der form values
> dim ArrFormValue(55)
>
> for each val in request.Form
> ArrFormValue = val
> next
>
> kann mir bitte jemand damit helfen?
Warum ein Array?
Formular einlesen:
dim itm
for each itm in Request.Form
execute "dim " & itm & " : " & itm & " = " & "Request.Form(" & itm &
")"
next
Und die Ausgabe kannst Du dann in der gleichen Schleife machen. Wenn es
tats�chlich ein Array sein soll, dann kannst Du den Index als
Formularfeldname verwenden (f1, f2, f3, ...):
dim formFields(): redim formFields(Request.Form.Count)
for i = 1 to Request.Form.Count
formFields(i) = Request.Form.Item(i)
... besser, weil sicherer ...
formFields(i) = Request.Form("f" & cstr(i))
next
Eine typspezifische �bernahme der Formularfelder ist aber sinnvoll, also
so etwas wie " = trim(cstr(Request.Form(...)))" oder " =
clng(Request.Form(...))". Du kannst die Feldtypen ja in einem
zus�tzlichen Array speichern.
dim formFields, formValues, formFormat
formFields = array("f1", "f2", "f3", "f4", ...)
formFormat = array(vbInteger, vbLong, vbDate, vbString, ...)
redim formValues(ubound(formFields))
for i = 0 to ubound(formFields)
select case formFormat(i)
case vbInteger : formValues(i) = cint(Request.Form(formFields(i)))
case vbLong : formValues(i) = clng(Request.Form(formFields(i)))
case vbString : formValues(i) =
trim(cstr((Request.Form(formFields(i))))
...
end select
next
Und wenn Du jetzt noch in formFormat Informationen zur weiteren
Validierung einbringst (required, lower / upper bounds, pattern
matching, ...), dann ist Dein universeller Formularleser fertig.
Freundliche Gr��e
Joachim van de Bruck
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
