<%=siteadi%>

Sayın <% =isimsoyad %> Hoşgeldiniz

<%response.write "
"&request("hata")&""%>

Haber Resim Bölümü¬

<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><% else %>

<%if rs("resimsec")="Url" then %>" border="2" style="; border:1px solid #C0C0C0; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" hspace="1" vspace="1" alt="<%=rs("baslik")%>" width="80"><% else %>" border="2" style="; border:1px solid #C0C0C0; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" hspace="1" vspace="1" alt="<%=rs("baslik")%>" width="80"><% end if%>

<% end if%>

Editöre Ait Haber Düzenleme Bilgileri

Editör Adı ¬

<%=rs("editor")%>

Adı Soyadı ¬

<%=rs("isimsoyad")%>

E-Mail ¬

"><%=rs("uyemail")%>

Kategori ›

<%bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where bolum =" & guvenlik(request("bolum"))& "",cilem,1,3 %> <% set rs2 = Server.CreateObject("ADODB.RecordSet") sql = "SELECT DISTINCT kategoriadi FROM kategori Order By kategoriadi asc" rs2.open sql,cilem,1,3 %> <% do until rs2.eof kategoriadi = kategoriadi & "" rs2.movenext loop %> <% set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.open "Select * from kategori Order by Sira asc",cilem,1,3 if rs2.eof then %> Kategoriler Bölümünde Kayıtlı Kategori Yok. Kayıt için Kategori Oluşturulmalı <%else%> <%end if%>

Haber Onayı ›

Resim ›

<% if rs("resimsec") = "Url" then %> (Url) ">

<% else %><% if rs("resimsec") ="Bilgisayar" then %> <% else %> (Bilgisayar) ">

<% end if %><% end if %>

Haberi Resme ›

(Haberi Resimsiz Yayınlamak İstiyorsanız Kapalı Konuma Getiriniz)

Köşe Yazısı Olsun mu? ›

checked <% end if %>>

Son Dakika Haberi Olsun? ›

checked <% end if %>>

Manşet Olsun? ›

checked <% end if %>>

Başlık ›

" style="font-family: Tahoma; font-size: 8pt"> Kalan : 120

Kısa Haber ›

Haber ›

<% strFormName = "kontrol" strTextAreaName = "haber" %>

Haber Kaynağı Adı ›

Haber Kaynağı Adresi ›

<% set rs = Nothing cilem.close set cilem= Nothing end if%>