% ' ■■■■■■■■ Sample for Web Application ■■■■■■■■ '============ form からの受け渡し変数を取得します username = Request.Form("username") '============ データベースへのコネクションを定義します set Connection = Server.CreateObject("ADODB.Connection") '============ 「aspDSN」という ODBC データソースを使って, '============ コネクションを開きます Connection.open "aspDSN","sa","" '============ 新規社員をデータベースに追加します '============ Execute は,指定された SQL 文を実行するために使います if username <> "" then Connection.Execute("insert TEST(名前) values('" & username & "')") end if '============ 読み取り用 SQL 文を定義します. '============ これは,普通の文字列変数です. sql_select = "select ID,名前 from TEST" '============ 実際に SQL 文を発行して,結果を RS_select に取得します '============ このように,文字列変数を使って SQL 文を発行することも '============ できます. set RS_select = Connection.Execute(sql_select) %>