Error, Collection is read only

[ronaldlee]

I have this error in Line 89.

Collection is read-only.
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.

Exception Details: System.NotSuppo rtedException: Collection is
read-only.

Source Error:
Line 87: Else
Line 88:
Line 89: objRS.Open("UPD ATE Customers SET Customer_Name = '" &
SQL_safe(Reques t.Form.Item("re alname")) & "', customer_Email = '"
& SQL_safe(Reques t.Form.Item("em ail")) & "',
Customer_Addres s_Line1 = '" &
SQL_safe(Reques t.Form.Item("bi lling_house")) & "',
Customer_Addres s_Line2 = '" &
SQL_safe(Reques t.Form.Item("bi lling_street")) & "',
Customer_Addres s_Line3 = '" &
SQL_safe(Reques t.Form.Item("bi lling_area")) & "',
Customer_Addres s_Line4 = '" &
SQL_safe(Reques t.Form.Item("bi lling_town")) & "',
Customer_Addres s_Line5 = '" &
SQL_safe(Reques t.Form.Item("bi lling_county")) & "',
Customer_Addres s_Line6 = '" &
SQL_safe(Reques t.Form.Item("bi lling_postcode" )) & "',
Customer_Delive ry_Address_Line 1 = '" &
SQL_safe(Reques t.Form.Item("de livery_house")) & "',
Customer_Delive ry_Address_Line 2 = '" &
SQL_safe(Reques t.Form.Item("de livery_street") ) & "',
Customer_Delive ry_Address_Line 3 = '" &
SQL_safe(Reques t.Form.Item("de livery_area")) & "',
Customer_Delive ry_Address_Line 4 = '" &
SQL_safe(Reques t.Form.Item("de livery_town")) & "',
Customer_Delive ry_Address_Line 5 = '" &
SQL_safe(Reques t.Form.Item("de livery_county") ) & "',
Customer_Delive ry_Address_Line 6 = '" &
SQL_safe(Reques t.Form.Item("de livery_postcode ")) & "',
Customer_Teleph one = '" &
SQL_safe(Reques t.Form.Item("te lephone")) & "', Customer_Fax = '"
& SQL_safe(Reques t.Form.Item("fa x")) & "' WHERE CustomerID =
" & Session("Custom erID"), objConn)

Stack Trace:
[NotSupportedExc eption: Collection is read-only.]
System.Collecti ons.Specialized .NameValueColle ction.Set(Strin g name,
String value) +2029663
System.Collecti ons.Specialized .NameValueColle ction.set_Item( String
name, String value) +10
ASP.details_asp x.__Render__con trol1(HtmlTextW riter __w, Control
parameterContai ner) in C:\MySite\detai ls.aspx:89
System.Web.UI.C ontrol.RenderCh ildren(HtmlText Writer writer)
+3153695
System.Web.UI.P age.Render(Html TextWriter writer) +25
System.Web.UI.C ontrol.RenderCo ntrolInternal(H tmlTextWriter writer,
ControlAdapter adapter) +23
System.Web.UI.C ontrol.RenderCo ntrol(HtmlTextW riter writer,
ControlAdapter adapter) +139
System.Web.UI.C ontrol.RenderCo ntrol(HtmlTextW riter writer) +24
System.Web.UI.P age.ProcessRequ estMain(Boolean
includeStagesBe foreAsyncPoint, Boolean includeStagesAf terAsyncPoint)
+5916

anyone know why it is read only?

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[Karl Seguin]

Ronald,
I can't see the specific error in the code you've provided. I can tell you
that some collections are read-only, such as Request.Form. This means that
you can store a value into them. For example, you couldn't do this:

Request.Form("f irstName") = "someValue"

you can only read from them:

dim firstName as string = Request.Form("f irstName")

The error indicates that you are trying to store a value into a read-only
collection. But, looking at the line you provided (not a very nice line by
the way), i can't see the specific instance of this.

Karl

--
MY ASP.Net tutorials
http://www.openmymind.net/
"ronaldlee" <le***********@ yahoo-dot-com.no-spam.invalid> wrote in message
news:41******** **@Usenet.com.. .

I have this error in Line 89.

Collection is read-only.
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.

Exception Details: System.NotSuppo rtedException: Collection is
read-only.

Source Error:
Line 87: Else
Line 88:
Line 89: objRS.Open("UPD ATE Customers SET Customer_Name = '" &
SQL_safe(Reques t.Form.Item("re alname")) & "', customer_Email = '"
& SQL_safe(Reques t.Form.Item("em ail")) & "',
Customer_Addres s_Line1 = '" &
SQL_safe(Reques t.Form.Item("bi lling_house")) & "',
Customer_Addres s_Line2 = '" &
SQL_safe(Reques t.Form.Item("bi lling_street")) & "',
Customer_Addres s_Line3 = '" &
SQL_safe(Reques t.Form.Item("bi lling_area")) & "',
Customer_Addres s_Line4 = '" &
SQL_safe(Reques t.Form.Item("bi lling_town")) & "',
Customer_Addres s_Line5 = '" &
SQL_safe(Reques t.Form.Item("bi lling_county")) & "',
Customer_Addres s_Line6 = '" &
SQL_safe(Reques t.Form.Item("bi lling_postcode" )) & "',
Customer_Delive ry_Address_Line 1 = '" &
SQL_safe(Reques t.Form.Item("de livery_house")) & "',
Customer_Delive ry_Address_Line 2 = '" &
SQL_safe(Reques t.Form.Item("de livery_street") ) & "',
Customer_Delive ry_Address_Line 3 = '" &
SQL_safe(Reques t.Form.Item("de livery_area")) & "',
Customer_Delive ry_Address_Line 4 = '" &
SQL_safe(Reques t.Form.Item("de livery_town")) & "',
Customer_Delive ry_Address_Line 5 = '" &
SQL_safe(Reques t.Form.Item("de livery_county") ) & "',
Customer_Delive ry_Address_Line 6 = '" &
SQL_safe(Reques t.Form.Item("de livery_postcode ")) & "',
Customer_Teleph one = '" &
SQL_safe(Reques t.Form.Item("te lephone")) & "', Customer_Fax = '"
& SQL_safe(Reques t.Form.Item("fa x")) & "' WHERE CustomerID =
" & Session("Custom erID"), objConn)

Stack Trace:
[NotSupportedExc eption: Collection is read-only.]
System.Collecti ons.Specialized .NameValueColle ction.Set(Strin g name,
String value) +2029663
System.Collecti ons.Specialized .NameValueColle ction.set_Item( String
name, String value) +10
ASP.details_asp x.__Render__con trol1(HtmlTextW riter __w, Control
parameterContai ner) in C:\MySite\detai ls.aspx:89
System.Web.UI.C ontrol.RenderCh ildren(HtmlText Writer writer)
+3153695
System.Web.UI.P age.Render(Html TextWriter writer) +25
System.Web.UI.C ontrol.RenderCo ntrolInternal(H tmlTextWriter writer,
ControlAdapter adapter) +23
System.Web.UI.C ontrol.RenderCo ntrol(HtmlTextW riter writer,
ControlAdapter adapter) +139
System.Web.UI.C ontrol.RenderCo ntrol(HtmlTextW riter writer) +24
System.Web.UI.P age.ProcessRequ estMain(Boolean
includeStagesBe foreAsyncPoint, Boolean includeStagesAf terAsyncPoint)
+5916

anyone know why it is read only?

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

Do you mind if I send you the whole application so that you can help
me to have a look?

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

yeah, so I do not know what's wrong with my code

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[Karl Seguin]

Brad answered your 2nd post ...I think he's onto something...

Karl

--
MY ASP.Net tutorials
http://www.openmymind.net/
"ronaldlee" <le***********@ yahoo-dot-com.no-spam.invalid> wrote in message
news:41******** @Usenet.com...

Do you mind if I send you the whole application so that you can help
me to have a look?

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

so how can i solve it?
do you mind to leave your email so that i can contact you

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

here is my code
<script language="VB" runat="Server">
Dim objConn As ADODB.Connectio n
Dim objRS As ADODB.Recordset
Dim dbDNS As String
Dim name As Object
Dim value As Object
Function openDB() As Object
objConn = New ADODB.Connectio n
objConn.Open("d bfile")

objRS = New ADODB.Recordset
End Function
Function closeDB() As Object
' If the RecordSet has a state of 1 (open) close it
If objRS.state = 1 Then
objRS.Close()
End If

objConn.Close()

'UPGRADE_NOTE: Object objConn may not be destroyed until it is
garbage collected. Copy this link in your browser for more:
'http://msdn.microsoft. com/library/en-us/vbcon/html/vbup1029.asp'
objConn = Nothing
End Function
' Generates the county listing
Function generate_county _list(ByRef name As String, ByRef value As
String, ByRef isDelivery As Byte) As String
' ASP doesn't support associate arrays like Perl and PHP, so need to
use a more messy method
' Created by Stephen Ball

Dim South_West(5) As String
Dim North_West(5) As String
Dim East_Midlands(5 ) As String
Dim West_Midlands(6 ) As String
Dim South_Central(6 ) As String
Dim South_East(6) As String
Dim East_Anglia(6) As String
Dim North_East(5) As String
Dim county As String
Dim data As String

East_Anglia(0) = "Bedfordshi re"
East_Anglia(1) = "Cambridgeshire "
East_Anglia(2) = "Essex"
East_Anglia(3) = "Hertfordsh ire"
East_Anglia(4) = "Norfolk"
East_Anglia(5) = "Suffolk"

East_Midlands(0 ) = "Derbeyshir e"
East_Midlands(1 ) = "Leicestershire "
East_Midlands(2 ) = "Lincolnshi re"
East_Midlands(3 ) = "Northamptonshi re"
East_Midlands(4 ) = "Nottinghamshir e"

North_East(0) = "Cleveland"
North_East(1) = "Durham"
North_East(2) = "Northumberland "
North_East(3) = "Tyne and Wear"
North_East(4) = "Yorkshire"

West_Midlands(0 ) = "Herefordsh ire"
West_Midlands(1 ) = "Shopshire"
West_Midlands(2 ) = "Staffordsh ire"
West_Midlands(3 ) = "Warickshir e"
West_Midlands(4 ) = "West Midlands"
West_Midlands(5 ) = "Worcestershire "

North_West(0) = "Cheshire"
North_West(1) = "Cumbria"
North_West(2) = "Greater Manchester"
North_West(3) = "Lancashire "
North_West(4) = "Merseyside "

South_Central(0 ) = "Berkshire"
South_Central(1 ) = "Dorset"
South_Central(2 ) = "Hampshire"
South_Central(3 ) = "Isle of White"
South_Central(4 ) = "Oxfordshir e"
South_Central(5 ) = "West Sussex"

South_East(0) = "Buckinghamshir e"
South_East(1) = "East Sussex"
South_East(2) = "Greater London"
South_East(3) = "Kent"
South_East(4) = "Middlesex"
South_East(5) = "Surrey"

South_West(0) = "Cornwall"
South_West(1) = "Devon"
South_West(2) = "Gloucestershir e"
South_West(3) = "Somerset"
South_West(4) = "Wiltshire"

If isDelivery = 1 Then
data = "<select name=""" & name & """
onchange=""unch eck_billing();" ">"
Else
data = "<select name=""" & name & """>"
End If

data = data & "<option value="""">Sele ct a
county:</option>"

' Generate the East Anglia List
data = data & "<optgroup label=""East Anglia"">"
For Each county In East_Anglia
data = data & create_list(cou nty, value)
Next county

' Generate the East Midlands List
data = data & "<optgroup label=""East Midlands"">"
For Each county In East_Midlands
data = data & create_list(cou nty, value)
Next county

' Generate the North East List
data = data & "<optgroup label=""North East"">"
For Each county In North_East
data = data & create_list(cou nty, value)
Next county

' Generate the West Midlands List
data = data & "<optgroup label=""West Midlands"">"
For Each county In West_Midlands
data = data & create_list(cou nty, value)
Next county

' Generate the North West List
data = data & "<optgroup label=""North West"">"
For Each county In North_West
data = data & create_list(cou nty, value)
Next county

' Generate the South Central List
data = data & "<optgroup label=""South Central"">"
For Each county In South_Central
data = data & create_list(cou nty, value)
Next county

' Generate the South East List
data = data & "<optgroup label=""South East"">"
For Each county In South_East
data = data & create_list(cou nty, value)
Next county

' Generate the South West List
data = data & "<optgroup label=""South West"">"
For Each county In South_West
data = data & create_list(cou nty, value)
Next county

data = data & "</select>"
generate_county _list = data

End Function
' Generates the option value
Function create_list(ByR ef county As String, ByRef current As String)
As String
Dim data As String

If county <> "" Then
If county = current Then
data = data & "<option value=""" & county & """
selected=""sele cted"">" & county & "</option>"
Else
data = data & "<option value=""" & county & """>"
& county & "</option>"
End If
End If

create_list = data
End Function
' A function to make data SQL safe, replace ' with ''
Function SQL_safe(ByRef data As String) As String
data = Replace(data, "'", "''")

SQL_safe = data
End Function

</script>
<%

dbDNS = "COMP224_Assign ment_Database"
%>

hope this helps

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

so how can i solve this...
i really want to solve this asap..

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

sorry, I am a beginner, can you give me an example of how to do it?
thanks

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*

[ronaldlee]

sorry, I am a beginner, can you give me an example of how to do it?
thanks

*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*