For each ... ?!

Hvad er det at du vil ???

Hvad ligger der i request(\"ID\"), request(\"prodadd\"), request(\"produkt\") ??
Hvor skal de hen ??

Jeg har en liste med en lang række produkter i en formular (prodadd). De har hver en checkbox (produkt) som har et id som value. Jeg submitter formularen med et id=<%=id%> som er overført fra et tredje produkt

Nu skal jeg så i tabellen under_bound indsætte værdien af checkboxen, samt id\'et fra det tredje produkt .... Get it?! ;)

Prøv at sætte det her ind i starten, så kan du se hvad du modtager :


<%
For each item in request.Form
  response.write(\"request.Form(\'\" & item & \"\') : \'\" & request.Form(item) & \"\'<br>\" & bvcrlf)
Next

For each item in request.Querystring
  response.write(\"request.Querystring(\'\" & item & \"\') : \'\" & request.Querystring(item) & \"\'<br>\" & bvcrlf)
Next

%>

hmm...  bvcrlf  skulle have være  vbcrlf

Hedder alle checkboxene produkt ?

Hvad modtager du af parametre ??

Får følgende;

request.Form(\'Submit\') : \'Tilføj valgte\'
request.Form(\'produkt\') : \'7, 2, 14, 4\'
request.Querystring(\'mode\') : \'add\'
request.Querystring(\'id\') : \'5\'

Produkt er kun EET element i formen (de har samme navn) derfor kommer det med komma imellem og ikke som selvstændige elementer.


Prøv sådan her :

Splitter request(\"produkt\") op for hvert komma og putter det i et Array.
Løber Arrayet igennem (fra nr 0 til højeste nr), og skriver i databasen for hvert element i Arrayet.


<%
dim arr_produkt, i, id

id = Trim(request(\"id\"))
arr_produkt = spilt(request(\"produkt\"), \",\")

For i = 0 to uBound(Arr_produkt)
  SQL = \"INSERT INTO under_bound (prodid, undervisningsid) values (\"& arr_produkt(i) &\", \"& id &\")\"
  connect.execute(SQL)
Next
%>

Dim arr_produkt, i, id, SQL

Prøver ;)

Cool - det funger squ !!! Mange tak ;)