<% cid= Temizle(request.QueryString("cid")) If cid="" then cid=0 if cid="" or isnumeric(cid)=false then response.Redirect("giris.asp") %>
Geri
<% islem=request.QueryString("islem") select case islem case "Delete" set DocumentDelete=conn.execute("delete * From MailList where ID="& cid &"") Response.Redirect Request.ServerVariables("HTTP_REFERER") %>
! Mail silindi ...
<%end select%>
#
Mail
İşlemler
<% i=1 Set TabContent = Conn.Execute("SELECT * FROM MailList order by ID desc") %> <%Do While not TabContent.EOF%>
<%=i%>
<%=TabContent("EMail")%>
<% i=i+1 TabContent.MoveNext Loop %> <% TabContent.Close %>