<% @Language=VBScript %>
<!-- #include file="parola.asp" -->
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../download.mdb")
Set MaxiCooL = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kategori"
MaxiCooL.Open sor,Sur,1,3
islem=Request.QueryString("islem")
if islem="ekle" then
call ekle
elseif islem="sil" then
call sil
end if
git = Request.QueryString("git")
if git="" then
git=1
end if
sub sil
kid = Request("kid")
Set MaxiCooL = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "delete from kategori where kid="&kid&""
MaxiCooL.open SQL_delete,Sur,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<link rel="stylesheet" type="text/css" href="stil.css">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Download Yönetimi Yönetici Bölümü</title>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="550">
<tr>
<td><img border="1" src="../bannerimiz.gif" alt="selam"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="300" bgcolor="#D1D1D1">
<tr>
<td width="300" colspan="2" bgcolor="#808080" height="20">
<p align="center"><font color="#FFFFFF"><b>Kategori İşlemleri</b></font></td>
</tr>
<tr>
<td width="200" bgcolor="#EAEAEA" height="15"> <b><font color="#000000">Kategori
Adı</font></b></td>
<td width="100" bgcolor="#EAEAEA" height="15">
<p align="center"><b>İşlem</b></td>
</tr>
<% Do while not MaxiCooL.eof %>
<tr>
<td width="200" bgcolor="#FFFFFF"> <%=MaxiCooL("kategori_adi" )%></td>
<td width="100" bgcolor="#FFFFFF">
<p align="center"><a href="katduzenle.asp?kid=<%=MaxiCooL("kid")%>" font title="selam">Düzenle</a> -
<a href="kat_admin.asp?islem=sil&kid=<%=MaxiCooL( "kid")%>"> Sil</a></td>
</tr>
<%MaxiCooL.movenext%>
<%Loop%>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td height="20"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td>
<form method="POST" action="kat_admin.asp?islem=ekle">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="300" bgcolor="#D1D1D1" height="20">
<tr>
<td bgcolor="#808080">
<p align="center"><b><font color="#FFFFFF">Yeni Kategori
Ekleme Bölümü</font></b></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" width="300" bgcolor="#D1D1D1" cellspacing="1">
<tr>
<td width="100" align="right" height="25" bgcolor="#EAEAEA">Kategori Adı
:</td>
<td width="200" height="25" bgcolor="#EAEAEA"> <input type="text" name="kategori_adi" size="25" class="form"></td>
</tr>
<tr>
<td width="100" align="right" height="25" bgcolor="#EAEAEA">İlk Harf :</td>
<td width="200" height="25" bgcolor="#EAEAEA"> <input type="text" name="ilk_harf" size="25" class="form"></td>
</tr>
<tr>
<td width="100" align="right" height="25" bgcolor="#EAEAEA"> </td>
<td width="200" height="25" bgcolor="#EAEAEA">
<p align="center"><input type="submit" value="Tamam" name="Submit" class="form"></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</center>
</div>
<p align="center">Copyright © 2002, <a href="mailto:webmaster@ornekasp.com">Zekai
Filiz</a><br>
<a href="http://www.ornekasp.com">http://www.ornekasp.com</a></p>
<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../download.mdb")
Set MaxiCooL = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kategori"
MaxiCooL.Open sor,Sur,1,3
%>
<% Dim kategori_adi, ilk_harf, kat_tanim
kategori_adi = Request.Form("kategori_adi")
ilk_harf = Request.Form("ilk_harf")
kat_tanim = Request.Form("kat_tanim")
MaxiCooL.addnew
MaxiCooL("kategori_adi") = kategori_adi
MaxiCooL("ilk_harf") = ilk_harf
MaxiCooL("kat_tanim") = kat_tanim
MaxiCooL.update
Response.Write "<center><font face=verdana color=black size=1>Kategori eklendi...<br><a href=default.asp>Ana Sayfa</a></font></center>"
Response.End
end sub
%>
</body>
</html>
Misafirhata aldığın sayfalardan bırının örnek olarak asp kodlarının (sayfanın tamamı olacak şekılde) buraya yapıştırırmısın.nastyes adlı üyeden alıntı: mesajı görüntüleya kafama takılan herşey tamam bir tek admin panelinde bu hatayı veriyor
