"Chrisser" <cbj@egdatainform.dk> skrev i en meddelelse
news:b32648$qq7$1@sunsite.dk...
>
> Jeg ved ikke om resultatet vil være anderledes med:
> <%
> For each X in Request.Form
> response.write X & ": " & Request.Form(X).Item & "<br>"
> Next
> %>
Hej Chrisser
Med "For each..." kommer form felterne hulter til bulter. Så den kan jeg
ikke bruge.
>
> Har du nogen god grund til at have flere felter med samme navn - normalt
er
> det kun en ekstra kilde til fejl....
>
Jeg vil mene at jeg har en god grund. Men hvis du har et alternativ så
lytter jeg.
Det er til en form som afspejler et XML-dokument. Formen er hirakisk
opbygget ligesom XML-dokumentet.
Jeg skal så undervejs i formen have en XML-pointer som fortæller hvor de
næste noder skal indsættes i XML-dokumentet.
Her er et eksempel på HTML-formen
<input type="hidden" name="Items" value="" />
<input type="hidden" name="xml_pointer" value="/Items" />
<input type="hidden" name="Item" value="" />
<input type="hidden" name="xml_pointer" value="/Items/Item" />
<label>Label</label>
<input type="text" name="Name" value="Produkt A" />
<label>Value</label>
<input type="text" name="Price" value="1000" />
<input type="hidden" name="xml_pointer" value="/Items" />
<input type="hidden" name="Item" value="" />
<input type="hidden" name="xml_pointer" value="/Items/Item" />
<label>Label</label>
<input type="text" name="Name" value="Produkt B" />
<label>Value</label>
<input type="text" name="Price" value="2000" />
På serversiden opbygger jeg så XML-dokumentet så det kommer til at se ud
ala. nedenstående
<Items>
<Item>
<Name>Produkt A</Name>
<Price>1000</Price>
</Item>
<Item>
<Name>Produkt B</Name>
<Price>2000</Price>
</Item>
</Items>
Umiddelbart virker det. Jeg skal så bare finde ud af en måde at lave
attributter på.
> > Det ønsker jeg ikke. Jeg vil have dem i den rækkefølge de står i formen.
>
> Ellers kan du prøve at se hvad din form rent faktisk indeholder med:
> Response.write "Hele formen: " & Request.Form & "<br>"
>
Request.form kan jeg bruge
Den returnere hele formen som en string.
Så split'er jeg ved hvert & og endnu engang ved hvert =
<%
Dim sForm, aForm
Dim Field, FieldName, FieldValue
sForm = request.form
aForm = split(sForm, "&")
For Each Field In aForm
Field = split(Field, "=")
FieldName = Field(0)
FieldValue = Field(1)
response.write "<p>" & FieldName &" = " & FieldValue & "</p>"
Next
%>
Så skal jeg bare lige have noget URLdecode på FieldName og FieldValue.
Jeg takker for hjælpen.
Hintzmann