｜トップページ｜統計｜たまごの知識｜協会概要｜リンク｜

<% '=============== Access MDB DBオーポン =================== Set db1=Server.CreateObject("ADODB.Connection") 'db1.Provider = "Microsoft.Jet.OLEDB.4.0" 'db1.ConnectionString = Server.MapPath("../../yokei_data.mdb") 'db1.open 'db1.open "Provider=SQLOLEDB;Server=192.168.1.140;Database=yokei;UID=sa;PWD=68016801" 'DBオープン （Provider・ID・パスはGlobal.asaに記載） db1.open Application("DBCN") %>

<% '=============== press部分 SQL文レコードセット =================== Set rs1 = db1.Execute("Select TOP 3 * From kakin Where genre = 'press' ORDER BY kakin_date DESC") %> <% Do While rs1.EOF = False '.EOFがFalseの間ループ %> <% rs1.MoveNext '次のレコードへ Loop rs1.Close %> <% new_date = Year(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Month(rs1.Fields.Item("kakin_date")))) & _ Month(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Day(rs1.Fields.Item("kakin_date")))) & _ Day(rs1.Fields.Item("kakin_date")) spl_date = split(new_date,"/") If rs1.Fields.Item("hatsu") = true Then hatsu ="発" Else hatsu = "" End If Response.Write("" & rs1.Fields.Item("title") & " （" & spl_date(0) &"年"& spl_date(1) &"月"& spl_date(2) &"日" & hatsu & "）") '登録(発表)日から1週間【new】マークを表示する If rs1.Fields.Item("update_date") > DateAdd("d", -7, now) Then Response.Write("") End If %>

<% '=============== press部分 SQL文レコードセット =================== Set rs1 = db1.Execute("Select TOP 3 * From kakin Where genre = 'gyosei' ORDER BY kakin_date DESC") %> <% Do While rs1.EOF = False '.EOFがFalseの間ループ %> <% rs1.MoveNext '次のレコードへ Loop rs1.Close %> <% new_date = Year(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Month(rs1.Fields.Item("kakin_date")))) & _ Month(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Day(rs1.Fields.Item("kakin_date")))) & _ Day(rs1.Fields.Item("kakin_date")) spl_date = split(new_date,"/") If rs1.Fields.Item("hatsu") = true Then hatsu ="発" Else hatsu = "" End If Response.Write("" & rs1.Fields.Item("title") & "（" & spl_date(0) &"年"& spl_date(1) &"月"& spl_date(2) &"日" & hatsu & "）") '登録(発表)日から1週間【new】マークを表示する If rs1.Fields.Item("update_date") > DateAdd("d", -7, now) Then Response.Write("") End If %>

<% '=============== press部分 SQL文レコードセット =================== Set rs1 = db1.Execute("Select TOP 3 * From kakin Where genre = 'gaku' ORDER BY kakin_date DESC") %> <% Do While rs1.EOF = False '.EOFがFalseの間ループ %> <% rs1.MoveNext '次のレコードへ Loop rs1.Close %> <% new_date = Year(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Month(rs1.Fields.Item("kakin_date")))) & _ Month(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Day(rs1.Fields.Item("kakin_date")))) & _ Day(rs1.Fields.Item("kakin_date")) spl_date = split(new_date,"/") If rs1.Fields.Item("hatsu") = true Then hatsu ="発" Else hatsu = "" End If Response.Write("" & rs1.Fields.Item("title") & "（" & spl_date(0) &"年"& spl_date(1) &"月"& spl_date(2) &"日" & hatsu & "）") '登録(発表)日から1週間【new】マークを表示する If rs1.Fields.Item("update_date") > DateAdd("d", -7, now) Then Response.Write("") End If %>

<% '=============== press部分 SQL文レコードセット =================== Set rs1 = db1.Execute("Select TOP 3 * From kakin Where genre = 'ippan' ORDER BY kakin_date DESC") %> <% Do While rs1.EOF = False '.EOFがFalseの間ループ %> <% rs1.MoveNext '次のレコードへ Loop rs1.Close %> <% new_date = Year(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Month(rs1.Fields.Item("kakin_date")))) & _ Month(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Day(rs1.Fields.Item("kakin_date")))) & _ Day(rs1.Fields.Item("kakin_date")) spl_date = split(new_date,"/") If rs1.Fields.Item("hatsu") = true Then hatsu ="発" Else hatsu = "" End If Response.Write("" & rs1.Fields.Item("title") & "（" & spl_date(0) &"年"& spl_date(1) &"月"& spl_date(2) &"日" & hatsu & "）") '登録(発表)日から1週間【new】マークを表示する If rs1.Fields.Item("update_date") > DateAdd("d", -7, now) Then Response.Write("") End If %>

<% '=============== press部分 SQL文レコードセット =================== Set rs1 = db1.Execute("Select TOP 3 * From kakin Where genre = 'gojyo' ORDER BY kakin_date DESC") %> <% Do While rs1.EOF = False '.EOFがFalseの間ループ %> <% rs1.MoveNext '次のレコードへ Loop rs1.Close %> <% new_date = Year(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Month(rs1.Fields.Item("kakin_date")))) & _ Month(rs1.Fields.Item("kakin_date")) & "/" & _ Left("00",2-Len(Day(rs1.Fields.Item("kakin_date")))) & _ Day(rs1.Fields.Item("kakin_date")) spl_date = split(new_date,"/") If rs1.Fields.Item("hatsu") = true Then hatsu ="発" Else hatsu = "" End If Response.Write("" & rs1.Fields.Item("title") & "（" & spl_date(0) &"年"& spl_date(1) &"月"& spl_date(2) &"日" & hatsu & "）") '登録(発表)日から1週間【new】マークを表示する If rs1.Fields.Item("update_date") > DateAdd("d", -7, now) Then Response.Write("") End If %>

<% db1.Close Set db = Nothing %>