<% dim list,list2,list3 dim MODE dim SQL dim strwhere dim rst dim i dim p dim PS dim PE dim PMAX dim PMAX2 DIM K_1,K_2,K_3,K_4,K_5 dim w_item MODE=request("MODE") if isarray(session("SEARCH_T")) then list3=session("SEARCH_T") else redim list3(20,0) session("CNT2")=0 end if '------------------------------------------------------- ConnectDB '------------------------------------------------------- if request("KENSAKU")="KENSAKU" AND request("FLG")="2" then dim flg flg=0 '検索する SQL = SQL & "SELECT COUNT(*) as CNT FROM (" SQL = SQL & "SELECT " SQL = SQL & " C.業種分類" SQL = SQL & " , B.業種" SQL = SQL & " , A.記事ID" SQL = SQL & " , A.事業所名" SQL = SQL & " , A.フリガナ" SQL = SQL & " , A.コード" SQL = SQL & " , A.代表者名" SQL = SQL & " , A.郵便番号" SQL = SQL & " , A.所在地" SQL = SQL & " , A.電話番号" SQL = SQL & " , A.FAX番号" SQL = SQL & " , A.事業の種類" SQL = SQL & " , A.事業の内容" SQL = SQL & " , A.創業年月" SQL = SQL & " , A.資本金" SQL = SQL & " , A.従業員数" SQL = SQL & " , A.従業員内訳" SQL = SQL & " , A.主要取引先" SQL = SQL & " , A.主要取引銀行1" SQL = SQL & " , A.主要取引銀行2" SQL = SQL & " , A.関連会社" SQL = SQL & " , A.URL外部" SQL = SQL & " , A.URL内部" SQL = SQL & " , A.EMAIL" SQL = SQL & " , A.画像1" SQL = SQL & " , A.画像1コメント" SQL = SQL & " , A.画像2" SQL = SQL & " , A.画像2コメント" SQL = SQL & " , A.画像3" SQL = SQL & " , A.画像3コメント" SQL = SQL & " , A.画像4" SQL = SQL & " , A.画像4コメント" SQL = SQL & " , A.登録日時" SQL = SQL & " , A.更新日時" SQL = SQL & " , A.登録者ID" SQL = SQL & " , A.更新者ID" SQL = SQL & " , A.表示区分" SQL = SQL & " FROM (T_企業情報 A LEFT JOIN M_業種 B ON A.業種ID = B.業種NO) LEFT JOIN M_業種分類 C ON (A.業種ID = C.業種NO) AND (A.業種分類ID = C.業種分類NO)" strwhere="" strwhere = strwhere & " A.表示区分 =0 AND " strwhere = strwhere & " A.商工会議所会員符号 = 2 AND " if request("K_1")<>"" then strwhere = strwhere & " A.業種ID = " & request("K_1") & " AND " end if if request("K_2")<>"" then strwhere = strwhere & " A.業種分類ID = " & request("K_2") & " AND " end if if strwhere<>"" then SQL = SQL & " WHERE ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" flg=1 end if strwhere="" IF Request("K_5") <> "" THEN w_item=Split(replace(replace(Request("K_5"),"'","")," "," ")," ") For i = 0 To UBound(w_item) IF w_item(i)<>"" THEN strwhere=strwhere & " A.事業所名 Like '%" & w_item(i) & "%'" & " OR " strwhere=strwhere & " A.フリガナ Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.代表者名 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.郵便番号 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.所在地 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.電話番号 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.事業の種類 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.事業の内容 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.関連会社 Like '%" & w_item(i) & "%'" & " OR " END IF Next END IF if strwhere<>"" then if flg=1 then SQL = SQL & " AND ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" else SQL = SQL & " WHERE ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" end if end if SQL = SQL & ") as AA" DIM CNT CNT =0 ''response.write sql 'response.end Set RST= Session("conObj").Execute( SQL ) if not rst.eof then CNT=RST("CNT") session("CNT2")=RST("CNT") end if RST.CLOSE SET RST = NOTHING SQL = "SELECT " SQL = SQL & " C.業種分類" SQL = SQL & " , B.業種" SQL = SQL & " , A.記事ID" SQL = SQL & " , A.事業所名" SQL = SQL & " , A.フリガナ" SQL = SQL & " , A.コード" SQL = SQL & " , A.代表者名" SQL = SQL & " , A.郵便番号" SQL = SQL & " , A.所在地" SQL = SQL & " , A.電話番号" SQL = SQL & " , A.FAX番号" SQL = SQL & " , A.事業の種類" SQL = SQL & " , A.事業の内容" SQL = SQL & " , A.創業年月" SQL = SQL & " , A.資本金" SQL = SQL & " , A.従業員数" SQL = SQL & " , A.従業員内訳" SQL = SQL & " , A.主要取引先" SQL = SQL & " , A.主要取引銀行1" SQL = SQL & " , A.主要取引銀行2" SQL = SQL & " , A.関連会社" SQL = SQL & " , A.URL外部" SQL = SQL & " , A.URL内部" SQL = SQL & " , A.EMAIL" SQL = SQL & " , A.画像1" SQL = SQL & " , A.画像1コメント" SQL = SQL & " , A.画像2" SQL = SQL & " , A.画像2コメント" SQL = SQL & " , A.画像3" SQL = SQL & " , A.画像3コメント" SQL = SQL & " , A.画像4" SQL = SQL & " , A.画像4コメント" SQL = SQL & " , A.登録日時" SQL = SQL & " , A.更新日時" SQL = SQL & " , A.登録者ID" SQL = SQL & " , A.更新者ID" SQL = SQL & " , A.表示区分" SQL = SQL & " FROM (T_企業情報 A LEFT JOIN M_業種 B ON A.業種ID = B.業種NO) LEFT JOIN M_業種分類 C ON (A.業種ID = C.業種NO AND A.業種分類ID = C.業種分類NO)" strwhere="" strwhere = strwhere & " A.表示区分 =0 AND " strwhere = strwhere & " A.商工会議所会員符号 = 2 AND " if request("K_1")<>"" then strwhere = strwhere & " A.業種ID = " & request("K_1") & " AND " end if if request("K_2")<>"" then strwhere = strwhere & " A.業種分類ID = " & request("K_2") & " AND " end if if strwhere<>"" then SQL = SQL & " WHERE ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" flg=1 end if strwhere="" IF Request("K_5") <> "" THEN w_item=Split(replace(replace(Request("K_5"),"'","")," "," ")," ") For i = 0 To UBound(w_item) IF w_item(i)<>"" THEN strwhere=strwhere & " A.事業所名 Like '%" & w_item(i) & "%'" & " OR " strwhere=strwhere & " A.フリガナ Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.代表者名 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.郵便番号 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.所在地 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.電話番号 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.事業の種類 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.事業の内容 Like '%" & w_item(i) & "%'" & " OR " 'strwhere=strwhere & " A.関連会社 Like '%" & w_item(i) & "%'" & " OR " END IF Next END IF if strwhere<>"" then if flg=1 then SQL = SQL & " AND ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" else SQL = SQL & " WHERE ( " & mid(strwhere, 1, Len(strWHERE) - 4) &" )" end if end if SQL = SQL & " ORDER BY A.業種ID,A.業種分類ID,A.フリガナ,A.事業所名" 'response.write sql 'response.end Set RST= Session("conObj").Execute( SQL ) i=1 redim list3(20,0) do until rst.eof redim preserve list3(20,i) list3(0,i) = 1 list3(1,i) = RST("記事ID") list3(2,i) = RST("業種") list3(3,i) = RST("業種分類") list3(4,i) = "" list3(5,i) = RST("事業所名") list3(6,i) = RST("フリガナ") list3(7,i) = RST("郵便番号") list3(8,i) = RST("所在地") list3(9,i) = RST("電話番号") list3(10,i) = RST("URL外部") list3(11,i) = RST("URL内部") list3(12,i) = RST("EMAIL") list3(13,i) = RST("代表者名") i=i+1 RST.movenext loop RST.CLOSE SET RST = NOTHING set session("SEARCH_T")=nothing session("SEARCH_T")=list3 end if redim list(2,0) sql="select * from M_業種 WHERE 業種NO<50 ORDER BY 掲載順" Set RST= Session("conObj").Execute( SQL ) i =0 do until rst.eof redim preserve list(2,i) list(0,i) = 1 list(1,i) = RST("業種NO") list(2,i) = RST("業種") i=i+1 RST.movenext loop RST.CLOSE SET RST = NOTHING redim list2(2,0) dim F_FLG F_FLG=false if request("K_1") <>"" then sql="select * from M_業種分類 " sql=sql &" WHERE 業種NO=" & request("K_1") sql= SQL & " ORDER BY 掲載順" Set RST= Session("conObj").Execute( SQL ) i=0 do until rst.eof redim preserve list2(2,i) list2(0,i) = 1 list2(1,i) = RST("業種分類NO") list2(2,i) = RST("業種分類") i=i+1 RST.movenext if request("FLG")="1" then F_FLG=true end if loop RST.CLOSE SET RST = NOTHING end if '------------------------------------------------------- Dis_ConnectDB '------------------------------------------------------- P = Request("P") IF P = "" or request("FLG")="2" Then P = 1 END IF PS = ((P-1) * MAX_ROWS) + 1 PE = P * MAX_ROWS IF ubound(list3,2)>0 Then PMAX = Int((Ubound(list3,2)+0 / MAX_ROWS) + 0.9) PMAX2 = Int((Ubound(list3,2) / MAX_ROWS-1) + 0.9) PS = ((P-1) * MAX_ROWS) + 1 PE = P * MAX_ROWS IF Clng(P) = Clng(PMAX) Then PE = Ubound(list3,2) END IF ELSE 'session("IPPIN_SEARCH_COUNT")=0 PMAX=1 END IF %> Ewing|恵那商工会議所 Ena Chamber Of Commerce & Industry
" onFocus="select();" style="ime-mode:active">


