Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Tasarım ve grafik
Web Tasarım ve Hazır Kodlar
ASP YARDIM
Bu konudaki kullanıcılar: 1 misafir
2
Cevap 421
Tıklama 0
Öne Çıkarma
Cevap 421
Tıklama 0
Öne Çıkarma
1. sayfa
-
ASP YARDIM
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
DonanımHaber Forum - Mini Sürüm
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
------------------------
<%@LANGUAGE="VBSCRIPT" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>.: Tüm Siparişlerinizin Listesi :. </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<%
response.write "<font size=" & chr(34)& "2" & chr(34) & "TÜM SİPARİŞLERİNİZ :" & "</font>"
sepetno=rs("sepetno")
if rs.eof then
response.write("Henüz siparişiniz yok.")
else
set rs8=db.execute("select * from sepet where firmaID="&firmaID&" and sepetno="&sepetno&" order by id desc")
i=1
num = rs8.recordcount
dim sepetno1(num),durum(num),isim(num),fiyat(num),pb(n um),adet(num),tarih(num)
while not rs8.eof
sepetno_(i)=rs8("sepetno")
durum(i)=rs8("durum")
isim(i)=rs8("isim")
fiyat(i)=rs8("fiyat")
pb(i)=rs8("pb")
adet(i)=rs8("adet")
tarih(i)=rs8("tarih")
if durum(i)=1 then
onay(i)="onaylandı"
else
onay(i)="onaylanmadı"
end if
i=i+1
rs8.movenext
wend %>
<table width="700" border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse" bordercolor="111111" bgcolor="#33CCFF">
<tr>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Sipariş Numarası </font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Sipariş Şekli </font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Sipariş Tutarı </font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Sipariş Durumu </font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Sipariş Tarihi </font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Ürün Adı</font></div></td>
<td width="100" height="16"><div align="center"><font color="#B90000" size="1" face="Verdana">Ürün Adedi</font></div></td>
</tr>
<% i=1
do
if durum(i)=1 then %>
<tr>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=sepetno_(i)%> </font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=siparissekli(i)%> </font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=fiyat(i)%></font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=durum(i)%></font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=tarih(i)%></font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=isim(i)%></font></div></td>
<td width="100" height="16"><div align="center"><font size="1" face="Verdana"><%=adet(i)%></font></div></td>
</tr>
<% end if
i=i+1
loop until num %>
</table>
<% end if %>
</body>
</html>
-------------------------------------------
HATA KODU ALTTA
---------------
Teknik Bilgiler (destek personeli için)
Hata Tipi:
Microsoft VBScript derleme hatası (0x800A0402)
Tamsayı sabiti gerekli
/local/wwwroot/sayf.asp, line 23, column 13
dim sepetno1(num),durum(num),isim(num),fiyat(num),pb(n um),adet(num),tarih(num)
------------^
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.