ASP上1画面に複数のテーブルからデータを取るには

質問

いつもお世話になっております。

ASPの1画面に、複数のプルダウンを設置して、
そのプルダウンの内容をDBから拾ってきたいと思ってます。
DBのサーバーはsqlserverです。

各テーブルは、項目が全く違うのでJOINは使えません。

ご存知でしたら、ご教授お願いします。

1つのDBを読み込む際は、以下のコードにておこなってます。

<%@ LANGUAGE="vbscript" CODEPAGE=65001 %>
<% Session.CodePage=65001 %>
<!--#include file="config.inc"-->
<!--#include file="dblib.asp"-->
<%

' データベース利用用変数
Dim Conn ' Connection オブジェクト
Dim Rs ' レコードセットオブジェクト
Dim SQL ' SQL 文格納用

' データベース接続の確立
Set Conn = ConnectDB(DSN)

' 会社の一覧を取得

SQL = "Select 法人コード,会社コード,法人名称 From 法人マスタ ORDER BY 法人コード"

Set Rs = ExecSql(Conn, SQL)
%>

どうぞよろしくお願いいたします。

回答No.1

anmochi · ベストアンサー

複数のRecordSetを取得すればいいのではないでしょうか。

<%@ LANGUAGE="vbscript" CODEPAGE=65001 %>
<% Session.CodePage=65001 %>
<!--#include file="config.inc"-->
<!--#include file="dblib.asp"-->
<%

' データベース利用用変数
Dim Conn' Connection オブジェクト
Dim Rs1 ' レコードセットオブジェクト1
Dim Rs2 ' レコードセットオブジェクト2
Dim Rs3 ' レコードセットオブジェクト3
Dim SQL' SQL 文格納用

' データベース接続の確立
Set Conn = ConnectDB(DSN)

' 会社の一覧を取得

SQL = "Select 法人コード,会社コード,法人名称 From 法人マスタ ORDER BY 法人コード"
Set Rs1 = ExecSql(Conn, SQL)

SQL = "Select なんちゃらしゃん From なんちゃらマスタ ORDER BY なんちゃらコード"
Set Rs2 = ExecSql(Conn, SQL)

SQL = "Select ぷるっぴ From ドンタコスマスタ ORDER BY 有明海沿岸コード"
Set Rs3 = ExecSql(Conn, SQL)

' TODO: Connはどこで始末してる？
%>

お礼

すばやいご回答ありがとうございました。

Dim Rs1 ' レコードセットオブジェクト1
Dim Rs2 ' レコードセットオブジェクト2
Dim Rs3 ' レコードセットオブジェクト3
を作って、各時SQLを実行して、
うまくテーブルを読み込むことができました。

大変助かりました。
どうもありがとうございました。