|
xxx
Utility Belt:
Search Demo
by Charles Carroll
The code below calls "Utility Belt" functions.
The Search Code is one demo of Database "Utility Belt" functionality.
filename=/experiments/utilitybelt/vercurrent/ubdemo_search_oledb.aspx
<%@trace="true" debug="true" %>
<%@ Assembly src="utilitybelt.vb" %>
<script language="VB" runat="server">
dim ub1 as new LearnAsp.utilitybelt()
dim strConnect as string
Sub Page_Load(S As Object, E As EventArgs)
ub1.Options("supertrace=on,Debug-On,Advice-Off")
strConnect="\experiments\data\biblio.mdb"
If ispostback = false
ub1.DBPopulate(strConnect,"select distinct city from publishers",cy)
ub1.DBPopulate(strConnect,"select distinct state from publishers",st)
ub1.DBPopulate(strConnect,"select distinct zip from publishers",zp)
END IF
ub1.DBPopulate(strConnect,"select count(*) as citycount From (select distinct City from publishers)",cycount)
ub1.DBPopulate(strConnect,"select count(*) as statecount From (select distinct state from publishers)",stcount)
ub1.DBPopulate(strConnect,"select count(*) as zipcount From (select distinct zip from publishers)",zpcount)
End Sub
Sub GetResults_Click(S As Object, E As EventArgs)
Dim strWhereClause as string
Dim strPrefix as string
If chkcy.checked=false AND chkst.checked=false AND chkzp.checked=false THEN
exit sub
END IF
IF chkcy.checked THEN
strWhereClause &= " city='" & cy.selecteditem.text & "' "
strPrefix=" AND "
END IF
IF chkst.checked THEN
strWhereClause &= strPrefix & " state='" & st.selecteditem.text & "' "
strPrefix=" AND "
END IF
IF chkzp.checked THEN
strWhereClause &= strPrefix & " zip='" & zp.selecteditem.text & "' "
END IF
trace.write ("Sub GetResults_Click", "strWhereClause=" & strWhereClause)
ub1.DBPopulate(strConnect,"select * from publishers WHERE " & strWhereClause,grdSearchResults)
End Sub
</script>
<html><head>
<title>Utility Belt Demo</title>
</head>
<body bgcolor="#FFFFFF">
<asp:placeholder id="plcErr" runat="server"/>
<form runat="server">
<asp:Table id="tbltest" runat="server" GridLines="both" BorderWidth="1px">
<asp:TableRow>
<asp:TableCell>City (<asp:literal id="cycount" runat="server"/>)</asp:TableCell>
<asp:TableCell><asp:dropdownlist id="cy" datatextfield="city" runat="server" /></asp:TableCell>
<asp:TableCell><ASP:checkbox id="chkcy" text="include City in Search?" runat="server"/></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell>State (<asp:literal id="stcount" runat="server"/>)</asp:TableCell>
<asp:TableCell><asp:dropdownlist id="st" datatextfield="state" runat="server" /></asp:TableCell>
<asp:TableCell><ASP:checkbox id="chkst" text="include State in Search?" runat="server"/></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell>Zip (<asp:literal id="zpcount" runat="server"/>)</asp:TableCell>
<asp:TableCell><asp:dropdownlist id="zp" datatextfield="zip" runat="server" /></asp:TableCell>
<asp:TableCell><ASP:checkbox id="chkzp" text="include Zip in Search?" runat="server"/></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell> </asp:TableCell>
<asp:TableCell><ASP:BUTTON text="Get the Results" onclick="getresults_click" runat="server" /></asp:TableCell>
</asp:TableRow>
</asp:Table>
<asp:datagrid id="grdSearchResults" EnableviewState="false" runat="server" />
</form>
</body></html>
 |  |  |
|
There are many worthy charities!!. But perhaps help starving children in Africa or South America AND help Charles too.
a $5 tip buys him lunch at McDonalds,
a $20 tip buys his kid Hitoshi a new computer game,
a $39 tip buys his daughter Michiko a few nice outfits.
See our donor list.
| |
 | |  |
|
|
|
|