1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138
|
<!--#include file="session.asp"-->
<%
dim qte
if request.form("abo")="" and request.querystring("add")= "" then
response.redirect (request.ServerVariables("HTTP_REFERER"))
end if
if request.QueryString("add")<>"" then
i=cint(request.QueryString("add"))
for n = 0 to int(session("item"))
if i = caddy(0,n) then
caddy(1,n) = caddy(1,n) + 1
qte =1
'response.Write("[NUM:"&caddy(0,n)&"]")
'response.Write("[QTE:"&caddy(1,n)&"]")
'response.Write("["&session("item")&"]")
exit for
end if
next
if qte = 0 then
caddy(0,session("item")) = i
caddy(1,session("item")) = 1
caddy(2,session("item")) = request.QueryString("cat")
' response.Write(caddy(0,session("item")))
'response.Write(caddy(1,session("item")))
'response.Write("["&session("item")&"]")
session("item") = session("item") + 1
redim preserve caddy(3,session("item"))
end if
session("sol") = caddy
response.Redirect(request.ServerVariables("HTTP_REFERER"))
'Response.AddHeader "Refresh", "10;URL=http://www.google.com/"
else
if request.Form("abo") <> "" then
idabo = request.Form("abo")
tabid = split(trim(idabo), ",")
for cpt = 0 to ubound(tabid)
i = cint(tabid(cpt))
for n = 0 to int(session("item"))
if i = caddy(0,n) then
caddy(1,n) = caddy(1,n) + 1
qte = 1
exit for
end if
next
if qte = 0 then
caddy(0,session("item")) = i
caddy(1,session("item")) = 1
caddy(2,session("item")) = request.QueryString("cat")
session("item") = session("item") + 1
redim preserve caddy(3,session("item"))
end if
next
'response.Write(caddy(0,0)&"<br>"&caddy(1,0))
session("sol") = caddy
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if
end if
if request.Form("free") then
i=cint(request.Form("free"))
if Session("free") = "" then
if cint(Session("total")) >= 79 then
caddy(0,session("item")) = i
caddy(1,session("item")) = 1
caddy(2,session("item")) = 1
session("item") = session("item") + 1
redim preserve caddy(3,session("item"))
session("sol") = caddy
end if
else
for n = 0 to int(session("item"))
if int(Session("free")) = caddy(0,n) then
notadd=0
caddy(0,n) = i
caddy(1,n) = 1
caddy(2,n) = 1
exit for
else
notadd = 1
end if
next
if notadd = 1 then
response.Write("her")
caddy(0,session("item")) = i
caddy(1,session("item")) = 1
caddy(2,session("item")) = 1
session("item") = session("item") + 1
redim preserve caddy(3,session("item"))
end if
end if
'response.Write(Session("total"))
' response.Write("<br>")
' response.Write(Session("free"))
Session("free") = i
session("sol") = caddy
'response.Write(Session("free"))
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if
%> |
Partager