<!--#include file="view.asp"-->
<%
loginGerekli()
call header
act=sec.p("act")
if act="add" then
urun=sec.pint("urun")
adet=sec.pint("adet")
if kayitKontrol("sepet","urun="& urun &" and uye="& loginID) then
bag.execute("update sepet set adet=(adet + "& adet &") where urun="& urun &" and uye="& loginID)
adetUP="?adetU="& urun
else
bag.execute("insert into sepet(uye,urun,adet) values('"& loginID &"','"& urun &"','"& adet &"')")
end if
response.Redirect("sepet.asp"& adetUP)
elseif act="delete" then
delet=sec.p("delet")
dl=split(delet,",")
for i=0 to ubound(dl)
bag.execute("delete from sepet where id="& sec.sqlint(dl(i)) &" and urun<>1629")
next
response.Redirect("sepet.asp")
elseif act="update" then
for each al in request.Form
if left(al,4)="adet" then
tmp=split(al,"_")
bag.execute("update sepet set adet="& sec.sqlint(request.form(al)) &" where id="& tmp(1))
end if
next
response.Redirect("sepet.asp")
end if
response.Write(act)
set urn=bag.execute("select sepet.id as sid,urun.id, urun.kampanya, urun.fiyat, urun.kfiyat, urun.adi, urun.resim, sepet.adet from (sepet left join urun on urun.id=sepet.urun) where uye="& loginID)
%>
<table cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><img src="images/golgesol.png" width="31" height="604"></td>
<td valign="top" width="730">
<table cellpadding="0" cellspacing="0">
<tr><td height="15"></td></tr>
<tr><td class="baslik">Sepetim</td></tr>
<tr><td height="10"></td></tr>
<tr><td height="1" bgcolor="#CCCCCC" width="730"></td></tr>
<tr><td height="10"></td></tr>
<tr>
<td class="icerik">
<%if not urn.eof then%>
<form action="sepet.asp" method="post">
<input type="hidden" name="act" id="act" value="" />
<table cellpadding="2" cellspacing="2">
<tr style="background:#666; color:#FFF;">
<td width="50" align="center" class="beyaz">Sil</td>
<td width="290" style="padding-left:23px;" class="beyaz">Ürün Adı</td>
<td width="120" align="center" class="beyaz">Adet</td>
<td width="120" align="center" class="beyaz">Ürün Fiyatı</td>
<td width="135" align="center" class="beyaz">Fiyat</td>
</tr>
<% tfiyat=0
i=0
while not urn.eof
if urn("kampanya")=true then
gfiyat=(formatnumber(urn("kfiyat"),2) * urn("adet"))
tfiyat=tfiyat + gfiyat
else
gfiyat=(formatnumber(urn("fiyat"),2) * urn("adet"))
tfiyat=tfiyat + gfiyat
end if
if urn("resim")<>"" then
resim=urn("resim")
else
resim="images/nofoto.jpg"
end if
%>
<tr style="background:#E2E2E2;">
<td align="center" height="80"><input type="checkbox" name="delet" <%if urn("id")<>1629 then%>value="<%=urn("sid")%>"<%else%>disabled<%end if%> /></td>
<td>
<div style="float:left;"><a href="urun.asp?id=<%=urn("id")%>"><img src="<%=resim%>" width=50 height=50 border="0" /></a></div>
<div style="float:left; width:255px; margin-left:5px;">
<div class="icerik"><%=urn("adi")%></div>
</div>
</td>
<td align="center"><input type="text" name="adet_<%=urn("sid")%>" value="<%=urn("adet")%>" style="width:50px;" />
<%if adetU=urn("id") then%><div class="alinir" style="margin-top:5px;">adet arttırıldı</div><%end if%></td>
<td align="center"><%if urn("kampanya")=false then%><%=urn("fiyat")%> TL<%else%><%=urn("kfiyat")%> TL<%end if%></td>
<td align="center"><%= gfiyat %> TL</td>
</tr>
<%urn.movenext
wend%>
<tr style="background:#666; color:#FFF;">
<td colspan="2"><input type="submit" onClick="$('#act').attr('value','delete'); " value="sil" class="input1"/></td>
<td><input type="submit" onClick="$('#act').attr('value','update'); " value="Sepeti Güncelle" class="input1" /></td>
<td align="right" style="font-size:8pt;">Toplam Fiyat <font size="1">(KDV Dahil)</font></td>
<td width="120" align="center"><%=tfiyat%> TL</td>
</tr>
<tr>
<td><a href="default.asp"><img src="images/avdevam.jpg" border="0" /></a></td>
<td height="40" align="right" colspan="5"><a href="siparis.asp"><img src="images/satinal.jpg" border="0" /></a></td>
</tr>
</table>
</form>
<%else%>
<div class="font2b" style="font-size:16pt; margin:10px 0;" align="center">Sepetiniz Boş</div>
<%end if%>
</td>
</tr>
<tr><td height="5"></td></tr>
</table>
</td>
<td valign="top"><img src="images/golge.png" width="31" height="604"></td>
</tr>
</table>
<%call footer%>67. satırda Microsoft VBScript çalýþma hatasý hata '800a000d'
Tür uyumsuz: 'formatnumber'
/ebsanmatbaa/sepet.asp, satır 67
Şu hatayı alıyorum.
Yardımlarınızı bekliyorum.
