<% dim strSQL dim objRS dim strWork dim objCon %> <% On Error Resume Next Rem----- コネクションオブジェクトの生成 Set objCon = Server.CreateObject("ADODB.Connection") %> <% Rem----- コネクションのオープン objCon.Open Rem----- レコードセットオブジェクトの生成 Set objRS = Server.CreateObject("ADODB.Recordset") %> <% Set objRS = nothing objCon.Close Set objCon = Nothing if err.number>0 then end if %>

出展者	種　類	検索キーワード
<% strSQL = "SELECT * FROM LIBRARY2_SHUTTEN ORDER BY SHUTTEN_CD " objRS.Open strSQL, objCon, 3 %>全部<% if objRS.RecordCount > 0 then Do Until objRS.EOF strWork = ChgStrToCd( trim( objRS.Fields( "NME_SHUTTEN").Value )) %><%=strWork %><% objRS.MoveNext() loop end if objRS.Close %>	<% strSQL = "SELECT * FROM LIBRARY2_SHURUI ORDER BY SHURUI_CD " objRS.Open strSQL, objCon, 3 %>全部<% if objRS.RecordCount > 0 then Do Until objRS.EOF strWork = ChgStrToCd( trim( objRS.Fields( "NME_SHURUI").Value )) %><%=strWork %><% objRS.MoveNext() loop end if objRS.Close %>