<%sayfa=request.QueryString("page") id=request.QueryString("id")%>
   

Ana Sayfa  
Önsöz  
Modern Sanatın Doğuşu  
Eserler  
Kaynakça  

<%if sayfa="" and id="" then%> <%a=23%> <% set con=server.CreateObject("adodb.connection") con.open "provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db/db.mdb") %> <% set rs=server.CreateObject("adodb.recordset") sql="select * from icerik where id="&a&" " rs.open sql,con,1,3 %> <%do while not rs.eof %>
 

<%=rs("icerik")%>
 
<%rs.movenext loop set rs_r=nothing rs.close set rs=nothing %> <%else%> <%select case sayfa case "icerik"%> <% set con=server.CreateObject("adodb.connection") con.open "provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db/db.mdb") %> <% set rs=server.CreateObject("adodb.recordset") sql="select * from icerik where id="&id&" " rs.open sql,con,1,3 %> <%do while not rs.eof %>
 

<%=rs("icerik")%>




<%if id=26 then%> <% set rs_internet=server.CreateObject("adodb.recordset") sql="select * from icerik2 " rs_internet.open sql,con,1,3 %><%x=0%> İNTERNET
<%do while not rs_internet.eof%> <%x=x+1%> <%=x%>-" target="_blank"><%=rs_internet("link_adi")%>
<%rs_internet.movenext loop rs_internet.close set rs_internet=nothing%> <%end if%>

 
<%rs.movenext loop rs.close set rs=nothing %> <%case "icerik2"%> <% id=request.QueryString("id") baslik = request.QueryString("baslik")%> <% set con=server.CreateObject("adodb.connection") con.open "provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("db/db.mdb") %> <% set rs=server.CreateObject("adodb.recordset") sql="select * from icerik where id="&id&" " rs.open sql,con,1,3 %><%If Not Rs.EOF Then Rs.PageSize = 4 If Request.QueryString("s") <> "" Then yer = CInt(Request.QueryString("s")) Else yer = 1 End If Rs.AbsolutePage = yer %>
  <%i=0 do while not rs.eof And i<% i=i+1 rs.movenext loop %>


<%=rs("icerik")%>
 



<%b=rs("id2")%> <%set rs_r=server.CreateObject("adodb.recordset") sqlr="select * from upload_urun where kod="&b&""%> <%rs_r.open sqlr,con,1,3%> <% s=0 do while not rs_r.eof s=s+1 %> " class="highslide" onclick="return hs.expand(this, {captionId: '<%=s%>'})">


" width="200" height="135" border="0" />

<%=rs_r("aciklama")%>

<%=rs_r("aciklama")%> <%rs_r.movenext loop%>

Sayfa : <% If Rs.PageCount > 0 Then For s=1 To Rs.PageCount %> <%=s%> <% Next End If %>
 
<%end if%> <%end select%> <%end if%>