SELECTの内容を取得するには。

ど・どいつ 1999/12/10(金) 17:06:15
以下は、HTMLから呼ばれる関数の一部です。
（での、テーブル等のタグやＤＢ読み込みが欠けているかも
しれませんが、あしからず。）

このプログラムは、selectを作成してデータをＤＢから読み込みます。
さらに、その横にselectに対応する名称を表示します。
このとき、selectが変更されたら、ボタン等の押下を行わずに
横に表示されている名称を対応するものに変更するには、
どう処理したら良いでしょう？
（なんか、誰かに問題出してるみたいだけど・・・＾＾;;）

Function input_set(wwidth,walign,wsize,wlen)
  Response.Write("<TD WIDTH='" & wwidth & "'>")
  Response.Write("<SELECT NAME='cocode'>")

  SQL="SELECT DISTINCT cocode FROM t_coname;"
  Set RS3=DBConn.Execute(SQL)

  Do until RS3.EOF
    if RS2("cocode")=RS3("cocode") then
      Response.Write("<OPTION VALUE='" & RS3("cocode") & "' SELECTED>" & RS3("cocode") & "")
    else
      Response.Write("<OPTION VALUE='" & RS3("cocode") & "'>" & RS3("cocode") & "")
    end if
    dtcnt=dtcnt+1
    RS3.MoveNext
  Loop
  Response.Write("</SELECT>")
  Response.Write("</TD>")

  SQL="SELECT coname FROM t_comst WHERE cocode='" & ここにselectされた内容を入れたい & "';"
  Set RS3=DBConn.Execute(SQL)

  Response.Write("<TD WIDTH='80%'>" & trim(RS3("coname")) & "</TD>")
End Function

ここでは、「ここにselectされた内容を入れたい」箇所に
selectしたコードが埋め込めればよいのですが。
いつも長文で済みません。みなさま。
宜しくお願いします。

[上に] [前に] [次に]