はまなこ環境ネットワーク

<% Dim strSQL Dim objRS Dim iRecCount Dim strCMT_update Dim strLink_update Dim dDTE_update Dim bFLG_display Dim objCon Dim iWork Dim strCMT_info On Error Resume Next Rem ----- コネクションオブジェクトの生成 Set objCon = Server.CreateObject("ADODB.Connection") %> <% Rem -----コネクションのオープン objCon.Open Rem レコードセットオブジェクトの生成 Set objRS = Server.CreateObject("ADODB.Recordset") Rem 更新情報取得 strSQL = "SELECT * FROM INFORMATION ORDER BY UPD_Info DESC" Rem レコードセットのオープン objRS.Open strSQL, objCon, 3 rem レコードカウンタ初期化 iRecCount=0 Rem データ取得 Do Until objRS.EOF strCMT_info = ChgStrToCd( objRS.Fields("CMT_info").value) bFLG_display = objRS.Fields("FLG_display").Value dDTE_update = objRS.Fields("UPD_info").Value dDTE_update = left( dDTE_update, 10 ) iRecCount=iRecCount + 1 objRS.MoveNext() %> <% IF bFLG_display = true THEN %> <% END IF %> <% if iRecCount >= 3 then exit do end if loop objRS.close %>

10月9日　第３回浜名湖エコキッズ体験塾ｉｎ三ヶ日の参加者募集
　　　　　　　　開催日　11月22日（土）午後1時～
　　　　　　　　詳細は、こちらをご覧ください。