検索結果

[ 該当件数:<%=session("CNT2")%>件 ] <%if session("CNT2")<>0 then%>    <%=PS%>件目~<%if ubound(list3,2)-1 < PE then%><%=ubound(list3,2)%><%else%><%=PE%><%end if%>件目表示 <%end if%>

<%IF Clng(P)<>1 Then%> &K_2=<%=request("k_2")%>&K_5=<%=request("k_5")%>">[前の<%=MAX_ROWS%>件] <%ELSE%> [前の<%=MAX_ROWS%>件] <%END IF%> <%IF Clng(P)<>Clng(PMAX) and PMAX>MAX_ROWS and PE &K_2=<%=request("k_2")%>&K_5=<%=request("k_5")%>">[次の<%=MAX_ROWS%>件] <%ELSE%> [次の<%=MAX_ROWS%>件] <%END IF%>

<%if ubound(list3,2)<>0 then%> <%for i=1 to ubound(list3,2)%> <%if I >= PS AND I<=PE OR ubound(list3,2)-1=1 Then%>

<%=list3(5,i)%>

業種

<%=list3(2,i)%> 

業種分類

<%=list3(3,i)%> 

<%end if%> <%next%> <%elseif request("KENSAKU")="KENSAKU" then%>
該当データはありません。
<%end if%>

特定商工業者とは

商工会議所法ではある一定規模以上の企業(特定商工業者)にその登録(法定台帳の提出)と経費負担(負担金の納入)をご提供頂き、その地域の商工業の実態把握を行いデータ活用する事を目的とした特定商工業者制度が設けられております。
「資本金額(払込済出資総額)が300万円以上」又は「営業所等の従業員が20人(商業・サービス業は5人)以上」に該当する商工業者。
なお、この場合、従業員とは事業所に常時雇用されている人をいい、具体的には、期間を定めずに雇用されている人、又は、一ヶ月を超える期間を定めて雇用されている人をいいます。