[deli_mavi]

Değerli arkadaşlar,

Veritabanından ziyaretçi ip lerini kayıt edip bunlar arasında 60 dk fark yok ise kayıdın birini sildirmek istiyorum.Fakat döngüm kayıdı sildirince devam edemiyor.
Kodlar aşağıda:

<%
	  ip=Trim(Request.QueryString("ip"))

Set kd = server.CreateObject("ADODB.Recordset" )
sor = "Select * from loglar2  where ip='"&ip&"' order by tarih desc "
kd.Open sor,baglanti,1,3

	 
%>
<p><img src="img/bilisim19_120_60.png" /><img src="img/tanitim_468.gif" /></p>
<table width="900" border="0" cellspacing="2" class="kmavi">
  
      <tr class="firma">
        <td colspan="2" ><%=ip%> IP NUMARALI BİLGİSAYARIN OY KAYITLARI</td>
      </tr>
	 
      <tr class="tavsiye_k">
        <td >SIRALI IP BLOKLARI </td>
        <td > ZAMAN FARKI / DURUM </td>
  </tr>



 <% while not kd.eof

if kd("ip")="" then
response.write (tamam)
kd.movenext
end if

site=KD("site")%>
      <tr class="kmavi">
        <td width="491" >&nbsp;&nbsp;&nbsp;
 <%=KD("Tarih")%>  <%tar1=FormatDateTime(kd("Tarih"),3)%><%kd.movenext%>&nbsp;&nbsp;&nbsp; 
 <%=KD("Tarih")%><%kimlik=KD("kimlik")%>  <%tar2=FormatDateTime(kd("Tarih"),3)%>
        </td>
        <td width="264" >&nbsp;
          <%fark= abs(DateDiff("n",tar1,tar2) )%><%=fark%> Dakika  
          <%if fark<60 then%> ---<span class="buton4">-Aykırı oy</span>

<%


Set kd2 = server.CreateObject("ADODB.Recordset" )
sor2 = "Select * FROM siteler  where kimlik="&site&""
kd2.Open sor2,baglanti,1,3 
kd2("puan")=kd2("puan")-5
kd2("hit")=kd2("hit")-1
kd2.update

Set sil=baglanti.Execute(  "delete * FROM loglar2  where kimlik="&kimlik&" " ) 
%> 

<%end if%>
        </td>
  </tr>
	   <tr class="kmavi">
	    <td height="5" colspan="2" ></td>
  </tr>



    

	 
	 
	 <%kd.moveprevious
kd.movenext 

wend %>
</table>
     
     
<%kd.close%>