Udtræk udfra komma sepereret værdier

Noget i denne stil:

<%
Dim Headers
Headers = Split(Punkter, ",")
%>

<table border="1">
<tr>
<td>&nbsp;<td>
<%
For Idx=LBound(Headers) To UBound(Headers)
    Response.Write "<th>" & Headers(Idx) & "</th>"
Next
%>
</tr>
<%
Set rs = Conn.Execute(SQL)

Count = 0
Do While Not rs.Eof
    Count = Count+1
    Response.Write "<tr>"
    Response.Write "<td>" & Count & "</td>"

    For Idx=LBound(Headers) To UBound(Headers)
        Response.Write "<td>" & rs(Headers(Idx)) & "</td>"
    Next

    Response.Write "</tr>"
   
    rs.MoveNext
Loop
%>
</table>

Ser rigtigt ud! Dog får jeg problemer ved valg af mere end 1 punkt.

Omsat til min kode:
<%
If Not Request("ID") = "" Then
Dim Headers,Idx,Count
Headers = Split(Request("punktid"), ",")
%>

<table border="1">
<tr>
<td>&nbsp;</td>
<%
For Idx=LBound(Headers) To UBound(Headers)
    Response.Write "<th>" & Headers(Idx) & "</th>"
Next
%>
</tr>
<%
dsn="DBQ=" & Server.Mappath("./foredrag.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn10=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn10.open dsn
sql10="select navn," & Request("punktid") & " from foredrag WHERE ID IN (" & Request("ID") & ") ORDER by navn asc;"
Set rs = Conn10.Execute(SQL10)
response.write sql10
Count = 0
Do While Not rs.Eof
    Count = Count+1
    Response.Write "<tr>"
    Response.Write "<td>" & rs("navn") & "</td>"
    For Idx=LBound(Headers) To UBound(Headers)
          Response.Write "<td>" & rs(Headers(Idx)) & "</td>"
    Next

    Response.Write "</tr>"
   
    rs.MoveNext
Loop
end if
%>
</table>


Item cannot be found in the collection corresponding to the requested name or ordinal.

/virksomhedsmappe/sammenligningadv.asp, line 485
485 er        Response.Write "<td>" & rs(Headers(Idx)) & "</td>"

Den skriver Y aksen rigtigt, laver navn rigtigt, udfylder 1 punkt rigtigt og ved 2. punkt kommer fejlen

Hvor meget af linje 2 får du med? Er det allerede ved det første index den fejler eller et eller andet sted midtvejs igennem For-løkken?

Ved dette valg:
ID = (1,2,3)
Punkter =(adresse,maalsaetning)

tegner den:

- | adresse | maalsaetning
Bolig1 | adresse skrives korrekt for denne bolig | her kommer fejlen


Hvis jeg laver denne query istedet virker det helt fint:
ID = (1,2,3)
Punkter =(adresse)

- | adresse
Bolig1 | adresse skrives korrekt
Bolig2 | adresse skrives korrekt
Bolig3 | adresse skrives korrekt

Jeg syntes at du sagde at den klarde sig fint igennem ved række 1 (Bolig1) men at den fejlede ved række 2 (Bolig2)?

Hvordan ser din SQL ud - du udskriver den på skærmen.

dvs 1 index får den fint med, men ved næste går det galt

Ser fin nok ud til mig:

select navn, adresse, madpolitik from foredrag WHERE ID IN (3, 10, 5) ORDER by navn asc;

Prøv lige at rette denne:

Response.Write "<td>" & rs(Headers(Idx)) & "</td>"

- til dette (bare midlertidigt):

Response.Write "<td>" & Idx & ", " & Headers(Idx) & "</td>"

Forresten bruger du jo ikke Count til noget i din version af koden. De par linjer kan du jo bare slette igen. :^)

giver

Bolig1 0, adresse 1, madpolitik
Bolig2 0, adresse 1, madpolitik
Bolig3 0, adresse 1, madpolitik

yea.. tænke at jeg dog vil bruge den :) gemmer den lige til senere, heh

Skal lige siges at "Bolignavnet" er noget jeg giver manuelt, derfor er det ikke med i det index.. så med din count ville være
1 0, adresse 1, madpolitik
2 0, adresse 1, madpolitik
3 0, adresse 1, madpolitik

Ahhh, jeg tror at problemet forsvinder hvis du fjerner mellemrummet efter dit komma:

adresse, madpolitik

- til:

adresse,madpolitik

ahh, maybe ja.. Prøver at lave noget replace

... ved Split'ten bliver element nr. 2 jo til " madpolitik" - og den er jo nok mere glad for "madpolitik".

Du kan også bare ændre din Split til:

Headers = Split(Request("punktid"), ", ")

haha, haps!

Så er den sku i kassen. Tak for den præcise hjælp nielle

Svar :^)

Du skal lige gi et svar så du kan få dine velfortjente points :o

Takker for point :^)