<% 'if id<>"" then ' sorgum="select * from formmail where id="&id&" order by id desc" 'else ' sorgum="select * from formmail order by id desc" ' end if sorgum="select * from formmail order by id desc" Rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then%>

Gelen Meil Bulunmamaktadir...

<%end if%> <% kanal= Request.QueryString("kanal") %> <% if kanal="" then %> <% if rs.eof or rs.bof then else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> <% rs.pagesize = 8 rs.absolutepage = shf cellcolor="#FFFFFF" sayfa = rs.pagecount for i=1 to 8 if rs.eof then exit for %> <% rs.movenext next%>

Tarih	Gönderen	Mail Adresi	Konu	Okundu Mu?	İşlemler

<%= rs("tarih") %>	<%= rs("ad_soyad") %>	<%= rs("mail") %>	<%= rs("konu") %>	<%if rs("durum")=false then %> <%else%> <%end if%>	">	">

Toplam <%=rs.recordcount %> Adet Mail Bulunmaktadır.		<%for y=1 to sayfa if cint(shf)=cint(y) then %> [<%= y %>] <% else %> <%= y %> <% end if next end if%>

<% end if if kanal="sil" then %> <% rs.close sorgum="delete * from formmail where id="&id Rs.Open Sorgum, Baglantim, 1, 3 Response.Redirect("giris.asp") %> <% end if if kanal="oku" then rs("durum")=true rs.update %>

Tarih :	<%= rs("tarih") %>	Mail Adresi :	<%= rs("mail") %>
Gönderen :	<%= rs("ad_soyad") %>	Telefon No :	<%= rs("tel") %>
Konu :	<%= rs("konu") %>
Mesaj :	<%= rs("mesaj") %>
	">

<% end if %>