<% set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\data\db.mdb")) set rs = server.createobject("adodb.recordset") rssql="select sayi from sayac" rs.open rssql, conn, 1, 3 rs("sayi")=rs("sayi")+1 rs.update rs.close conn.close %> <% set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\data\db.mdb")) set rs = server.createobject("adodb.recordset") %> <% p=trim(request("p")) if p="" then p="main" 'sayfa %> < MULTİ EĞİTPAN MULTİ EĞİTPAN

Ana Sayfa Hakkımızda Ürünler Kampanyalar İletişim
<% if request("p")="urun" then p="urun" %> <% rssql="select * from kategori order by kimlik" rs.open rssql, conn, 1, 3 while not rs.eof k=rs("kimlik") %> <% rs.movenext wend rs.close %>
<%=rs("kategori")%>


<% end if %>

  
<% if p="main" then%>
  < Yazı Tahtaları İçin Tıklayınız > < Açılır Kapanır Panolar İçin tıklayınız > < Laboratuvarlar ve Malzemeleri İçin Tıklayınız > < Okul ve Büro Gereçleri İçin Tıklayınız. >  
  < Şövalle Çeşitlerimizi Görmek İçin Tıklayınız > < Ana Okulu Sistemleri ve Gereçleri İçin Tıklayınız > < Santanç Tahtaları ve Masaları İçin Tıklayınız > < Atatürk Köşeleri ve Panoları İçin Tıklayınız >  
  < Çerçeve Çeşitlerimizi Görmek İçin Tıklayınız > < Eğitim Panolarımız İncelemek İçin Tıklayınız > < Mantar Pano Çeşitleri için Tıklayınız > < Sunum Cihazları İçin Tıklayınız >  


 
   
<% rssql="select sayi from sayac" rs.open rssql, conn, 1, 3 x=rs("sayi") rs.close %>
 Bu siteye toplam <%=x%> kere giriş yapılmıştır.

Copyright 2007 ©Multi Eğitpan

<% conn.close %>