Here is the page:
http://user931360.wx12.registeredsite.com/test/search2.aspxHere is the code:
<code>
<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Register TagPrefix="ASPFD" TagName="Header" Src="header.ascx" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Ole
Db" %>
<script runat="server">
Sub Search_Click(Sender As Object, E As EventArgs)
Dim Connect As OleDbConnection = New OleDbConnection
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim ClassyDS As DataSet = New DataSet
Dim ConnectString, SelectStatement As String
Dim WhereClause As String
Message.Text = ""
Company only
If ItemText.Text = "" Then
If CompanyDropDown.SelectedIn
dex = "0" Then
Message.Text = "I can't display any results since you havent entered any information."
Exit Sub
End If
End If
WhereClause = "Where "
If ItemText.Text <> "" Then
WhereClause = WhereClause & "item_name LIKE '%" & ItemText.Text & "%' AND "
End If
If CompanyDropDown.SelectedIt
em.Value <> "" OR CompanyDropDown.SelectedIt
em.Value <> "-Select A Company-" Then
WhereClause = WhereClause & "company = '" & _
CompanyDropDown.SelectedIt
em.Text & "' AND "
End If
If Right(WhereClause,4) = "AND " Then
WhereClause = Left(WhereClause, Len(WhereClause) -4)
End If
SelectStatement = "Select * From items " & WhereClause
ConnectString = "Provider=Microsoft.Jet.OL
EDB.4.0;Da
ta Source=" & server.mappath("/database/
bev_411.md
b")
Connect.ConnectionString = ConnectString
Adapter.SelectCommand = _
new OleDbCommand(SelectStateme
nt, Connect)
Adapter.SelectCommand.Conn
ection.Ope
n
Adapter.Fill(ClassyDS,"ite
ms")
itemsGrid.DataSource = ClassyDS.Tables("items")
itemsGrid.DataBind
SelectStatement = "Select * From items " & WhereClause
Response.Write("SelectStat
ement " & SelectStatement)
Response.end()
End Sub
'Begin New Stuff
Sub Page_Load (Sender As Object, E As EventArgs)
Dim Connect As OleDbConnection = New OleDbConnection
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim ConnectString, SelectStatement As String
SelectStatement = " Select Distinct company From items "
ConnectString = "Provider=Microsoft.Jet.OL
EDB.4.0;Da
ta Source=" & server.mappath("/database/
bev_411.md
b")
Connect.ConnectionString = ConnectString
Adapter.SelectCommand = new OleDbCommand(SelectStateme
nt, Connect)
Adapter.SelectCommand.Conn
ection.Ope
n
CompanyDropDown.DataSource
= Adapter.SelectCommand.Exec
uteReader
CompanyDropDown.DataBind
'CompanyDropDown.items.ins
ert(0,"-Se
lect A Company-")
'CompanyDropDown.items.ins
ert(1,"Bac
ardi")
End Sub
'End New Stuff
</script>
<html>
<head>
<meta content="Microsoft Visual Studio 6.0" name="GENERATOR" />
<!-- metadata type="typelib" name="ADO Type Library" uuid="00000206-0000-0010-8
000-00aa00
6d2ea4" -->
<!-- metadata type="typelib" name="Microsoft Scripting Runtime" uuid="420B2830-E718-11CF-8
93D-00A0C9
054228" -->
</head>
<body bgcolor="white" font-size="2 pt">
<aspfd:header id="Header" runat="server"></aspfd:hea
der>
<form runat="server">
<table align="center">
<tr>
<td>
<font size="6">The Beverage 411 Search </font></td>
</tr>
</table>
<br>
<table align="center">
<tr>
<td>
Brand:</td>
<td>
<asp:textbox id="ItemText" font-size="8 pt" runat="server" columns="20" width="180"></asp:textbox>
</td>
</tr>
<tr>
<td>
Company:</td>
<td>
<asp:dropdownlist id="CompanyDropDown" font-size="8 pt" datatextfield="Company" dataTextValue="company" runat="server" width="180">
</asp:dropdownlist>
</td>
</tr>
</table>
<table align="center">
<tr>
<td align="center">
<asp:button id="Search" onclick="Search_Click" runat="server" text="Search" AutoPostBack="True"></asp:
button>
</td>
</tr>
</table>
<hr width="500" />
<br>
<center><asp:Label id="Message" runat="server" font-size="8 pt"></asp:Label>
</center>
<table align="center">
<tr>
<td><asp:datagrid id="itemsGrid" runat="server" font-size="10" cellpadding="2" cellspacing="0" bordercolor="Black" backcolor="#F3F3F3" border="1" autogeneratecolumns="false
">
<headerstyle font-bold="true" />
<columns>
<asp:hyperlinkcolumn headertext="Item" text="HyperLinkText" datanavigateurlfield="item
" datanavigateurlformatstrin
g="detail.
aspx?item=
{0}" datatextfield="item_name" />
<asp:boundcolumn headertext="Company" datafield="company"></asp:
boundcolum
n>
</columns>
</asp:datagrid>
</td>
</tr>
</table>
</form>
<hr width="500" />
</body>
</html>
</code>
So why is it that the select statement only picks up the DropDown list item with index 0???
Regardless of the user selection, only the item with o index is "selected". Please, o please cant someone help me understand what I did wrong with this?
I beg of you,
Thanks
