Export SelectedItem values
Remember to Click 'Sel' button to register selections
Page forth and back and add/delete selections


Product
ID
ProductName
132 aaaa
133 2225
134 MIcKE
135 myold
138 mydb
139 trams
140 trems
141 greams
142 geitost
143 mese
Product
ID
132
ProductNameaaaa
SupplierID
CategoryID
QuantityPerUnit
UnitPrice0.0000
UnitsInStock0
UnitsOnOrder0
ReorderLevel0
Discontinued

bottom next goreload

[1 - 10 : 104]

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>


Send comments on this topic.
Copyright (c) 1998-2006 ASP-db