Ziyaretçi ONAYLA/SİL

<% '*********************************************** '********http://www.detar.net************** '************admin@detar.net***************** '*********************************************** %> <% Set Con=Server.Createobject("ADODB.Connection") con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/ziyaretci.mdb") %> <% sqlx = "select * from ziyaretciler WHERE firmaid=100 ORDER BY id DESC" set rs = server.createobject("ADODB.Recordset") rs.open sqlx,Con,3 radet = rs.recordcount deste = 40 %> Ziyaretçi ONAYLA/SİL

* Yeni ziyaretçileri onaylamak için (onaylaya tıklayınız)
* Onayladığınız ziyaretçilerin onayını iptal edip saklamak için (onay iptal) e tıklayınız.

<% if request("s")<>"" then sayfa = cdbl(request("s")) rs.move sayfa*deste else sayfa = 0 end if for t=1 to deste if rs.eof then exit for %> <% if t mod 2 = 0 then renk = "#F0F0F0" else renk = "#FFFFFF" end if %> > <% rs.movenext next rs.close set rs=nothing 'BAGLANTI.CLOSE SET BAGLANTI = NOTHING %>

İSİM	MAİL	ZİYARETÇİ MESAJI	ONAY
<%= rs("isim") %>	<%= rs("eposta") %>	<%= rs("mesaj")%>	"> <% if rs("onay")=1 then response.write "onay iptal" elseif rs("onay")=0 then response.write "onayla" elseif rs("onay")=2 then response.write "saklananlar" end if %>

<%= radet %> Ziyaretçi bulundu