veri silerken problem yardımcı olabilicek arkadaşlar baksın

12-06-2007, 21:14:09

hocam haber siliyorum ama seçtiğim haberi silmiyor en son eklenen haberi siliyor anlamadım birde ben çoklu haber seçiyorum ama genede tek siliyor kodlar aşşağıda yardımcı olabilirseniz sevinirim

şimdiden teşekkürler

default.asp

<!--#include file="conn.asp"--> 
<!--#include file="header.asp"--> 

<head> 
<meta http-equiv="Content-Language" content="tr"> 
</head> 

<div align="center"> 
     <table border="0" width="790" style="border-collapse: collapse" height="360"> 
          <tr> 
               <!--#include file="sol.asp"--> 
               <td align="left" valign="top"> 
               
               
               <% 
               set rs = server.createobject("adodb.recordset" ) 
               sql="select * from news order by id desc" 
               rs.open sql, conn, 1,3 
               
               IF rs.eof Then 
               response.write "<font face=Arial size=2><center>Kayıtlı Haber Bulunamamıştır</center></font>" 
               End IF 
               pg = Request.Querystring("pg" ) 
               
               IF pg="" Then 
               pg=1 
               End IF 
               rs.Pagesize = 10 
               rs.AbsolutePage = pg 
               arsiv = rs.PageCount 
               
               For x=1 to rs.PageSize 
               IF rs.eof Then exit for 
               
                                 
               %> 
               
               
               <table border="1" width="100%" style="border-collapse: collapse" height="77" bordercolor="#000000"> 
                    <tr> 
                         <td width="112" bgcolor="#CCCCCC"> <font face="Arial" size="2"><b>ID:</b> <%=rs("id" )%></font></td> 
                         <td> <font face="Arial" size="2"><%=rs("baslik" )%></font></td> 
                         <td width="140" bgcolor="#CCCCCC"> 
                         <p align="center"> <font face="Arial" size="2"><a href="ResimEkle.asp?AddPic=<%=rs("id" )%>"><span style="text-decoration: none"><font color="#FF0000">Resim Ekle/Düzenle</font></span></a></font></td> 
                         <td width="146" bgcolor="#CCCCCC"> 
                         <p align="center"> <a href="EditNews.asp?EditID=<%=rs("id" )%>"><span style="text-decoration: none"><font color="#FF0000" face="Arial" size="2">Düzenle</font></span></a></td> 
                         <form action="DeleteNews.asp?ID=<%=rs("id" )%>" method="post"> 
                         <td width="41" bgcolor="#003366"> <input type="checkbox" value="<%=rs("id" )%>"> 
                           
               <font face="Arial" size="2" color="#FFFFFF">SİL</font></td> 
                    </tr> 
               </table> 
               
               <% 
               rs.Movenext 
               Next 
               %> 
               <% 
               For y=1 to arsiv 
               IF pg=y Then 
               
               response.write y 
               
               Else 
               response.write "<a href=Edit.asp?pg="&y&"><font face=Arial size=2 color=red>"&y&"</font></a> " 
               End IF 
               Next 
               %> 
               <table border="0" width="100%" style="border-collapse: collapse"> 
                    <tr> 
                         <td> 
                         <p align="center"> <input type="submit" value="İŞARETLİ OLANLARI SİL"></td> 
                    </tr> 
               </table> 
               
</td> 
          </tr> 
     </table> 
</div></form> 
<!--#include file="footer.asp"-->

DeleteNews.asp

<% 

ID = Request.QueryString("ID" ) 

Set rs = Server.CreateObject("ADODB.Recordset" ) 
               SQL="Delete From news where id="&ID&"" 
               rs.open SQL, CONN, 1,3 
               
               
               
               Response.Write "<center><font face=Arial size=2><b>BAŞARIYLA<font color=red> SİLİNDİ</font></b></center>" 

%>

13-06-2007, 09:14:49

#2

erolife

Kimlik doğrulama veya yönetimden onay bekliyor.

Aşağıdaki şekilde denemeyi denermisin Cümle süper oldu.
<%
ID = Request.QueryString("ID" )
if IsNumeric(ID) Then
SQL="Delete From news where id="& ID
CONN.Execute(SQL)
Response.Write "<center>BAŞARIYLA SİLİNDİ</center>"
else
Response.Write"Lütfen silmek istediğiniz kaydı belirtiniz."
end if
%>
18-06-2007, 11:10:44

#3

ibsuweb

<%=rs.CoDeR%> adlı üyeden alıntı: mesajı görüntüle

Set rs = Server.CreateObject("ADODB.Recordset" )
SQL="Delete From news where id="&ID&""
rs.open SQL, CONN, 1,3

Yanılmıyorsam burada where id="&ID&"" yazılmış burada biri id biri ID olursa hata veriyordu bende.db de ne yazıyosa onu kullan!
19-06-2007, 22:43:19

#4

qubarbaz

ibsuweb adlı üyeden alıntı: mesajı görüntüle

Yanılmıyorsam burada where id="&ID&"" yazılmış burada biri id biri ID olursa hata veriyordu bende.db de ne yazıyosa onu kullan!

ID = Request.QueryString("ID")
queryden ID olarak aldığı için problem yaşamaz id=ID konusunda

ID = Request.QueryString("ID")
Set rsSil = Server.CreateObject("ADODB.RecordSet")
strSQL = "Delete * From news Where id = "& ID &""
rsSil.open strSQL,CONN,1,3

olarak silebilirsin
kolay gelsin..