<%@ language=vbscript %> <% option explicit %> <% dim cnn, rsDai,rsChu,rsTiku dim strConnection 'strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _ ' & "Data Source=" & server.MapPath("mdb/組合一覧.mdb") set cnn = server.CreateObject("adodb.connection") cnn.open "search" set rstiku = server.CreateObject("adodb.recordset") set rsDai = server.CreateObject("adodb.recordset") set rsChu = server.CreateObject("adodb.recordset") %> 中央会会員の組合情報/キーワードで探す

中央会会員の組合情報

HOME > 中央会会員の組合情報目次 > キーワードで探す




中央会会員の組合情報


キーワードで探す



地区: <% dim strSQL dim intFirstID strSQL = "SELECT 大,大" _ & " FROM 大" _ & " ORDER BY 大;" rsDai.open strSQL, cnn intFirstID = rsDai("大") strSQL = "SELECT 大,中" _ & " FROM 中" _ & " ORDER BY 大,中;" rsChu.open strSQL, cnn strSQL = "SELECT 地区" _ & " FROM 地区" _ & " ORDER BY 地区;" rsTiku.open strSQL, cnn WriteClientArray "arrChu", rsChu, _ "大","中","中" %> <% SelectBox rsTiku,"selTiku","地区","地区" %>


業種:
    大分類: <% SelectBox rsDai,"selDai","大","大" %>

    中分類: <% rsChu.filter = "大='" & intFirstID & "'" SelectBox rsChu,"selChu","中","中" rsChu.filter = 0 %>


キーワード:




中央会会員の組合情報トップへ



ホームへ戻る