<%=idarirs("site

<% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" &Server.MapPath("db/db.mdb") %> <% '################ Takvim Başlangış ############### gun = day(date) ay = month(date) yil = year(date) gun_y = WeekdayName(Weekday(date)) if ay = "1" then ay = "Ocak" elseif ay = "2" then ay = "Şubat" elseif ay = "3" then ay = "Mart" elseif ay = "4" then ay = "Nisan" elseif ay = "5" then ay = "Mayıs" elseif ay = "6" then ay = "Haziran" elseif ay = "7" then ay = "Temmuz" elseif ay = "8" then ay = "Ağustos" elseif ay = "9" then ay = "Eylül" elseif ay = "10" then ay = "Ekim" elseif ay = "11" then ay = "Kasım" elseif ay = "12" then ay = "Aralık" end if if gun_y = "Monday" then gun_y = "Pazartesi" elseif gun_y = "Tuesday" then gun_y = "Salı" elseif gun_y = "Wednesday" then gun_y = "Çarşamba" elseif gun_y = "Thursday" then gun_y = "Perşembe" elseif gun_y = "Friday" then gun_y = "Cuma" elseif gun_y = "Saturday" then gun_y = "Cumartesi" elseif gun_y = "Sunday" then gun_y = "Pazar" end if tarih = ""&gun&" "& ay &" "& yil &" "& gun_y %> <% Set idarirs = Server.CreateObject("ADODB.Recordset") sor = "Select * from idare" idarirs.Open sor,Sur,1,3 for i=1 to idarirs.recordcount If idarirs.eof Then exit for tablobordercolor = idarirs("tablo_border_color") banner= idarirs("banner") banner_adi= idarirs("banner_adi") logo= idarirs("logo") bannerurl= idarirs("bannerurl") logourl= idarirs("logourl") defter_onay = idarirs("defter") %> <%=idarirs("site_adi")%> <% idarirs.MoveNext next idarirs.close Set idarirs= Nothing %> <% Sub esasUst () %>

Hoş Geldiniz! <%if Session("UserLoggedIn")="true" then 'Yöneticiyi Karşılayalım%><%=Session("k_a") %><% End If %>

Bugün : <%=tarih%>

<% ' Menüleri görelim Set menu = Server.CreateObject("ADODB.Recordset") sor = "Select * from menuler where monay=yes ORDER BY menu_no" menu.Open sor,Sur,1,3 for i=1 to menu.recordcount If menu.eof Then exit for %> <% End if sayfa.MoveNext next sayfa.close Set sayfa= Nothing %>

<%=menu("menu")%>

<% ' sayfaları görelim kid=menu("sira_no") Set sayfa = Server.CreateObject("ADODB.Recordset") sor = "Select * from sayfa WHERE menu_sira_no=" & kid & " order by sira" sayfa.Open sor,Sur,1,3 for t=1 to sayfa.recordcount If sayfa.eof Then exit for if sayfa("onay")=True then %>

" OnMouseOver="javascript:window.status='Ziyaret etmek İçin Tıklayınız...'; return true" OnMouseOut="javascript:window.status=''; return true"><%=sayfa("baslik")%>

<% menu.MoveNext next menu.close Set menu= Nothing %>

<% if defter_onay=True then 'Defter aktif ise göster%>

<% End if if Session("UserLoggedIn")="true" then 'Yönetiçi şifresini Girmişse %>

Yönetici Paneli

Mesaj oku

<%end if%>

<% End Sub%><% Sub esasAlt() %>

<% if not Session("UserLoggedIn")="true" then 'Yönetiçi şifresini Girmemişse if 1=Request.QueryString("id") then response.write "*İdare Girişi*" end if end if%> <% End Sub%>