出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
Netscape Communicatorでエラーになる 　 まみさん [2002/11/18 10:05:45] [2955]
[2955] Netscape Communicatorでエラーになる
投稿者：まみさん 2002/11/18 10:05:45
おはようございます。まみです。

下記のプログラムですが、Selectタグを連動させるJavascriptを作成したのですが、Selectを選択したときに「J_CD」の値が入ってこないのです。
このプログラムはIEでは動作したのですが、Netscape6.0以下（Netscape Communicator4.*）では動作しないのです。
プログラムは長いのですが、アドバイス頂ければ幸いです。

宜しくお願い致します。


<%
Dim oCon,sConStr,oRClnt1,oRClnt2,oRSel1,oRSel2,SQL
Dim i,j,Bu_mei
Set oCon = Server.CreateObject("ADODB.Connection")
sConStr = Application.Contents("ConCustomer")
oCon.Open sConStr
%>
<html>
<head>
<title>個人スケジュール</title>
<SCRIPT LANGUAGE="Javascript">
var J_CD = new Array();
var J_Bu = new Array();
var J_Name = new Array();
<%
Bu_mei = Array("経理部","情報部")

For i = 1 to 2
%>
J_Bu[<%=i%>] = "<%=Bu_mei(i-1)%>";
<%
SQL = "SELECT * FROM 個人情報 WHERE 部署名 = '" & Bu_mei(i-1) & "' ORDER BY 氏名ID"
Set oRClnt1 = oCon.Execute(SQL)
set oRClnt2 = oCon.Execute("SELECT COUNT(*) AS 件数 FROM 個人情報 WHERE 部署名='" & Bu_mei(i-1) & "'")
j = oRClnt2("件数")

Do Until oRClnt1.EOF
　If j > 0 Then
　　ReDim ary_CD(j - 1),ary_name(j - 1)
　　For m=0 to (j - 1) step 1
　　　ary_CD(m) = """" & oRClnt1("氏名ID") & """"
　　　ary_name(m) = """" & oRClnt1("氏名") & """"
　　　oRClnt1.MoveNext
　　Next
%>
　　J_CD[<%=i%>] = new Array(<%=Join(ary_CD,",")%>);
　　J_Name[<%=i%>] = new Array(<%=Join(ary_name,",")%>);
<%
Else
%>
　　J_CD[<%=i%>] = new Array("");
　　J_Name[<%=i%>] = new Array("");
<%
End If
Loop
Next
%>

function ChangeSec1(selOBJ){
　if (selOBJ==0){
　　document.My_Form.hdn1.value = "";
　}
　else{
　　document.My_Form.hdn1.value = J_CD[document.My_Form.bu1.value][document.My_Form.Sel1.selectedIndex - 1];
　}
}

function ChangeSec2(selOBJ){
　if (selOBJ==0){
　　document.My_Form.hdn2.value = "";
　}
　else{
　　document.My_Form.hdn2.value = J_CD[document.My_Form.bu2.value][document.My_Form.Sel2.selectedIndex - 1];
　}
}
</SCRIPT>
</head>

<body bgcolor="#FAFAD2">
<center>
<img src="image/rogo1.gif"><P>
<form name="My_Form" method="post">
<INPUT TYPE="TEXT" NAME="hdn_b">
<INPUT TYPE="TEXT" NAME="hdn_ID">
<table width="30%" cellspacing="10" cellpadding="0">
<tr><td ALIGN="center" VALIGN="baseline" BGCOLOR="#98FB98">
　<table width="100%" cellspacing="0" cellpadding="5">
　<tr><td colspan="2" align="center" BGCOLOR="#008000" NOWRAP>
　<FONT COLOR="#FFFFFF"><B>経理部</B></FONT></td>
　</tr>
　<tr>
　<td ALIGN="center">
　<select name="Sel1" onClick="ChangeSec1(true)">
　<OPTION>氏名を選択してください</OPTION>
<%
　set oRSel1 = oCon.Execute("SELECT 氏名 FROM 個人情報 WHERE 部署名='経理部'")
　Do Until oRSel1.EOF
%>
　　<OPTION VALUE="<%=oRSel1("氏名")%>"><%=oRSel1("氏名")%></OPTION>
<%
　　oRSel1.MoveNext
　Loop
%>
　</select>
　</td>
　<td>
　<input type="submit" name="btn1" value="送信" onClick="ChkForm()">
　<input type="hidden" name="bu1" value="1">
　<input type="hidden" name="hdn1">
</td></tr></table>
</td></tr>
<tr><td ALIGN="center" VALIGN="baseline" BGCOLOR="#98FB98">
　<table width="100%" cellspacing="0" cellpadding="5">
　<tr>
　<td colspan="2" align="center" BGCOLOR="#008000" NOWRAP>
　<FONT COLOR="#FFFFFF"><B>情報部</B></FONT></td></tr>
　<tr><td ALIGN="center">
　<select name="Sel2" onClick="ChangeSec2(true)">
　<OPTION>氏名を選択してください</OPTION>
<%
　set oRSel2 = oCon.Execute("SELECT 氏名 FROM 個人情報 WHERE 部署名='情報部'")
　Do Until oRSel2.EOF
%>
　　<OPTION VALUE="<%=oRSel2("氏名")%>"><%=oRSel2("氏名")%></OPTION>
<%
　　oRSel2.MoveNext
　Loop
%>
　</select>
　</td>
　<td>
　<input type="submit" name="btn2" value="送信" onClick="ChkForm()">
　<input type="hidden" name="bu2" value="2">
　<input type="hidden" name="hdn2">
　</td></tr></table>
</td></tr>
</table>
</form>
</center>
</body>
</html>

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