Hi Folks.
I'm attempting to fill a form with Client data from "tblClient". Several of these fields are listboxes, which are filled using stored procedures and are calling values from other tables.
Works fine if I don't try to put in the listboxes.
Here is the error:
BC30451: Name 'ClientOriginAreaID' is not declared.
ClientOriginAreaID is the id of a listbox.
Any ideas why it would want me to declare it?? When i do, it still doesn't work...."not set to an instance of an obeject" errors.
Here is to code
**************************
**********
****
<%@ Page Explicit="FALSE" Language="VB" Debug="True" %>
<%@ Register TagPrefix="ATH" TagName="Header" Src="../_includes/header.a
scx" %>
<%@ Register TagPrefix="ATH" TagName="LeftSide" Src="../_includes/leftside
.ascx" %>
<%@ import Namespace="System.Data.Sql
Client" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Ole
Db" %>
<script runat="server">
dim Connect2 AS OLEDBConnection = New OLEDBConnection
dim connectString2 As String
dim connect as SQLConnection = New SQLConnection
dim ConnectString As String
Dim RegionID AS Integer
Dim FirstName as String
Dim LastName as String
Dim dtmDate As DateTime = DateTime.Now()
Sub Page_load(sender as Object, e as EventArgs)
If session("Role") = "" then
Session("StartPage")= Request.ServerVariables("S
CRIPT_NAME
")
response.redirect("/Access
ToHousing/
login.aspx
")
end if
RegionID = Session("RegionID")
Dim ID AS Integer
ID = request.querystring("ID")
ConnectString="Server=myse
rver; UID=mylogin; PWD=mylogin; DATABASE=accesstohousing;"
connectstring2="Provider=S
QLOLEDB;Se
rver=myser
ver; UID=mylogin; PWD=mylogin; DATABASE=accesstohousing;"
Connect.ConnectionString = ConnectString
Connect2.ConnectionString=
ConnectString2
If Not IsPostBack then
connect2.open
Dim objCmd as New OleDbCommand("sp_listareas
_display",
Connect2)
objCmd.CommandType = CommandType.StoredProcedur
e
Dim objDR as OleDbDataReader
objDR = objCmd.ExecuteReader()
'Databind the DataReader to the listbox Web control
ClientOriginAreaID.DataSou
rce = objDR
ClientOriginAreaID.DataBin
d()
connect2.close
connect2.open
Dim objDR1 as OleDbDataReader
objDR1 = objCmd.ExecuteReader()
Client1stChoiceAreaID.Data
Source = objDR1
Client1stChoiceAreaID.Data
Bind()
connect2.close
connect2.open
Dim objDR2 as OleDbDataReader
objDR2 = objCmd.ExecuteReader()
Client2ndChoiceAreaID.Data
Source = objDR2
Client2ndChoiceAreaID.Data
Bind()
connect2.close
connect2.open
Dim reasonCmd as New OleDbCommand("sp_listreaso
n_display"
, Connect2)
reasonCmd.CommandType = CommandType.StoredProcedur
e
Dim reasonDR as OleDbDataReader
reasonDR = reasonCmd.ExecuteReader()
'Databind the DataReader to the listbox Web control
ClientReason1ID.DataSource
= reasonDR
ClientReason1ID.DataBind()
connect2.close
connect2.open
Dim reasonDR1 as OleDbDataReader
reasonDR1 = reasonCmd.ExecuteReader()
ClientReason2ID.DataSource
= reasonDR1
ClientReason2ID.DataBind()
connect2.close
connect2.open
Dim typeCmd as New OleDbCommand("sp_listresty
pe_display
", Connect2)
typeCmd.CommandType = CommandType.StoredProcedur
e
Dim typeDR as OleDbDataReader
typeDR = typeCmd.ExecuteReader()
'Databind the DataReader to the listbox Web control
Client1stChoiceResidenceTy
pe.DataSou
rce = typeDR
Client1stChoiceResidenceTy
pe.DataBin
d()
connect2.close
connect2.open
Dim typeDR1 as OleDbDataReader
typeDR1 = typeCmd.ExecuteReader()
Client2ndChoiceResidenceTy
pe.DataSou
rce = typeDR1
Client2ndChoiceResidenceTy
pe.DataBin
d()
BindDataGrid(ID)
end if
End Sub
Sub BindDataGrid(ID AS Integer)
dim GetContactCommand AS OleDBcommand= New OleDBCommand("Select * FROM tblclients WHERE tblClients.ApplicationID="
& ID, Connect2)
Dim Adapter AS OleDBDataAdapter = new OleDBDataAdapter
Adapter.Selectcommand = getContactCommand
Adapter.SelectCommand.Conn
ection.Ope
n
dim ContactDS AS DataSet = New DataSet
Adapter.Fill(ContactDS, "Contact")
ContactGrid.DataSource = ContactDS
Page.dataBind()
End Sub
</script>
<html>
<head>
<title>Edit Client Information</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<meta id="GENERATOR" content="Microsoft FrontPage 6.0" />
<meta id="ProgId" content="FrontPage.Editor.
Document" />
<link href="../_includes/master.
css" type="text/css" rel="stylesheet" />
</head>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td width="100%">
<ATH:header id="UserControl1" runat="server"></ATH:heade
r>
</td>
</tr>
</tbody>
</table>
<table style="BORDER-COLLAPSE: collapse" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td class="left" valign="top" width="150">
<table style="BORDER-COLLAPSE: collapse" cellpadding="0" width="150" border="0">
<tbody>
<tr>
<td>
<ATH:Leftside id="UserControl2" runat="server"></ATH:Lefts
ide>
</td>
</tr>
</tbody>
</table>
</td>
<td class="textarea" valign="top" width="100%">
<form runat="server">
<ASP:DataGrid id="ContactGrid" EnableViewState="True" AutoGenerateColumns="False
" Runat="server">
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<p>
Application Date:
<asp:TextBox Runat="Server" id="ClientApplicationDate"
columns="10" text='<%# format(Container.DataItem(
"ClientApplicationDate" ), "d")%>' Enabled="False"></asp:Text
Box>
Date Last Updated: <asp:T
extbox id="ClientUpdated" Runat="server" Text='<%#format(Container.
DataItem("
ClientUpda
ted" ),"d")%>' Enabled="False"></asp:text
box>
</p>
<p>
First Name: <asp:TextBox Runat="Server" id="ClientFirstName" text='<%#Container.DataIte
m("ClientF
irstName")
%>' size="20"></asp:textbox>
Last Name:<asp:TextBox Runat="Server" id="ClientLastName" text='<%#Container.DataIte
m("ClientL
astName")%
>' size="20"></asp:textbox>
&n
bsp;
<asp:checkbox Runat="server" id="ClientNOPrivates" checked='<%#(DataBinder.Ev
al(Contain
er.DataIte
m, "ClientNoPrivates") = "True")%>'></ASP:CHECKBOX>
<font color="#FF0099">Do NOT give privates!</font>
</p><p>Date of Birth: <asp:TextBox Runat="Server" id="ClientDOB" size="10" text='<%#format(Container.
DataItem("
ClientDOB"
), "d")%>'></asp:textbox>
</p><p>Number in Family:
<asp:TextBox Runat="Server" id="ClientNumberInFamily" text='<%#Container.DataIte
m("ClientN
umberInFam
ily")%>' columns="2"></asp:textbox>
&nbs
p; &n
bsp;
In A Shelter Now?
<asp:TextBox Runat="Server" id="ClientInShelter" text='<%#Container.DataIte
m("ClientI
nShelter")
%>' columns="2"></asp:textbox>
&nbs
p; Release Info Ok? &<asp:checkbo
x id="ClientPermission" runat="server" Checked='<%#(DataBinder.Ev
al(Contain
er.DataIte
m,"ClientP
ermission"
)="Y") %>'></ASP:CHECKBOX>
</p><p>Children Under 6: <asp:TextBox Runat="Server" id="ClientChildrenUnder6" text='<%#Container.DataIte
m("ClientC
hildrenUnd
er6")%>' columns="2"></asp:textbox>
Children 7-12: <asp:TextBox Runat="Server" id="ClientChildrenUnder12"
columns="2" text='<%#Container.DataIte
m("ClientC
hildrenUnd
er12")%>'>
</asp:text
box>
Children 13-21: <asp:TextBox Runat="Server" id="ClientChildrenUnder21"
columns="2" text='<%#Container.DataIte
m("ClientC
hildrenUnd
er21")%>'>
</asp:text
box>
Total Children: <asp:TextBo
x Runat="Server" id="ClientChildrenTotal" text='<%#Container.DataIte
m("ClientC
hildrenTot
al")%>' columns="2"></asp:textbox>
</p><p>Other Family Info:<asp:TextBox Runat="Server" id="ClientOtherFamilyInfo"
text='<%#Container.DataIte
m("ClientO
therFamily
Info")%>' size="20"></asp:textbox>
Spousal D.O.B.
<asp:TextBox Runat="Server" id="ClientSpousalDOB" size="20" text='<%#format(Container.
DataItem("
ClientSpou
salDOB"), "d")%>'></asp:textbox></p>
<p>Phone:&
nbsp;
<asp:TextBox Runat="Server" id="ClientPhone" text='<%#Container.DataIte
m("ClientP
hone")%>' size="20"></asp:textbox>&n
bsp;
</p><P>Primary Reason for Leaving:<asp:listbox Runat="server" rows="1" id="ClientReason1ID" DataTextField="ReasonforLe
aving" DataValueField="ReasonID" />
</asp:listbox><p>Secondary
Reason for Leaving:<asp:listbox Runat="server" rows="1" id="ClientReason2ID" DataTextField="ReasonforLe
aving" DataValueField="ReasonID" />
<p>First Choice Area: <asp:list
box Runat="server" rows="1" id="Client1stChoiceAreaID"
DataTextField="AREAName" DataValueField="AREAID" />
</asp:listbox>
First Choice Residence: <asp
:listbox Runat="server" rows="1" id="Client1stChoiceResiden
ceType" DataTextField="ResidenceTy
peCode" DataValueField="ResidenceI
D" />
</asp:listbox>Second Choice Area: <asp:listbox Runat="server" rows="1" id="Client2ndChoiceAreaID"
DataTextField="AREAName" DataValueField="AREAID" />
</asp:listbox></p><P><XXXX
IMPLIED_P>
<XXXXIMPLI
ED_P>Secon
d Choice Residence:<asp:listbox Runat="server" rows="1" id="Client2ndChoiceResiden
ceType" DataTextField="ResidenceTy
peCode" DataValueField="ResidenceI
D" />
</asp:listbox><P>Date Needed: <asp:TextBox Runat="Server" id="ClientNeedDate" text='<%#Container.DataIte
m("ClientN
eedDate")%
>' size="20"></asp:textbox>
Immediately?
<asp:checkbox Runat="server" id="ClientImmediateNeed" checked='<%#(Databinder.ev
al(Contain
er.DataIte
m, "ClientImmediateNeed") = "Y")%>'></ASP:CHECKBOX>&nb
sp;Notice Given?
<asp:checkbox Runat="server" id="ClientNotice" checked='<%#(DataBinder.ev
al(Contain
er.DataIte
m, "ClientNotice") = "Y")%>'></ASP:CHECKBOX><P>
<P></p><p>
Monthly Income: <asp:TextBox Runat="Server" id="ClientMoIncome" size="3" text='<%#Container.DataIte
m("ClientM
oIncome")%
>'></asp:t
extbox>
Top Price: <asp:Tex
tBox Runat="Server" id="ClientTopAmount" size="3" text='<%#Container.DataIte
m("ClientT
opAmount")
%>'></asp:
textbox>
Ideal Maximum Rent:<asp:TextBox Runat="Server" id="ClientIdealRent" size="6" disabled="disabled" text='<%#Container.DataIte
m("ClientM
oIncome")*
.33%>'></a
sp:textbox
>
</p><p></p><p>Has 1st & Last? <input type="checkbox" id="Client1stLast" value="1" />
References?<asp:checkbox Runat="server" id="ClientHaveRefs" checked='<%#(Databinder.ev
al(Contain
er.DataIte
m, "ClientHaveRefs")="1")%>'/
>
</p><p>Where From?
<asp:listbox size="1" id="ClientOriginAreaID" Rows="1" DataTextField="AreaName" DataValueField="AreaID" runat="server" /></asp:listbox></p><p>Ris
k of Homelessness?<asp:TextBox Runat="Server" id="ClientHomelessRisk" text='<%#Container.DataIte
m("ClientH
omelessRis
k")%>' columns="2"></asp:textbox>
Children Homeless: <asp:TextBo
x Runat="Server" id="ClientChildrenHomeless
" text='<%#Container.DataIte
m("ClientC
hildrenHom
eless")%>'
columns="2"></asp:textbox>
Number Affected:<asp:TextBox Runat="Server" id="ClientNumberAffected" text='<%#Container.DataIte
m("ClientN
umberAffec
ted")%>' columns="2"></asp:textbox>
</p><p>Employed:<asp:TextB
ox Runat="Server" id="ClientEmployed" text='<%#Container.DataIte
m("ClientE
mployed")%
>' columns="2"></asp:textbox>
</p><p><b>Job Sector:</b> Trade&nbs
p;<asp:Tex
tBox Runat="Server" id="ClientJobTrade" text='<%#Container.DataIte
m("ClientJ
obTrade")%
>' columns="2"></asp:textbox>
Professional<a
sp:TextBox
Runat="Server" id="ClientJobProff" text='<%#Container.DataIte
m("ClientJ
obProff")%
>' columns="2"></asp:textbox>
Service:
Intr
aWest<asp:
TextBox Runat="Server" id="ClientIW" text='<%#Container.DataIte
m("ClientI
W")%>' columns="2"></asp:textbox>
BlueMtn<asp:TextBox Runat="Server" id="ClientBM" text='<%#Container.DataIte
m("ClientB
M")%>' columns="2"></asp:textbox>
Other <asp:TextBox Runat="Server" id="ClientJobSvc" text='<%#Container.DataIte
m("ClientJ
obSvc")%>'
columns="2"></asp:textbox>
</p><p><b>Manufacturing:</
b>VOABYP&n
bsp;<asp:T
extBox Runat="Server" id="ClientVOABYP" text='<%#Container.DataIte
m("ClientV
OABYP")%>'
columns="2"></asp:textbox>
LOF <asp:TextBo
x Runat="Server" id="ClientLOF" text='<%#Container.DataIte
m("ClientL
OF")%>' columns="2"></asp:textbox>
GY <asp:TextBox
Runat="Server" id="ClientGY" text='<%#Container.DataIte
m("ClientG
Y")%>' columns="2"></asp:textbox>
RLAlcoa<asp:TextBox Runat="Server" id="ClientRLAlcoa" text='<%#Container.DataIte
m("ClientR
LAlcoa")%>
' columns="2"></asp:textbox>
Other<asp:TextBox Runat="Server" id="ClientJobMan" text='<%#Container.DataIte
m("ClientJ
obMan")%>'
columns="2"></asp:textbox>
</p><p>Pension/Benefits&nb
sp; <
asp:TextBo
x Runat="Server" id="ClientPensionBenefits"
text='<%#Container.DataIte
m("ClientP
ensionBene
fits")%>' columns="2"></asp:textbox>
Disability <asp
:TextBox Runat="Server" id="ClientDisability" text='<%#Container.DataIte
m("ClientD
isability"
)%>' columns="2"></asp:textbox>
EI/SickPay<asp:TextB
ox Runat="Server" id="ClientEISickPay" text='<%#Container.DataIte
m("ClientE
ISickPay")
%>' columns="2"></asp:textbox>
Work/Family Benefits <asp:TextBox
Runat="Server" id="ClientWorkFamilyBenes"
text='<%#Container.DataIte
m("ClientW
orkFamilyB
enes")%>' columns="2"></asp:textbox>
<br />Child Support <asp:TextBox Runat="Server" id="ClientChildSupport" text='<%#Container.DataIte
m("ClientC
hildSuppor
t")%>' columns="2"></asp:textbox>
Child Aid <asp:TextBox Runat="Server" id="ClientChildAid" text='<%#Container.DataIte
m("ClientC
hildAid")%
>' columns="2"></asp:textbox>
Child Tax <asp:TextBox Runat="Server" id="ClientChildTax" text='<%#Container.DataIte
m("ClientC
hildTax")%
>' columns="2"></asp:textbox>
Ont Works?<asp:TextBox Runat="Server" id="ClientOntWeeks" text='<%#Container.DataIte
m("ClientO
ntWeeks")%
>' columns="2"></asp:textbox>
</p><p>Comments:
</p><p></p><asp:textbox runat="server" id="ClientComments" textmode="multiline" text='<%#Container.DataIte
m("ClientC
omments")%
>' columns="2"></asp:textbox<
hr /><p>Number Housed? <asp:Te
xtBox Runat="Server" id="ClientHousebyNo" text='<%#Container.DataIte
m("ClientH
ouseByNo")
%>' columns="2"></asp:textbox>
Unit Housed? <asp:TextBox Runat="Server" id="ClientHousebyUnit" text='<%#Container.DataIte
m("ClientH
ouseByUnit
")%>' columns="2"></asp:textbox>
Lost Contact<asp:TextBox Runat="Server" id="ClientLostContact" columns="2" text='<%#Container.DataIte
m("ClientL
ostContact
")%>'></as
p:textbox>
Flex Units<asp:TextBox Runat="Server" id="ClientFlexUnits" columns="2" text='<%#Container.DataIte
m("ClientF
lexUnits")
%>'></asp:
textbox>
Stayed in Same: <asp:TextBox Runat="Server" id="ClientStayHome" text='<%#Container.DataIte
m("ClientS
tayHome")%
>' columns="2"></asp:textbox>
<br />Date Housed?<asp:TextBox Runat="Server" id="HouseDate" size="18" text='<%#format(Container.
DataItem("
HouseDate"
), "d")%>' ></asp:textbox>
</p><p><input type="submit" value="Make Changes to this Client" id="Edit" />
<input type="reset" value="Clear All Fields" id="Reset" />
</p></ItemTemplate></asp:T
emplateCol
umn></Colu
mns></ASP:
DataGrid>
</
form>
</td>
</tr>
</tbody>
</table>
</body>
</html>