%
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
<%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人)以上」に該当する商工業者。
なお、この場合、従業員とは事業所に常時雇用されている人をいい、具体的には、期間を定めずに雇用されている人、又は、一ヶ月を超える期間を定めて雇用されている人をいいます。 |