<% id = "id" sayfa = Request.Querystring(id) If not isnumeric(sayfa) or not len(sayfa) > 0 Then If item_id = 0 Then Response.redirect "default.asp?id=1" Response.End End If End If %> <%if Session("UserLoggedIn")="true" then 'Yönetiçi şifresini Girmişse%> <%End if call esasUst() %> <% ' sayfayı görelim id=request.querystring("id") Set st = Server.CreateObject("ADODB.Recordset") sor = "Select * from sayfa where id= "& id st.Open sor,Sur,1,3 if st.eof then response.write("


Bu Sayfa kayıtta değil...

") else currenthit = st("hit") st("hit") = currenthit + 1 st.update for t=1 to st.recordcount If st.eof Then exit for %> <%=st("sayfa")%>


Tarih : <%=st("tarih")%>
Hit : <%=st("hit")%>
<%if Session("UserLoggedIn")="true" then 'Yönetiçi şifresini Girmişse%> <%if not id=1 then%>" OnMouseOver="javascript:window.status='-<%=st("baslik")%>- başlıklı sayfayı sil...'; return true" OnMouseOut="javascript:window.status=''; return true"><%End if%>

"> <%if 1=Request.QueryString("id") then%> "> <%else%> <%End if%>
Başlık: ">
Sayfa: Kalın İtalik Altı Çizili Link (Köprü) Email Ortala Listele Resim
Hit: ">
Menü Kategorisi: <% Set kat = Server.CreateObject("ADODB.Recordset") sor = "Select * from menuler where monay=yes ORDER BY sira_no" kat.Open sor,Sur,1,3 for i=1 to kat.recordcount If kat.eof Then exit for %> <% if st("menu_sira_no") = kat("sira_no") then %> " checked><%=kat("menu")%> <%else%> "><%=kat("menu")%> <% end if kat.MoveNext next kat.close Set kat= Nothing %>

<% st.MoveNext st.close Set st= Nothing end if next end if call esasAlt() %>