Şimdi Ara

ASP YARDIM

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Bu Konudaki Kullanıcılar:

3 Misafir - 3 Masaüstü

5 sn

3
Cevap

0
Favori

350
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

selam arkadaşlar B kodda Aşağıdaki hatayı veriyor yardım ederseniz sevinirim
------------------------
<%@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)
------------^