<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	名称	:ポータルサイト(会社一覧)
'	作成日	:2008/08/22
'	作成者	:小野
'	目的	:参加企業一覧の表示
'	概要	:
'	修正変更:
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim TmpCnt
	TmpCnt = 0

	Dim RndKaisyaCD
	ReDim RndKaisyaCD(0)
	Query = "exec SPPポータル会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '" & GB_GakuseiNo & "'"	'会社CD未指定の場合は一覧取得
	Set Content = OpenQuery(Query)		
	Do While Not(Content.BOF Or Content.EOF)
		If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Then
			TmpCnt = TmpCnt + 1
			ReDim PreServe RndKaisyaCD(TmpCnt)
			RndKaisyaCD(TmpCnt) = Content.Fields("会社CD")
		End If
		Content.MoveNext
	Loop

	'1/2の確率で昇順/降順入れ替え
	Randomize
	If Int(Rnd() * 2) > 0 Then
		Dim RndKaisyaCDTmp
		ReDim RndKaisyaCDTmp(UBound(RndKaisyaCD))
		For TmpCnt = 1 To UBound(RndKaisyaCD)
			RndKaisyaCDTmp(TmpCnt) = RndKaisyaCD(UBound(RndKaisyaCD) - (TmpCnt - 1))
		Next
		For TmpCnt = 1 To UBound(RndKaisyaCD)
			RndKaisyaCD(TmpCnt) = RndKaisyaCDTmp(TmpCnt)
		Next
	End If

	'シャッフル
	Dim Shuffle1
	Dim Shuffle2
	Dim TmpKaisyaCD
	For TmpCnt = 1 To UBound(RndKaisyaCD) * UBound(RndKaisyaCD)	'配列数の2乗ループ
		Randomize
		Shuffle1 = Int(Rnd() * UBound(RndKaisyaCD)) + 1	'1~配列数のランダムな数値を取得
		Randomize
		Shuffle2 = Int(Rnd() * UBound(RndKaisyaCD)) + 1	'1~配列数のランダムな数値を取得
		'2つの配列の中身を入れ替える
		TmpKaisyaCD = RndKaisyaCD(Shuffle1)
		RndKaisyaCD(Shuffle1) = RndKaisyaCD(Shuffle2)
		RndKaisyaCD(Shuffle2) = TmpKaisyaCD
	Next

'Response.Write(RndKaisyaCD(1) & "<BR>")
'Response.Write(RndKaisyaCD(2) & "<BR>")
'Response.Write(RndKaisyaCD(3) & "<BR>")
'Exit Sub

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
	Response.Write(HtmlDesign(11))

	If GB_Gyosyu <> "S" Then
		Response.Write(HttpL3_1("閉じる", "ExitFlg=0;top.window.close()", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("&nbsp;自社サイトの編集&nbsp;", "tblbtn('portal_kaisha_edit.asp?ShijoCD=" & ShijoCD & "');", "閉じる", "ExitFlg=0;top.window.close()", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("参加企業一覧", ""))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
	<TR> 
		<TD ALIGN="CENTER"> 
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
				<TR> 
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> 
						<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<TR Height="24"> 
								<TD ALIGN="CENTER" VALIGN="TOP" class="tx1416"> 
									市場
									<select size="1" name="ShijoCD" class="tbox4" onChange="tblbtn('portal_kaisha_ichiran.asp?ShijoCD=' + this.value);">
										<option value="">全て表示</option>
										<%
											Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												Response.Write("<option value=""" & Content.Fields("市場CD") & """")
												If "" & Content.Fields("市場CD") = ShijoCD Then
													Response.Write(" selected")
												End If
												Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
												Content.MoveNext
											Loop
										%>
									</select>
								</TD> 
							</TR> 
							<TR> 
								<TD VALIGN="TOP"> 
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:820px; height:100%; z-index:1; border:1px none #000000; overflow:auto;"> 
										<TABLE ID="List" WIDTH="800" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse:collapse;" class="tx1416">
										<%

											For TmpCnt = 1 To UBound(RndKaisyaCD)
												Query = "exec SPPポータル会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & RndKaisyaCD(TmpCnt) & "', '" & GB_GakuseiNo & "'"
												Set Content = OpenQuery(Query)		
												If Not(Content.BOF Or Content.EOF) Then
													Dim onClickValue
													onClickValue = "tblbtn('portal_kaisha_view.asp?ViewKaisyaCD=" & Content.Fields("会社CD") & "&ShijoCD=" & ShijoCD & "')"
					 								Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
													Response.Write("<TD ALIGN=""CENTER"">")
													Response.Write("<img src=""")
													If "" & Content.Fields("バナー") <> "" Then
														Response.Write(FPortal & "/" & GB_EnshuCD & "/" & Content.Fields("会社CD") & "/" & Content.Fields("バナー"))
													Else
														Response.Write("/" & HomeAlias & "/images/default_banner.gif?" & GB_STU)
													End If
													Response.Write(""" WIDTH=""360"" HEIGHT=""40"" style=""cursor:hand;"" onClick=""" & onClickValue & """><BR>" & vbCrLf)
													Response.Write(Content.Fields("見出し文") & vbCrLf)
													Response.Write("<BR><BR>" & vbCrLf)
													Response.Write("</TD>" & vbCrLf)
													Response.Write("</TR>")
												End If
											Next
										%>
										</TABLE>
									</DIV>
								</TD>
							</TR>
						</TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
</div>

</body>

<% = HtmlFooter %>

</html>
<% 
End Sub
%>