<%if Request.QueryString("islem")="kodkaydet" then if Request.QueryString("id")<>"" then id=request.QueryString("id") sorgum="select * from reklam where id="&id Rx.Open Sorgum, Baglantim, 1, 3 if Request.Form("tur")="google" then rx("detay")=Request.Form("kod") end if rx("baslama")=Request.Form("basg")&"-"&Request.Form("basa")&"-"&Request.Form("basy") rx("bitis")=Request.Form("bitg")&"-"&Request.Form("bita")&"-"&Request.Form("bity") if Request.Form("goster")<>"" then rx("goster")=1 else rx("goster")=0 end if rx.update rx.close hata "Kod Basariyla Kaydedildi...",16 Response.Redirect("giris.asp") end if end if%>
<% sorgum="select * from reklam order by sayfa asc" Rs.Open Sorgum, Baglantim, 1, 3 x=0 do while not rs.eof if rs.eof then exit do x=x+1 bittarihi=cdate(rs("bitis")) if bittarihi>date() then rs("goster")=1 else rs("goster")=0 end if rs.update %> <%rs.movenext if x>4 then%> <% x=0 end if Loop rs.close%>
"> <%=rs("sayfa")%>  
<% tablo=Request.QueryString("tablo") id=Request.QueryString("id") %> <% if tablo<>"" and id<>"" then id=PostKontrol(id) sorgum="Select * from reklam where id="&id Rx.Open Sorgum, Baglantim, 1, 3 if rx.eof then response.write("Reklam Bulunamadi.") else bas=rx("baslama") bit=rx("bitis") if bit<>"" and bas<>"" then istekbolum = Split(bas,"-") istekbolum1 = Split(bit,"-") basgun=istekbolum(0) basay=istekbolum(1) basyil=istekbolum(2) bitgun=istekbolum1(0) bitay=istekbolum1(1) bityil=istekbolum1(2) end if %>

Gerekli d�zenlemeleri yaptıktan sonra Sol �st kisminda bulunan Disket Simgesine basarak kayit yapmalisiniz.
REKLAM AYARLARI
Reklam Adı :
">
Başlama Tarihi :
Bitiş Tarihi :
Göster : <%if rx("goster")=0 then%> <%else%> <%end if%>
Reklam Türü :
   
REKLAM AÇIKLAMASI :
<%if id=21 then%> Bu reklam i�in sadece gidilecek site adresi girmelisiniz.
�rnegin : www.siteadi.com<%else%>Reklamin Bitis Tarihi Ge�mis ise otomatik olarak yayindan kaldirilacaktir. Ayarlari eksiksiz ve dogru yapmalisiniz. <%end if%>
<% end if Rx.close else%> <% sorgum="select * from reklam order by sayfa asc" Rs.Open Sorgum, Baglantim, 1, 3 x=0 do while not rs.eof if rs.eof then exit do %> <%rs.movenext loop rs.close%>
REKLAM SAYFASI AYRINTILARI
Islem
Reklam Alani
Baslama Tarihi
Bitis Tarihi
Durum
<%=rs("sayfa")%>
<%=rs("baslama")%>
<%=rs("bitis")%>
<%if rs("goster")=1 then%> <%else%> <%end if%>
<%if rs("goster")=1 then%> A�ik. G�r�n�yor. <%else%> Kapali. S�resi Bitmis. <%end if%>
<% end if %>