Compiler Error Message: BC30201: Expression expected. - Please Help

[Moe Sizlak]

Hi There,

I am receiving the error below when I try to access my aspx page, I am
trying to display 2 listboxes on a user control page and when the user
selected the control the form was submitted to another page, however when
the control page was loaded it was fine but when I submitted the form I
received an error "Object reference not set to an instance of an object." So
I guess when the form was submitted the page was looking for a control that
didn't exist, I wanted to try to pass the value from a function so that I
could leave the code the way it is (in a user control) and not have to paste
the code into each page as the code works fine when in a normal aspx page.

Moe


--- Funciton call
Public ReadOnly Property SelectedCategoriesID As String
Get
return lstCategorie.ClientID
End Get
End Property
Public ReadOnly Property SelectedStatesID As String
Get
return lstStates.ClientID
End Get
End Property


Line 29:
Line 30:
Line 31: strSelectedCategories = <%# lstCategorie.ClientID
%>.SelectedItem.Value
Line 32: strSelectedStates = <%# lstStates.ClientID
%>.SelectedItem.Value
Line 33:



<%@ Control Language="vb" EnableViewState="False" %>

<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.SqlClient" %>
<script language="vb" runat="server">

Public ReadOnly Property SelectedCategoriesID As String
Get
return lstCategorie.ClientID
End Get
End Property
Public ReadOnly Property SelectedStatesID As String
Get
return lstStates.ClientID
End Get
End Property

Public Sub Page_Load(sender as Object, e as EventArgs)

If Not Page.IsPostBack Then
BindStates()
LoadCategories()
Else
Dim strFormID as Integer
Dim strSelectedStates as Integer
Dim strSelectedCategories as Integer




strSelectedCategories = <%# lstCategorie.ClientID %>.SelectedItem.Value
strSelectedStates = <%# lstStates.ClientID %>.SelectedItem.Value

If strSelectedStates <> "0" AND strSelectedCategories ="0" Then
strFormID = strSelectedStates
SendUserToState(strFormID)
Elseif strSelectedStates = "0" AND strSelectedCategories <> "0" Then
'response.write ("categories")
'response.end
strFormID = strSelectedCategories
SendUserToCategorie(strFormID)
End If

End If
End Sub

Public Function SendUserToState(ByVal strFormID as Integer)
Select Case strFormID
Case 1,2,3,4,5,6,7,8,9
response.redirect("browselistingsbystate.aspx?StateID=" & strFormID)
Case Else
'do jack all
End Select
End Function

Public Function SendUserToCategorie(ByVal strFormID as Integer)
Select Case strFormID
Case 6,10,8,7,11,13,9,12
response.redirect("browselistings.aspx?CategoryID=" & strFormID)
Case Else
'do jack all
End Select
End Function


Public Sub BindStates()
Try
Dim myConnection as New
SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Const strSQL as String = "SELECT LocationID, '...' + Location + '...' AS
Location " & _
"FROM tbLocation ORDER BY Location"
Dim myCommand as New SqlCommand(strSQL, myConnection)
myConnection.Open()
Dim objDR as SqlDataReader
objDR = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
lstStates.DataSource = objDR
lstStates.DataBind()
lstStates.Items.Insert(0, new ListItem("-- Choose a State --","0"))

Catch ex as InvalidCastException
Status.Text = ex.ToString()

Catch ex As SqlException
Status.Text = "Database error: " & ex.message

Catch ex As Exception
Status.Text = "General error: " & ex.message
End Try

End Sub


Public Sub LoadCategories()
Try
Dim myConnection as New
SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Const strSQL as String = "SELECT CategoryID, '...' + CategoryDesc + '...'
AS CategoryDesc " & _
"FROM tblProductCategories ORDER BY CategoryDesc"
Dim myCommand as New SqlCommand(strSQL, myConnection)
myConnection.Open()
Dim objDR as SqlDataReader
objDR = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
lstCategorie.DataSource = objDR
lstCategorie.DataBind()
lstCategorie.Items.Insert(0, new ListItem("-- Choose a Category --","0"))

Catch ex as InvalidCastException
Status.Text = ex.ToString()

Catch ex As SqlException
Status.Text = "Database error: " & ex.message

Catch ex As Exception
Status.Text = "General error: " & ex.message
End Try

End Sub

</script>

<td height="20" width="14%">

<div align="left">
<asp:listbox id="lstCategorie" runat="server" Rows="1"
AutoPostBack="true"
DataTextField="CategoryDesc" DataValueField="CategoryID" />

</div>

</td>
<td height="20" width="11%">
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif"
size="1" color="#FFFFFF">Browse
:</font></div>
</td>
<td height="20" width="14%">

<div align="left">
<asp:listbox id="lstStates" runat="server" Rows="1"
AutoPostBack="true"
DataTextField="Location" DataValueField="LocationID" />
</div>


Browse :