dabase'den kayıt silme yardım

[cemka]

<!--#include file = "style.asp"-->



<% If session("admin") = "ok" then %>

<%
set uyeList = server.createobject("adodb.recordset")
uyeList_S = ("SELECT * from cv_data ORDER BY id DESC;")
uyeList.open uyeList_S,baglanti,1,3
%>

<%Action = Request("Action")%>

<% IF Action = "Delete" Then %>
<%
ID = Request.QueryString("ID")
Set uyeList_S = Server.CreateObject("ADODB.RecordSet")
SQL = "DELETE From cv_data Where ID = "&ID&""
uyeList_S.open SQL,uyeList_S,baglanti,1,3
Response.Redirect Request.ServerVariables("HTTP_REFERER")
%>
<% uyeList_S.Close : Set uyeList_S = Nothing %>
<% END IF %>




<SCRIPT LANGUAGE="JavaScript">
function Delete()
{
return confirm ('Bu ürün veri tabanından silinecek, devam etmek istiyormusunuz.?')
}
</script>



<table border="0" width="100%">
<tr>
<td bgcolor="#f7f7f7">&gt;&gt;</td>
<td bgcolor="#f7f7f7" colspan="2"><font color="#008080"><b>Üye Listesi</b></font></td>
</tr>
<%
while NOT uyeList.eof
%>
<tr>
<td width="15%">&nbsp;</td>
<td style="border-bottom: 1px solid #C0C0C0" width="2%"><li><% if NOT uyeList("ozgecmis_dosya") = "" then %><a target="_blank" href="../<% =uyeList("ozgecmis_dosya") %>"><img src="../images/dosya.gif" border="0" alt="<% =uyeList("ozgecmis_dosya") %>"></a> <a href="?Action=Delete&ID=<%=uyeList("ID")%>" OnClick="return Delete()"> <img src="../images/del.gif"><% end if %></td>
<td style="border-bottom: 1px solid #C0C0C0">&nbsp;<a target="_blank" href="uye_oku.asp?id=<% =uyeList("id") %>"><% =uyeList("adi")&" "&uyeList("soyadi") %></a>
<font style="color:#c0c0c0; font-size:7pt; font-style:italic"><% =uyeList("tarih") %></font></td>
</tr>
<%
uyeList.movenext
wEnd
%>
</table>

<% else %>
<!--#include file = "yetki_yok.asp"-->
<% End if %>

BİTÜRLÜ KAYIT SİLDİREMEDİM HERHANGİ Bİ HATA VERMİYO AMA KAYIT SİLİNMİYO.LÜTFEN YARDIM.


BU SATIRLARDA Bİ SORUN OLDUĞUNU DÜŞÜNÜYORUM


<%Action = Request("Action")%>

<% IF Action = "Delete" Then %>
<%
ID = Request.QueryString("ID")
Set uyeList_S = Server.CreateObject("ADODB.RecordSet")
SQL = "DELETE From cv_data Where ID = "&ID&""
uyeList_S.open SQL,uyeList_S,baglanti,1,3
Response.Redirect Request.ServerVariables("HTTP_REFERER")
%>
<% uyeList_S.Close : Set uyeList_S = Nothing %>
<% END IF %>



databasedeki cv_data tablosundaki kayıtları silmeye çalışıyorum.
adres satırında aldığım sonuç

default.asp?Action=Delete&ID=1000

id 1000 olan ürün databasede duruyo..

[demo]

Silme işleminiz için kodlarınızı öncelikle sayfa başına (listeleme işleminin öncesine) alınız ve silme işlemi için kullandığınız kodları mavi ve kırmızı renkli kısım gibi düzenleyiniz (kırmızı renkli satır silme işlemini yapar).

<!--#include file = "style.asp"--><%
If session("admin") = "ok" then
 
Action = Request("Action")
IF Action = "Delete" Then
ID = Request.QueryString("ID")
baglanti.execute("DELETE From cv_data Where ID=" & ID & ";")
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if
 
set uyeList = server.createobject("adodb.recordset")
uyeList_S = ("SELECT * from cv_data ORDER BY id DESC;")
uyeList.open uyeList_S,baglanti,1,3
%>
...
<SCRIPT LANGUAGE="JavaScript">
function Delete()
{
return confirm ('Bu ürün veri tabanından silinecek, devam etmek istiyormusunuz.?')
}
</script>
...
<table border="0" width="100%">
<tr>
<td bgcolor="#f7f7f7">&gt;&gt;</td>
<td bgcolor="#f7f7f7" colspan="2"><font color="#008080"><b>Üye Listesi</b></font></td>
</tr><%
while NOT uyeList.eof
%>
<tr>
<td width="15%">&nbsp;</td>
<td style="border-bottom: 1px solid #C0C0C0" width="2%"><li><%
if NOT uyeList("ozgecmis_dosya")="" then
%><a target="_blank" href="../<%=uyeList("ozgecmis_dosya")%>"><img src="../images/dosya.gif" border="0" alt="<%=uyeList("ozgecmis_dosya")%>"></a> <a href="?Action=Delete&ID=<%=uyeList("ID")%>" OnClick="return Delete()"> <img src="../images/del.gif"><%
end if
%></td>
<td style="border-bottom: 1px solid #C0C0C0">&nbsp;<a target="_blank" href="uye_oku.asp?id=<%=uyeList("id") %>"><%=uyeList("adi") & " " & uyeList("soyadi")%></a> 
<font style="color:#c0c0c0; font-size:7pt; font-style:italic"><%=uyeList("tarih")%></font></td></tr><%
uyeList.movenext
wEnd
%>
</table><%
else
%><!--#include file = "yetki_yok.asp"--><%
End if
%>
...

[cemka]

tesekkurler hemen deneyip sonucu yazıyorum

[cemka]

malesef işe yaramdı dosyaları gonderiyorum yardımcı olurssanız sevinirim

http://www.mediafire.com/?e4bdc1ellgm
veya
http://rapidshare.com/files/119724271/cv.rar.html
ilginize simdiden tesekkurler.

[demo]

Gönderdiğiniz dosyalar salt okunur özellikli. Dosyalarınızdan, özelliklede veritabanı ve veritabanınızın bulunduğu klasörden salt okunur özelliğini kaldırıp, erişim izinlerini ayarlamalısınız.
Ayrıca id alanınız metin özellikli olduğu için (id alanları genellikle otomatik sayı özellikli olarak kullanılır):
baglanti.execute("DELETE From cv_data Where ID=" & ID & ";")
satırını
baglanti.execute("DELETE From cv_data Where ID='" & ID & "';")
olarak değiştirmelisiniz.