videresende et array

forstår i mit spørgsmål?

Vil du lave et array ud fra en form, hvor der er et bestemt antal afkrydsningsbokse?

ja et array hvor de idnumre der bliver krydset af bliver gemt! Herefter kan arrayet vidersendes og splittes op igen så jeg kan indføre det i min db!

Dim array
Do until rs.eof Or rs.bof
  If request.form(rs(\"id\")) Then
    array = array + rs(\"id\") & \",\"
  End If
Loop
array = left(array, len(array)-1)

Kunne man vil bruge..

Skfit sidste linie ud med

If array <> \"\" Then
  array = left(array, len(array)-1)
End If

Det er jeg ikke helt med på! Det skal jo ikk være alle rs(\"id\") der bliver lagt ind i arrayet - kun dem der bliver selected!

Så brug:
If request.form(rs(\"id\")) = \"on\" Then
Blabla

If request.form(rs(\"id\")) HVAD then?

  Dim array
Do until rs.eof Or rs.bof
  \'Tjekker om afkrydsboksen er on, alså checked
  If request.form(rs(\"id\")) = \"on\"Then
    array = array + rs(\"id\") & \",\"
  End If
Loop
If array <> \"\" Then
  array = left(array, len(array)-1)
End If

hvor vil du skrive denne kode ? i value=\"<% %>\" eller lige efter, eller?

dim array

If Not (rs.BOF Or rs.EOF) Then
  Do While Not rs.EOF

%>
<input type=\"checkbox\" name\"array\" value=\"<% response.write rs(\"ID\") %>\"><a href=\"findmaalgruppemodtag.asp?kob=<%= rs(\"kob\") %>\" target=\"indholdbund\"><%= rs(\"Virksomhedsnavn\") %></a><br />
<%
Do until rs.eof Or rs.bof
  If request.form(rs(\"id\")) = \"on\" Then
    array = array + rs(\"id\") & \",\"
  End If
Loop
If array <> \"\" Then
  array = left(array, len(array)-1)
End If


rs.movenext
  Loop

Nej koden skal skrives på den side du submitter formen til.
Den kode jeg ahr skrevet skal bruges til at fange, hvilket bokse der er afkryset. Ikke udskrive afkrysningboksene

Brug denne til at udskrive dine bokse med:

<% Do until rs.eof Or rs.bof %>
<input type=\"checkbox\" name=\"arrayID\" value=\"<%=rs(\"ID\")%>\">
  <% rs.movenext
loop %>

Ja, men mit problem ligger jo ligesom i at få sendt array fra den side som jeg har beskrevt - det er det der er spørgsmålet! Som det er lige nu kan jeg jo kun sende en af gangen!

Wups, en smutter! Sådan her
<% Do until rs.eof Or rs.bof %>
<input type=\"checkbox\" name=\"<%=rs(\"ID\")%>\">
  <% rs.movenext
loop %>

Jeg tror fejlen lå i at du brugte det samme name i alle boksene. For scriptet ser det ud som om der kun er en boks.

godt så langt så godt, men nu giver den mig fejl på modtagersiden! foreløbig har jeg skrevet:
dim array
Do until (rs.eof Or rs.bof)
  If request.form(rs(\"id\")) = \"on\" Then
    array = array + rs(\"id\") & \",\"
  End If
Loop
If array <> \"\" Then
  array = left(array, len(array)-1)
End If

den skriver at \" er obligatorisk i nummer to linie!

undskyld: et objekt er obligatorisk: \"

Og linie 2 er :
Do until (rs.eof Or rs.bof)
Eller?

jep!

det lyder som om den får request.form(rs(\"id\"))  galt i halsen:
prøv at ændre navnet på boksene til
name=\"test<%=rs(\"ID\")%>\"
Og
request.form(\"test\"&rs(\"id\"))

hmm er du sikker på at rs, er defineret på modtager siden?

er det ikke fordi at den ikke aner hvad rs(\"id\") er på modtagersiden?

:) okay!

hvordan gør jeg det?

Den måde du difinere rs på, på afsender siden, samme måde gør du det på modtager siden.

Husk at hvis ID er skrevet med STORT i databasen, skal du også bruge STORE bogstaver når du kalder den = rs(\"ID\")
Så vidt jeg husker er det case sensativ

der må vist være en lidt bedre måde - dette virker lidt mystisk!

den skriver Et matrixindeks ligger uden for det gyldige område.

Må jeg se den linie fejlen opstår i?

  If request.form(rs(\"id\")) = \"on\" Then

Det lyder som problemer med RS igen..

Prøv førden linie at lave en:
response.write rs(\"ID\")

det ser sådan ud nu, og jeg prøver lige at udskrive værdien!

virksomhed = session(\"virksomhed\")
strSQL = \"Select * From Stamfil where Virksomhedsnavn Like \'%\" & virksomhed & \"%\'\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

dim array
Do until rs.eof or rs.bof
  If request.form(rs(\"id\")) = \"on\" Then
strSQL = \"Insert into maalgruppetilmeld (\"

strSQL = strSQL & \"IDmaalgruppe, \"
strSQL = strSQL & \"ID) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Request.Form(\"IDmaalgruppe\") & \"\'\"
strSQL = strSQL & \"\'\" & Request.Form(rs(\"id\")) & \"\')\"

\' SQL sætning eksekveres
Conn.Execute(strSQL)
rs.movenext
end if
loop

har nu fået rettet de sidste fejl, men det bliver ikke opdateret i db\'en! men ingen fejlmeddelser!

<%
virksomhed = session(\"virksomhed\")
strSQL = \"Select * From Stamfil where Virksomhedsnavn Like \'\" & virksomhed & \"\'\"

Set rs = Conn.Execute(strSQL)

dim array
Do until rs.eof or rs.bof
  If request.form(rs(\"id\")) = \"selected\" Then
strSQL = \"Insert into maalgruppetilmeld (\"

strSQL = strSQL & \"IDmaalgruppe, \"
strSQL = strSQL & \"ID) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Request.Form(\"IDmaalgruppe\") & \"\'\"
strSQL = strSQL & \"\'\" & Request.Form(rs(\"id\")) & \"\')\"

\' SQL sætning eksekveres
Conn.Execute(strSQL)
rs.movenext
end if
loop


Conn.Close
Set Conn = Nothing

%>

Hmm Det er svært at følger med i hvad du laver:
\"If request.form(rs(\"id\")) = \"selected\" Then\"
Tyder på du har lavet en dropdownbox?

undskyld, ddet var bare noget jeg skulle teste om det virkede - som sagt kommer der ingen fejl ud nu, men til gengæld ligger der heller ikke noget i den sidste strSQL hvis jeg udskriver!

jeg benytter \"on\"

Så kunne noget tyde på at den ikke reagere på noget i formen. Prøv efter:
If request.form(rs(\"id\")) = \"selected\" Then
at lave en
response.write \"sker her noget?\"

ok, jeg har fundet ud af at der opstår matrixindexfejl når jeg skriver procenttegnede her - når jeg undlader dem får jeg ikke fejl!

\'%\" & virksomhed & \"%\'

se hvad den skriver nu:
Der er en syntaksfejl i forespørgselsudtrykket \"Virksomhedsnavn Like \'%Select * From Stamfil where Virksomhedsnavn Like \'%%\'%\'\".

Uden at være klog på det område, men kan det være at variablen virksomhed er tom?

ok, glem det sidste - det var lige en mindre fejl!

jamen det skal den jo også kunne være, fordi så tager den alle virksomhederne!

det er stadig denne fejl der er den herskene:
Et matrixindeks ligger uden for det gyldige område.

Det må være en eller anden sql fejl... Jeg er desvære ikke den store sql ekspert :(

ØV!!! Lukker!

Måske du har fået løsningen men jeg har en gang lavet dette med checkbokse:

Pricipet: Den første side hvor man vælger hvilke der skal ændre, er lavet en checkbox ud fra hver Virksomhed (du skal selv indsættet information omkring virksomhed). Alle checkboxe har samme navn (KAK, spørg ikke hvorfor navnet er KAK), checkboxens ID sættes til Virksomheden\'s ID fra databasen, jeg antager at hver virksomhed vil havde en unik ID. På den anden side er lavet et for loop som opdatere feltet i databasen hvor Virksomheden\'s ID er lig med ID på de checkboxe som er valgt:


Dette skal være i filen hvor man vælge checkboxne:

\'Kør din SQL inden som han hendte Virksomhed ID som skal insættet i Checkboxen.
If Not (rs.BOF Or rs.EOF) Then
  %>
  <form method=\"post\" action=\" updater_side.asp\" name=\"hhabb\">
<% Do While Not rs.EOF
  \'INDSÆT NOGET INFO OMKRING BOLIG evt i tabel form
  %>
  <input type=\"checkbox\" name=KAK value=<%=rs(\"ID\")%>><br>
<% rs.MoveNext
  Loop %>   
  <p><input type=\"submit\" value=\"Bestil\" name=\"Action\"></p>
  </form>
  <%
Else
\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If
\' Rydder op efter os
myConn.Close
\'rs.Close
Set myConn = Nothing


-- updater_side.asp------

<%
\'nItem Antal checkbokse som er med [x].
nItems = Request.Form(\"KAK\").Count
if (nItems >= 1) then
  \'Henter værdien fra sidste side
  For i = 1 To nItems
    strSQL = \"UPDATE dintabel SET ditfelt=værdi WHERE ID=\"&Request.Form(\"KAK\")(i)
    myConn.Execute(strSQL)
  Next
  myConn.Close
else
  Response.Write \"Mindst en vare skal vælges\"
end if
%>