<%@ LANGUAGE="VBScript" EnableSessionState=False %> <% Option Explicit %> <% Response.Buffer = TRUE %> <% Response.Expires = 0 %> <% REM //=======================================================================// %> <% REM // ■ 協和製作所 // %> <% REM // // %> <% REM // # Kw_news.asp // %> <% REM // ◇ 最新ニュースページ // %> <% REM // DMX Toshinao.Mano 2002.01.28 // %> <% REM // // %> <% REM //=======================================================================// %> <% Dim objAdoConnection '// Connection Object Dim objRecordSet '// RecordSet Object Dim strSQL '// SQL Statement Set objAdoConnection = Server.CreateObject("ADODB.Connection") objAdoConnection.Open conDataSource %>

	<% '// 最新ニュースを表示する %> <% strSQL = "SELECT * FROM Kw_news ORDER BY editdate DESC" %> <% Set objRecordSet = objAdoConnection.Execute(strSQL) %> <% Do While Not objRecordSet.EOF %> <% objRecordSet.MoveNext %> <% Loop %> <% objRecordSet.Close %> <%= Trim(objRecordSet.fields("title")) %> <%= Trim(objRecordSet.fields("contents")) %>

<% objAdoConnection.Close %> <% Set objRecordSet = Nothing %> <% Set objAdoConnection = Nothing %>