Buraya ne yazarsan yukarda en üstte o görünür

www.delikan.de


   
  esentepe iki kafadar
  java script proğramalr
 
<% Response.Buffer = True %> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&uyeler&"") Set efkan = Server.CreateObject("ADODB.Recordset") id=Request.QueryString("id") sor = "select * from uyeler where id="&id&"" efkan.Open sor,sur,1,3 efkan("txtkalan") = efkan("txtkalan") + 1 efkan("txtgosterdin") = efkan("txtgosterdin") + 1 efkan.Update efkan.close sor = "SELECT * FROM uyeler WHERE txtkalan > '0' and onay='y' " efkan.Open sor,Sur,1,3 if efkan.eof or efkan.bof then Response.Write "
Kayıt Yok
" Response.End end if adet = efkan.RecordCount Randomize sec = Int((adet * Rnd ) +0) efkan.Move(sec) %>
<% for i = 1 to 5 if efkan.eof then exit for %> <% efkan.movenext Next efkan.close %>
" target="_blank"> <%=efkan("baslik")%>
<% = Left(efkan("icerik"),20) %>.. <% 'if efkan("txtkalan")=0 then 'efkan("txtkalan") = efkan("txtkalan") +0 'efkan.Update 'else efkan("txtkalan") = efkan("txtkalan") -1 efkan("txtgosterdiler") = efkan("txtgosterdiler") +1 efkan.Update 'end if %>


www.delikan.de

  Status Bar'da Yazı 
Kutu İçinde Kayan Yazı