<％
'*******************************
'関数：ConnectionMssql（connstr）
'パラメーター：connstr、データベース接続コード
著者：アリクシ
'日付：2007/7/13
'説明：一般的なデータベース接続プロセス
'例：<％= connectionmssql（ "provider = microsoft.jet.oledb.4.0; dataSource = test.mdb"）％>
'*******************************
subconnectionmsssql（connstr）
onerrorresumenext
setobjconn = server.createObject（ "adodb.Connection"）
objconn.connectiontimeout = 12
objconn.connectionString = trim（connstr）
objconn.open
ifobjconn.errors.count = 0then
それ以外
response.write "ConnectionMssql"、 "データ接続に失敗しました。構成ファイルを確認してください！"
Response.End
endif
Endingub
％>