Fjern fra Session
http://www.wild-game.dk/test/test/login / password
bobbi / bobbi
Når man har lagt eks 4 af de samme ting i kurven også vil fjerne en af dem fjerner den alle.
har man eks 10 af de samme ting fjerner den kun 5 ??
Hvad er der galt ??
=== vare-artikler.asp ====
<!--#include file="include/config.asp" -->
<!--#include file="protect.asp" -->
<%
If request.querystring("buy")="1" then
If Session("basket")<>"" then
Session("basket") = Session("basket") + request.querystring("item") &","
response.redirect "vare-artikler.asp?id=" & request.querystring("id")
else
Session("basket") = ","& request.querystring("item") &","
response.redirect "vare-artikler.asp?id=" & request.querystring("id")
end if
end if
%>
<%
If request.querystring("remove")="1" then
fjernid=request.querystring("idx")
session("basket")=replace(session("basket"), "," & fjernid & "," , ",")
response.redirect "vare-artikler.asp?id=" & request.querystring("id")
end if
%>
<html>
<head>
<TITLE>==WEBTITEL==</TITLE>
<meta name="description" content="==BESKRIVELSE==">
<meta name="keywords" content="==SØGE ORDENE==">
<meta name="robots" content="INDEX, FOLLOW">
<meta name="revisit-after" content="7">
<meta name="Rating" content="General">
<meta name="distribution" content="Global">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<a href="default.asp">Tilbage</a> <a href="login.asp?logoff=1">Logud</a>
<br><br>
<%
response.write session("basket") &"<br><br>"
set rs = connect.Execute("Select * FROM Vare where KategoriID = "&request.querystring("id")&" ")
if not rs.EOF then
Do until rs.EOF
%>
<%=rs("VareNavn")%><br>
Point <%=rs("Varepris")%> <a href="vare-artikler.asp?buy=1&item=<%=rs("VareID")%>&id=<%=request.querystring("id")%>">køb</a>
<br><br>
<%
rs.MoveNext
Loop
else
response.write "ingen felter"
end if
%>
<%
myArr=Split(session("basket"),",")
For i = 0 TO Ubound(MyArr)
temp=myArr(i)
if temp <> "" then
SQL = "SELECT * FROM Vare WHERE VareID = " & temp & ""
Set rs = Connect.Execute(SQL)
response.write i & rs("Varenavn") &" <a href='vare-artikler.asp?remove=1&idx="&rs("VareID")&"&id="&request.querystring("id")&"'>fjern</a><br>"
MyPoint = Cint(Session("UserPoint"))
total = total+rs("Varepris")
MyRest = MyPoint-total
end if
next
%>
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Dine point</td>
<td><%=Session("UserPoint")%></td>
</tr>
<tr>
<td>Brugt</td>
<td><%=total%></td>
</tr>
<tr>
<td>Rest point</td>
<td><%=MyRest%></td>
</tr>
</table>
</body>
</html>
