<%'DiyalogTR.Com © 2008'%> <%=siteadi%> <% On Error Resume Next If Err.number <> 0 then Response.Write "Sayfa Numarası Hatalı: "& Err.description End If %><% bolum=guvenlik(request("bolum")) sql="SELECT * FROM haber WHERE bolum=" & guvenlik(request("bolum")) Set rs=cilem.Execute(sql) if rs.eof then Response.write"" if bolum = "" Or IsNumeric(bolum) = False Then end if else bolum=guvenlik(request("bolum")) set rs=server.createobject("adodb.recordset") rs.open "haber where bolum =" & guvenlik(request("bolum"))& "",cilem,1,3 baslik = rs("baslik")%>
 Sayın  <% =isimsoyad %> Hoşgeldiniz

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

 <%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%>
 
 Kayıtlardaki Editörlük Bilgileriniz ¬
 Editör Adınız ¬
 <% =rs("editor") %>
 Adınız Soyadınız ¬
 <% =isimsoyad %>
 E-Mail Adresiniz ¬
 <%=uyemail%>
 

"> <%if haberonay="" or haberonay="Hayır" then %><% else %><% end if%>
<% set rs = Nothing cilem.close set cilem= Nothing end if%>

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 %>

Haberde Resim Durumu ›

 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 ›  

">