Går det att låta bli att skriva ut raden 'Id'? Isåfall hur?
arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Id</td><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")
For u = 0 To Ubound(arrArtiklar,2)
Response.Write("<TR>")
For m = 0 To Ubound(arrArtiklar,1)
if m = 7 then
If arrArtiklar(7,u) <> "" Then
response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
else
Response.write ("<TD bgcolor='#C0C0C0'></TD>")
end if
else
Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
End if
Next
Response.Write("<TD bgcolor='#C0C0C0'>")
Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
Response.Write ("</TD>")
Response.Write("</TR>")
Next
Response.Write("</TABLE>")
END IF
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")
For u = [b]1[/b] To Ubound(arrArtiklar,2)
Nja, nu lägger sig idnumret i cellen art.nr och art.nr i cellen Namn osv. Kanske lite dåligt förklarad, men jag behöver alltså idnumret - men vill inte ha det synligt i tabellen.
tråkigt att du inte tror på mig
så här gör jag fel:
arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")
For u = 1 To Ubound(arrArtiklar,2)
Response.Write("<TR>")
For m = 0 To Ubound(arrArtiklar,1)
if m = 7 then
If arrArtiklar(7,u) <> "" Then
response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
else
Response.write ("<TD bgcolor='#C0C0C0'></TD>")
end if
else
Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
End if
Next
Response.Write("<TD bgcolor='#C0C0C0'>")
Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
Response.Write ("</TD>")
Response.Write("</TR>")
Next
Response.Write("</TABLE>")
END IF
arrArtiklar = GetRows("SELECT Id, ArtNr, Namn5, Storlek, Storlektyp, Farg, Ant_forp, Info, Fakta FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=0><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/pack</td><td>Varuinfo</td><td>Fakta</td></tr>")
For u = 0 To Ubound(arrArtiklar,2)
Response.Write("<TR>")
For m = 1 To Ubound(arrArtiklar,1)
if m = 7 then
If arrArtiklar(7,u) <> "" Then
response.write("<td bgcolor='#C0C0C0'><a href='doc/"& arrArtiklar(7,u) &"' target='new'> Info </A></td>")
else
Response.write ("<TD bgcolor='#C0C0C0'></TD>")
end if
else
Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</a></TD>")
End if
Next
Response.Write("<TD bgcolor='#C0C0C0'>")
Response.Write("<a href='shBasket.asp?addItem="& arrArtiklar(0,u) &"' target='underst'> Köp! </A>")
Response.Write ("</TD>")
Response.Write("</TR>")
Next
Response.Write("</TABLE>")
END IF
Nu funkar det jättebra!
Hittade macces menyscript här på webforum - och gillade det. Trodde också array's gav prestandavinst? Iallafall behövde jag lära mig hur arrays fungerar