Admin panelinde ürünleri listeleyen sayfa durduk yere aşağıdaki hatayı vermeye başladı.
Server Error
500 - Internal server error.
There is a problem with the resource you are looking for, and it cannot be displayed.
Aspden hiç anlamıyorum yardımcı olabilirseniz sevinirim.
Urunler.asp sayfasının kodları
<html>
<head>
<title>Kontrol Paneli</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<link rel="stylesheet" href="admin.css" type="text/css">
<style type="text/css">
<!--
.style12 {font-size: 11px; font-weight: bold; font-family: Arial, Helvetica, sans-serif; }
.style14 {font-size: 11px; font-weight: bold; }
.style15 {font-size: 11px}
.style16 {font-size: 11px; font-weight: bold; color: #FF0000; }
.style25 {color: #000033; font-weight: bold; font-size: 11px; }
.style26 {color: #FF0000; font-size: 11px; }
.style27 {color: #000033; font-size: 11px; }
-->
</style>
</head>
<body bgcolor="#CCCCCC" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="urunmenu.asp"-->
<table width="1124" border="0" cellspacing="1" cellpadding="4" align="center" height="360">
<tr>
<td align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFCC" align="center" height="30"><a href="urun_ekle.asp"><font face="Arial, Helvetica, sans-serif" size="3"><b>Ürün
Ekle</b></font></a></td>
</tr>
<tr>
<td bgcolor="#FFFFCC" align="center" height="30">
<form method="GET">
<table width="700" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="100"><span class="style14"><font face="Arial, Helvetica, sans-serif">Ürün
Kodu</font></span></td>
<td width="173">
<input name="urunkodu" type="text" value="<%=request("urunkodu")%>"> </td>
<td width="93"><span class="style14"><font face="Arial, Helvetica, sans-serif">Kategori</font></span></td>
<td width="174">
<span class="style14">
<%
function AktifPasif(gelen)
if gelen = "True" then
AktifPasif = "Aktif"
else
AktifPasif = "<font color='red'> Pasif </font>"
end if
end function
Set tablo_anadep= Server.CreateObject("ADODB.Recordset")
tablo_anadep.Open "select * from katalog", Application("connb") , 3 , 3 , 1
%>
<select name="Kategori">
<option value="all"> Tüm Kategoriler </option>
<%
Set tablo_anadep= Server.CreateObject("ADODB.Recordset")
tablo_anadep.Open "select * from katalog where skatno = 0", Application("connb") , 3 , 3 , 1
Set tablo_altdep= Server.CreateObject ("ADODB.Recordset")
tablo_altdep.CursorType = 3
tablo_altdep.LockType = 3
deep = 1
%>
<% do while not tablo_anadep.eof %>
<option value="<%=tablo_anadep("katno")%>" <% if trim(request("Kategori")) = trim(tablo_anadep("katno")) then %> selected <% end if %>> <%=tablo_anadep("isim")%> </option>
<%
altdep_al 1,tablo_anadep("katno"),trim(tablo_anadep("isim"))
tablo_anadep.MoveNext
loop
%>
<%
tablo_anadep.Close
set tablo_anadep=Nothing
set tablo_altdep=Nothing
'*************************************Alt Departmanların Alındıgı Bölüm**********************************************
sub altdep_al(bolum,depnoal,depname)
dim tablo_altdep
sorgu = "SELECT * FROM katalog where skatno = " & depnoal
Set tablo_altdep= Application("connb").Execute(sorgu)
dep = dep+1
Do While Not tablo_altdep.EOF
%>
<option value="<%=tablo_altdep("katno")%>" <% if trim(request("Kategori")) = trim(tablo_altdep("katno")) then %> selected <% end if %>><%=string(bolum*5,"-")%>> <%=tablo_altdep("isim")%> </option>
<%
altdep_al bolum+1,tablo_altdep("katno"),trim(tablo_altdep("isim"))
tablo_altdep.MoveNext
Loop
tablo_altdep.Close
end sub
%>
</select>
</span></td>
</tr>
<tr>
<td><span class="style14"><font face="Arial, Helvetica, sans-serif">Ürün Adı</font></span></td>
<td><input name="urunadi" type="text" value="<%=request("urunadi")%>"></td>
<td><span class="style14"><font face="Arial, Helvetica, sans-serif">Aktif</font></span></td>
<td><span class="style14">
<input name="Aktif" type="checkbox" value="True" checked checked<% if request("aktif") = "True" then %> checked<%end if %>>
</span><span class="style15">Evet </span></td>
</tr>
<tr>
<td><span class="style12">Firma</span></td>
<td><span class="style14">
<%
Set tablo_anadep= Server.CreateObject("ADODB.Recordset")
tablo_anadep.Open "select * from firmalar order by firmaismi", Application("connb") , 3 , 3 , 1
%>
<select name="firmalar">
<option value="all"> Tüm Firmalar</option>
<% do while not tablo_anadep.eof %>
<option value="<%=tablo_anadep("firmano")%>" <% if trim(request("firmalar")) = trim(tablo_anadep("firmano")) then %> selected <% end if %>> <%=tablo_anadep("firmaismi")%> </option>
<%
tablo_anadep.movenext
loop
%>
</select>
</span></td>
<td><span class="style15"></span></td>
<td><span class="style15"></span></td>
</tr>
<tr>
<td><span class="style14">Yeni Ürünler Temsili </span></td>
<td><span class="style14">
<input name="ayinurunu" type="checkbox" id="ayinurunu2" value="True" <% if request("ayinurunu") = "True" then %> checked<%end if %>>
</span><span class="style15">Evet </span></td>
<td><span class="style14">Yeni Ürün</span></td>
<td><span class="style14">
<input name="yeniurun" type="checkbox" id="yeniurun" value="True" <% if request("yeniurun") = "True" then %> checked<%end if %>>
</span><span class="style15">Evet</span> </td>
</tr>
<tr>
<td><span class="style14">İndirimde</span></td>
<td><span class="style14">
<input name="indirimde" type="checkbox" id="indirimde" value="True" <% if request("indirimde") = "True" then %> checked<%end if %>>
</span><span class="style15">Evet</span> </td>
<td><span class="style14">Hediyeli</span></td>
<td><span class="style14">
<input name="hediyeli" type="checkbox" id="hediyeli" value="True" <% if request("hediyeli") = "True" then %> checked<%end if %>>
</span><span class="style15">Evet </span></td>
</tr>
<tr>
<td><span class="style16">Bayi İndirimde</span></td>
<td><span class="style14">
<input name="bindirimde" type="checkbox" id="bindirimde" value="True" <% if request("bindirimde") = "True" then %> checked<%end if %>>
</span><span class="style15"> Evet</span> </td>
<td><span class="style16">Bayi Hediyeli</span></td>
<td><span class="style14">
<input name="bhediyeli" type="checkbox" id="bhediyeli" value="True" <% if request("bhediyeli") = "True" then %> checked<%end if %>>
</span><span class="style15"> Evet</span> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="4" align="center">
<input type="submit" value="Filtrele"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
function katadi(no)
Set tablo_anadep1= Server.CreateObject("ADODB.Recordset")
tablo_anadep1.Open "select * from katalog where katno= " & no, Application("connb") , 3 , 3 , 1
katadi = tablo_anadep1("isim")
tablo_anadep1.close
end function
yon = Request.Querystring("yon")
Select Case yon
Case "ileri" ' ileri gidilmişse
Session("simdiki_sayfa") = Session("simdiki_sayfa") + 1
Case "geri" ' geri gidilmişse
Session("simdiki_sayfa") = Session("simdiki_sayfa") - 1
Case Else ' hiç biri değilse
session("simdiki_sayfa") = yon
End Select
sorgu = "select * from furun"
if request("aktif") <> "" or request("urunkodu") <> "" or request("urunadi") <> "" or request("urun_isim") <> "" or request("kategori") <> "" then
sorgu = "select * from furun"
if request("aktif") = "True" then
sorgu = sorgu & " where aktif = True"
else
sorgu = sorgu & " where aktif = False"
end if
if request("indirimde") = "True" then
sorgu = sorgu & " and indirimde = True"
end if
if request("bindirimde") = "True" then
sorgu = sorgu & " and bindirimde = True"
end if
if request("yeniurun") = "True" then
sorgu = sorgu & " and urunyeni = True"
end if
if request("hediyeli") = "True" then
sorgu = sorgu & " and hediyeli = True"
end if
if request("bhediyeli") = "True" then
sorgu = sorgu & " and bhediyeli = True"
end if
if request("ayinurunu") = "True" then
sorgu = sorgu & " and ayinurunu = True"
end if
if request("mp3") = "True" then
sorgu = sorgu & " and mp3 <> ''"
end if
if request("video") = "True" then
sorgu = sorgu & " and video <> ''"
end if
if request("Kategori") <> "" and request("kategori") <> "all" then
sorgu = sorgu & " and (katalog = "&request("kategori")& " or skatalog LIKE '%#" &request("kategori")& "#%') "
end if
if request("urunkodu") <> "" then
sorgu = sorgu & " and urunkodu LIKE '"&request("urunkodu")&"%'"
end if
if request("urunadi") <> "" then
sorgu = sorgu & " and urun_isim Like '"&request("urunadi")&"%'"
end if
if request("firmalar") <> "" and request("firmalar") <> "all" then
sorgu = sorgu & " and fno = "&request("firmalar")
end if
end if
sorgu = sorgu & " order by urunkodu"
Set tablo_urunler= Server.CreateObject("ADODB.Recordset")
tablo_urunler.Open sorgu, Application("connb") , 3 , 3 , 1
tablo_urunler.pagesize=100
If cint(Session("simdiki_sayfa")) > tablo_urunler.pagecount Then
Session("simdiki_sayfa") = 1
End If
If Session("simdiki_sayfa") < 1 Then
Session("simdiki_sayfa") = 1
End If
if not tablo_urunler.eof then
tablo_urunler.absolutepage = Session("simdiki_sayfa")
end if
%>
<table width="1125" border="0" cellspacing="0" cellpadding="2" align="center">
<tr bgcolor="#FFCC66">
<td align=center>
Toplam Ürün Sayısı : <%=tablo_urunler.recordcount%>
</td>
</tr>
</table>
<table width="1068" border="0" cellpadding="2" cellspacing="1">
<tr align="center" bgcolor="#D9D900">
<td width="111"><span class="style14"><font face="Arial, Helvetica, sans-serif">Ürün
Kodu</font></span></td>
<td width="231"><span class="style14"><font face="Arial, Helvetica, sans-serif">Ürün
Adı </font></span></td>
<td width="57"><span class="style14"><font face="Arial, Helvetica, sans-serif">Barkod</font></span></td>
<td width="84"><span class="style14"><font face="Arial, Helvetica, sans-serif"><b>Kategori</b></font></span></td>
<td width="253"><span class="style14"><font face="Arial, Helvetica, sans-serif"><b>Alt Kategori</b></font></span></td>
<td width="49"><span class="style16"><font face="Arial, Helvetica, sans-serif">Satış Fiyatı</font></span></td>
<td width="50"><span class="style25"><font face="Arial, Helvetica, sans-serif">Bayi Fiyatı</font></span></td>
<td width="50"><span class="style25"><font face="Arial, Helvetica, sans-serif">Bayi İndirim</font></span></td>
<td width="50"><span class="style16"><font face="Arial, Helvetica, sans-serif">İndirim</font></span></td>
<td width="49"><span class="style14"><font face="Arial, Helvetica, sans-serif">Aktif</font></span></td>
<td width="28"><span class="style14"><font face="Arial, Helvetica, sans-serif">Sil</font></span></td>
</tr>
<%
Call yoneltgen (cint(Session("simdiki_sayfa")), tablo_urunler.pagecount, yon_linkleri)
for i = 1 to 200
if not tablo_urunler.eof then
f1 = tablo_urunler("fiyat")
bfiyat = formatnumber((tablo_urunler("fiyat") - (tablo_urunler("fiyat")*tablo_urunler("bfiyat"))/100),2)
if tablo_urunler("bindirimde") = True then
fbi1 = formatnumber((tablo_urunler("fiyat") - (tablo_urunler("fiyat")*(tablo_urunler("bfiyat")+tablo_urunler("bindirim")))/100),2)
else
fbi1 = "0"
end if
if tablo_urunler("indirimde") = True then
fi1 = formatnumber((tablo_urunler("fiyat") - (tablo_urunler("fiyat")*tablo_urunler("indirim"))/100),2)
else
fi1 = "0"
end if
%>
<tr bgcolor="#FFFFCC">
<td bgcolor="#FFFFCC"><span class="style15"><font face="Arial, Helvetica, sans-serif"><%=tablo_urunler("urunkodu")%></font></span></td>
<td bgcolor="#FFFFCC"><span class="style15"><font face="Arial, Helvetica, sans-serif"> <a href="urun_degistir.asp?urunno=<%=tablo_urunler("urunno")%>">
<%=tablo_urunler("urun_isim")%></a></font></span></td>
<td bgcolor="#FFFFCC"><span class="style15"><font face="Arial, Helvetica, sans-serif"><%=tablo_urunler("barkod")%></font></span></td>
<td align="center"><span class="style15"><font face="Arial, Helvetica, sans-serif"><%=tablo_urunler("kategori")%></font></span></td>
<td align="center">
<span class="style15">
<%
if tablo_urunler("skatalog") <> "" then
tblu = replace(tablo_urunler("skatalog"),"#","")
tvs = split(tblu,",")
for q = 0 to ubound(tvs)
if tvs(q) <> "" then
%>
<%=katadi(tvs(q))%> /
<%
end if
next %>
<% end if %>
</span></td>
<td align="center"><span class="style26"><font face="Arial, Helvetica, sans-serif"><%=formatnumber(tablo_urunler("fiyat"),2)%></font></span></td>
<td align="center"><span class="style27"><font face="Arial, Helvetica, sans-serif"><%=bfiyat%></font></span></td>
<td align="center"><span class="style27"><font face="Arial, Helvetica, sans-serif"><%=fbi1%> </font></span></td>
<td align="center"><span class="style26"><font face="Arial, Helvetica, sans-serif"><%=fi1%> </font></span></td>
<td align="center"><span class="style15"><font face="Arial, Helvetica, sans-serif"><%=AktifPasif(tablo_urunler("aktif"))%></font></span></td>
<td align="center"><a href="urun_sil.asp?urunno=<%=tablo_urunler("urunno")%>" class="style15"><font face="Arial, Helvetica, sans-serif">Sil</font></a></td>
</tr>
<%
tablo_urunler.MoveNext
end if
next
%>
<%
set tablo_urunler=Nothing
%>
</table>
<table width=100% cellpadding=0 cellspacing=0 align=center>
<tr><td> <%=yon_linkleri%></td></tr>
</table>
<%
' yön linklerini hazırlayan sub rutinimiz...
Sub yoneltgen(simdiki, hepsi, yon_linkleri)
makro = request.servervariables("THIS_PAGE")
for each eleman in request.querystring
if not eleman = "yon" then
parametreler = parametreler & "&"&eleman&"="&request(eleman)
end if
next
If simdiki > 1 Then
str1 = "<a href=""" & makro & "?yon=geri"¶metreler&""" >[ < Geri ]</a>"
End if
If simdiki < hepsi Then
str2 = "<a href=""" & makro & "?yon=ileri"¶metreler&""" >[ İleri > ]</a>"
End If
for i = 1 to tablo_urunler.pagecount
if cint(Session("simdiki_sayfa")) <> i then
sayfalar = sayfalar & " "& "<a href="""&makro&"?yon="&i¶metreler&"""><font color=red face=arial size=2> <u>"&i&"</u></font></a>  "
else
sayfalar = sayfalar & " "& "<font color=blue face=arial size=2> "&i&"</font> "
end if
next
if tablo_urunler.pagecount > 1 then
yon_linkleri = str1 & " " & str2 &"<br><hr>"&sayfalar
else
yon_linkleri = str1 & " " & str2
end if
End Sub
%>
</td>
</tr>
</table>
</body>
</html>