野球 サッカー アメフト バスケ ラグビー その他
カレスポトップ ヘッドラインニュース 試合結果 順位表 大会概要・日程 大学一覧
<% Set db = Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0" db.Mode = 3 db.CursorLocation = 3 db.ConnectionString = Server.MapPath("common/db/collespo.mdb") db.Open sql = "select " & _ "T_ニュース.ニュースコード, " & _ "T_ニュース.種目コード, " & _ "T_ニュース.大学コード, " & _ "T_ニュース.日付, " & _ "T_ニュース.トピックス, " & _ "T_ニュース.本文, " & _ "T_ニュース.ファイル名, " & _ "M_大学.新聞部, " & _ "M_種目.種目 " & _ "from " & _ "T_ニュース, " & _ "M_大学, " & _ "M_種目 " & _ "where T_ニュース.大学コード = M_大学.大学コード " & _ "and T_ニュース.種目コード = M_種目.種目コード " If Request("c") <> "" Then sql = sql & "and T_ニュース.大学コード = '" & Request("c") & "' " End If If Request("s") <> "" Then sql = sql & "and T_ニュース.種目コード = '" & Request("s") & "' " End If sql = sql & "order by T_ニュース.日付 desc, T_ニュース.種目コード " Set rs = db.Execute( sql ) If Not rs.EOF Then size = 10 rs.PageSize = size If Request("p") = "" Then page = 0 ElseIf Not IsNumeric(Request("p")) Then page = 0 Else page = CInt(Request("p")) End If max = rs.PageCount If page > max Then page = max End If If page < 1 Then page = 1 End If rs.AbsolutePage = page work = "" If max > 1 Then work = work & "バックナンバー>>" For i = 1 To max If i = page Then work = work & " " & i Else work = work & " " & i & "" End If Next work = work & "" End If cnt = 0 %>
<% = work %>
<% Do Until rs.EOF or cnt >= size If rs("日付") <> tmp Then %>
<% = Year(rs("日付")) %>.<% = Month(rs("日付")) %>.<% = Day(rs("日付")) %>.(<% = WeekDayName(WeekDay(rs("日付")), 1) %>)
<% End If %>
<% = Replace(Left(rs("本文"), 100), chr(10), "
") %>…
<% tmp = rs("日付") cnt = cnt + 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing db.Close Set db = Nothing %>
<% = work %>