<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Look As New Tornado.z
    With Look
    .dbQP = "U=8| S=Winter| D=NWIND| Q=employees| Gdf=EmployeeId, ReportsTo| Th=Ti=LookUp"
    .dbCommonTables = "index=EID,FullName|sql=Select employeeid, Firstname & ' ' & Lastname from employees"
    .dbLookUpFlds = "field=Employeeid| keyindex=EID| lookupindex=FullName, field=ReportsTo|keyindex=EID| lookupindex=FullName"
    .ASPdbNET()
    End With
  End Sub
</script>