|
-
Jan 8th, 2003, 02:40 AM
#1
Thread Starter
Frenzied Member
 Session and Remove
I wish to remove all item in my session, how do I do that? I have tried to use the code below, but this generates an error. It's the code in the Sub Fjern(..)
Code:
sub page_load()
if not page.IsPostback then
Session("BasketCount") = New ArrayList()
Dim vareArray(5) as string
Dim strVare as String
vareArray(0) = "Kartofler"
vareArray(1) = "Gulerødder"
vareArray(2) = "Æbler"
vareArray(3) = "Appelsiner"
vareArray(4) = "Pærer"
vareArray(5) = "Agurker"
for each strVare in vareArray
drpList.items.add(strVare)
next
end if
end sub
public Sub Fjern(sender As Object, e As EventArgs)
dim i as integer
dim j as integer
j = session("basketCount").count - 1
i = 1
For i=1 to j
Session("BasketCount").RemoveAt(i)
i = i + 1
Next
vareListe.text = ""
End Sub
-
Jan 8th, 2003, 11:58 AM
#2
Need to re-register ASP.NET?
C:\WINNT\Microsoft.NET\Framework\v#VERSIONNUMBER#\aspnet_regiis -i
(Edit #VERSIONNUMBER# as needed - do a DIR if you don't know)
-
Jan 9th, 2003, 02:41 AM
#3
Thread Starter
Frenzied Member
Hi, it doesn't seems like ArrayList support the abandon method, as you can see from the error message in this code.
Code:
<%@ Page Language="VB" %>
<script runat="server">
sub page_load()
if not page.IsPostback then
Session("BasketCount") = New ArrayList()
Dim vareArray(5) as string
Dim strVare as String
vareArray(0) = "Kartofler"
vareArray(1) = "Gulerødder"
vareArray(2) = "Æbler"
vareArray(3) = "Appelsiner"
vareArray(4) = "Pærer"
vareArray(5) = "Agurker"
for each strVare in vareArray
drpList.items.add(strVare)
next
end if
end sub
public Sub Fjern(sender As Object, e As EventArgs)
Session("BasketCount").Abandon()
vareListe.text = ""
End Sub
Sub Tilfoej(Sender As Object, E As Eventargs)
'Her sættes værdierne i ArrayList
Dim strTekst as String
Dim Item as String
'Her tilføjes en bog til listen, hvis der er skrevet noget i tekstboksen
Session("BasketCount").Add(drpList.selectedItem.text)
dim i as integer
i = 1
For Each Item in Session("BasketCount")
StrTekst = StrTekst & "<br />" & i & " " & Item
i = i + 1
Next
vareListe.Text = "Antal varer: " & Session("BasketCount").Count & "<br />Varer: " & StrTekst
End Sub
</script>
<html>
<head>
</head>
<body>
<form id="BasketForm" method="post" runat="server">
Vælg en vare ok Klik "Add" for at tilføje til kurven.
<asp:dropdownlist id="drpList" runat="server"></asp:dropdownlist>
<br />
<asp:Button id="Add" onclick="Tilfoej" runat="server" Text="Add"></asp:Button>
<br />
<asp:Button id="Empty" onclick="Fjern" runat="server" Text="Empty"></asp:Button>
<br />
Basket items :
<asp:label id="vareliste" runat="server"></asp:label>
<br />
</form>
</body>
</html>
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote