Tags:
asp
jeg har problemer med denne stykke programkode og håber nogen kan hjælpe mig
Function WriteData()
'Create SQL string to look for anything with "ItemNumber" like the chechbox
SQL = "SELECT * FROM dbo.VibroLag Where ItemNumber='"&arrItems&"'"
rs.Open SQL,Connection
response.write rs("ItemNumber")&","&rs("ItemName")&","&rs("ItemName2UK")&","&rs("ItemType")&","&rs("ItemGroup") & vbnewline
'Close recordset
rs.close
End Function
arrItems = Split(Request.Form("chkItemNumber"), ",")
For i = LBound(arrItems) to UBound(arrItems)
WriteData(arrItems.value)
Next
%>
Den skal hente et varnummer fra "Checkbox" retunere det i Request.Form("chkItemNumber"), finde det i databasen og udskrive alle poster på den vare...
3 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
denner virker lidt bedre men virker stadig KUN, hvis jeg vælger 1 produkt, vælger jeg 2 siger den:
Fejltype:
(0x80020009)
Undtagelse opstod.
Sådan ser koden ud lige nu:
<%
Sub WriteData(strItem)
'Create SQL string to look for anything with "ItemNumber" like the chechbox
SQL = "SELECT * FROM dbo.VibroLag Where ItemNumber='" & strItem & "'"
rs.Open SQL,Connection
response.write rs("ItemNumber")&","&rs("ItemName")&","&rs("ItemName2UK")&","&rs("ItemType")&","&rs("ItemGroup") & vbnewline
'Close recordset
rs.close
End Sub
arrItems = Split(Request.Form("chkItemNumber"), ",")
For i = LBound(arrItems) to UBound(arrItems)
WriteData(arrItems(i))
Next
%>
0
fandt selv løsningen ved at lave om på løkken...
arrItems = Split(Request.Form("chkItemNumber"), ",")
For i=1 To Request.Form("chkItemNumber").Count
WriteData( Request.Form("chkItemNumber").Item(i) )
Next
0
Kan du så ikke lukke tråden?