データベースコネクション
ODBC接続
<%
'データベースコネクション
Set DBconn = Server.CreateObject("ADODB.Connection")
DBconn.Open "DB名","ユーザーID","パスワード"
'レコードセット取得
sql ="select * from テーブル名"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, db
%>