..:: ZENGIN SÜT ÜRÜNLERI GIDA BESICILIK SAN. ve TIC. LTD. STI. ::..

<% 'This the database connection string GununSozuConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Db/yemek.mdb") %> <% ' The variables Dim strToddate, strAy, rsGununSozuHisRows, HisRows, Hisindex strToddate = Day(Now()) strAy = Month(Now()) %> <% ' The recordset set rsGununSozu = Server.CreateObject("ADODB.Recordset") rsGununSozu.ActiveConnection = GununSozuConnString rsGununSozu.Source = "SELECT Ay, Gun, Yil, Soz1,Soz2,Soz3 From SOZ WHERE Gun = " & strToddate & "" rsGununSozu.CursorType = 0 rsGununSozu.CursorLocation = 2 rsGununSozu.LockType = 3 rsGununSozu.Open() rsGununSozuHisRows = 0 %> <% HisRows = 15 ' This is where we set how many records to be displayed. In this case we set it to 15. You can change it as from 5 or 10 Hisindex = 0 rsGununSozuHisRows = rsGununSozuHisRows + HisRows %> <% While ((HisRows <> 0) AND (NOT rsGununSozu.EOF)) %> <%=rsGununSozu("Soz1")%>

İçindekiler:<%=rsGununSozu("Soz2")%>

<%=rsGununSozu("Soz3")%>

<% Hisindex = Hisindex + 1 HisRows = HisRows - 1 rsGununSozu.MoveNext() Wend %> <% rsGununSozu.Close() Set rsGununSozu = Nothing %>


<% 'This the database connection string GununSozuConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Db/yemek.mdb") %> <% ' The variables Dim strToddate, strAy, rsGununSozuHisRows, HisRows, Hisindex strToddate = Day(Now()) strAy = Month(Now()) %> <% ' The recordset set rsGununSozu = Server.CreateObject("ADODB.Recordset") rsGununSozu.ActiveConnection = GununSozuConnString rsGununSozu.Source = "SELECT Ay, Gun, Yil, Soz1,Soz2,Soz3 From SOZ WHERE Gun = " & strToddate & "" rsGununSozu.CursorType = 0 rsGununSozu.CursorLocation = 2 rsGununSozu.LockType = 3 rsGununSozu.Open() rsGununSozuHisRows = 0 %> <% HisRows = 15 ' This is where we set how many records to be displayed. In this case we set it to 15. You can change it as from 5 or 10 Hisindex = 0 rsGununSozuHisRows = rsGununSozuHisRows + HisRows %> <% While ((HisRows <> 0) AND (NOT rsGununSozu.EOF)) %> <%=rsGununSozu("Soz1")%> İçindekiler:<%=rsGununSozu("Soz2")%> <%=rsGununSozu("Soz3")%> <% Hisindex = Hisindex + 1 HisRows = HisRows - 1 rsGununSozu.MoveNext() Wend %> <% rsGununSozu.Close() Set rsGununSozu = Nothing %>		<% 'Urun Listesi icin DB baglantimiz dim bag, rs, conn bag = "DBQ=" & Server.Mappath("db/HABER.mdb") & ";Driver={Microsoft Access Driver (.mdb)};" set conn=server.createobject("adodb.connection") conn.open bag SQL = "SELECT FROM HABERLER" set rs=server.createobject("adodb.recordset") rs.open sql,conn do while not rs.eof %> <%=rs("metin")%> <% rs.MoveNext loop %>





















	© 2007 Zengin Süt Ürünleri Gıda Besicilik San.ve Tic. Ltd.Şti.-Tüm Hakları Saklıdır.