Product ID ProductName 132 GHFGHFGHFG 133 77aaa 134 MIKE 135 mynewproduct 1 vvbvcbcbcbii 2 Chang5 3 BigOne 4 Chef Anton's Cajun Seasoning 5 asdf 6 Grandma's Boysenberry Spread Product ID 132 ProductName GHFGHFGHFG SupplierID CategoryID QuantityPerUnit UnitPrice 0.0000 UnitsInStock 0 UnitsOnOrder 0 ReorderLevel 0 Discontinued [1 - 10 : 88]

Select List - Item Only

<script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim GD As New Tornado.GetData Dim Sitem1 As New Tornado.z With Sitem1 .dbQP = "U=5| S=10| M=type=dh!sysindex=f!indexfld=0| D=Nwind.mdb| Q=Products| gdf=0,1|PS=10" .dbNameMap = "field=0|alias=Product<br>ID" .dbSelectedItemMacro = "(;,[]!|~/+{})macro=!0:0##! - !1! (!UnitsInStock!)|qtycol=false|buttons=true" .dbTextHolder = "Title=Export SelectedItem values|sub=Remember to Click 'Sel' button to register selections<br>Page forth and back and add/delete selections" .ASPdbNET() '--- User Code to process Selected Items --- If GD.Get_SelectedItem <> Nothing Then Dim i As Integer Dim Res As String = "<P><center><table class=ts Cellspacing='1'><tr><th class=gh>Selected Items According to Macro</th></tr><tr><td class=R2>" Dim a() As String = .dbSelectedItem() If a Is Nothing Then Res &= "No selection" Else For i = 0 To UBound(a) Res &= a(i) & "<br>" Next i End If Response.Write(Res & "</table></center>") End If End With End Sub </script>