Object is not a collection?!

Ashleek007 · January 26th, 2004, 09:45 AM

hi, im new to ASP only been studying it for around 2months and im trying to use the session object to store values passed using a querystring This is the code

dim basketitem
basketitem = request.QueryString()
session.contents(basketitem)
for each item in session.contents("basketitem")
if isobject(session.contents("basketitem")) then
response.write session.contents("basketitem")
else
response.write "no items"
end if
'for each item in request.QueryString
'response.write " " & request.querystring(Item)
next

the idea is three values are collected using the querystring on one page then I want to add them to a kind of basket which i wanted to create using a session object. once the add to basket button is clicked the code show above is ran.

can anyone advise me where to go? this has to be completed by WEDS so any help is appreciated!

cheers
ASH:D

lcsgeek · January 26th, 2004, 11:54 AM

This bit of code worked for me, it involves creating a session level array in global.asa.

global.asa
<SCRIPT LANGUAGE="VBSCript" RUNAT="Server" >
Sub Session_OnStart
Session.basketItems()
End Sub
</SCRIPT>

your button on_Click
dim loopCount
loopCount = 1
If Request.QueryString.Count > 0 Then
For Each Item in Request.QueryString
Session("basketItems("&loopCount&")") = Request.QueryString(Item)
Response.Write(Session("basketItems("&loopCount&") ") & "<br />")
loopCount = loopCount + 1
Next
Else
Response.Write("No Items in basket")
End If

Ashleek007 · January 26th, 2004, 12:43 PM

In the global.asa, it says that it doesnt support the code youve put?

do you not mean session("basketitems")=() ?????

thanks for the initial help
ASH

Ashleek007 · January 26th, 2004, 12:53 PM

if you want to see the flow of the site im trying to make a basket for the address is:
http://www.kay-a.co.uk/FootballMemrobilia/FMindex.asp

go to the shirts and jerseys page and click any item to add, this then displays the values of the querystring. I have then added the code you sugested to the next page ../basket.asp?<%=request.querystring%>

do I need to add it to the button on the previous page " ADD ITEM TO BASKET "?

lcsgeek · January 26th, 2004, 01:15 PM

my appologies, the code will work without declaring the array in global.asa. The session will generate a cookie on the local machine and store the contets of the data there. Please make sure you don't have cookies turned off on your machine.

If you have the Beginning ASP 3.0 book see first paragraph on page 315.

lcsgeek · January 26th, 2004, 02:55 PM

Ok I visited your site, trash the first session array idea and go with this.

Have the "Add Item To Basket" link point to saveCookie.asp with the following:

<%
If Request.QueryString.Count > 0 Then
Response.Cookies("basketItems")("itemtitle") = Request.QueryString("itemtitle")
Response.Cookies("basketItems")("price") = Request.QueryString("price")
Response.Cookies("basketItems")("desc") = Request.QueryString("desc")
End If
Response.Redirect("basket.asp")
%>

Then add this to the basket.asp:
<body>
<%
If Request.Cookies("basketItems").HasKeys Then
    Response.Write("Item Title: " & Request.Cookies("basketItems")("itemtitle") & "<br />")
    Response.Write("Item Price: " & Request.Cookies("basketItems")("price") & "<br />")
    Response.Write("Item Descrition: " & Request.Cookies("basketItems")("desc"))
Else
    Response.Write("Nothing in your basket")
End If
%>
</body>

I think this will get the job done.

Ashleek007 · January 26th, 2004, 03:20 PM

Thanks for that, but this only adds one item to the basket, i wanted to have multiple items in the basket?
is there a way?hehe!

cheers
ASH

lcsgeek · January 26th, 2004, 06:34 PM

saveCookie.asp
<%
Dim strCookieName

strCookieName = "Item"&Session("ItemNumber")

If Request.QueryString.Count > 0 Then
    Response.Cookies(strCookieName)("itemtitle") = Request.QueryString("itemtitle")
    Response.Cookies(strCookieName)("price") = Request.QueryString("price")
    Response.Cookies(strCookieName)("desc") = Request.QueryString("desc")
    Session("ItemNumber") = Session("ItemNumber") + 1
End If

Response.Redirect("basket.asp")

%>

basket.asp
<body>
<%
Response.Write("")
For Each Cookie in Request.Cookies
    If Request.Cookies(Cookie).HasKeys Then
        Response.Write("Item Title: " & Request.Cookies(Cookie)("itemtitle")&"<br />")
        Response.Write("Item Price: " & Request.Cookies(Cookie)("price")&"<br />")
        Response.Write("Item Description: " & Request.Cookies(Cookie)("desc")&"<br />")
        Response.Write("<a href='remove.asp?Item="&Cookie&"'>Remove This Item</a>")
    Else
        Response.Cookies(Cookie).Expires = Date() - 1000
    End If
Next
%>
</body>

remove.asp
<%
Response.Cookies(Request.QueryString("Item")).Expi res = Date() - 1000

Response.Redirect("basket.asp")

%>

Ashleek007 · January 26th, 2004, 08:07 PM

WOW!!!!!!

thank you sooooooooooo much

that works now, all i need to do is some calculations to get a running total and im done, you dont understand how much weight that has lifted from my back!!!! cheers!

If your ever in trouble, giv me a call i'll kill a moose for ya!!!haha

ASH