<%
Dim DBadb　　　'コネクション
Dim cmdTemp　　　'更新クエリー
Dim RS　　　'レコードセット
Dim Siten　　　'支店名
Dim strSql　　　'SQLステートメント

'支店名をロード？
Siten = Request.QueryString("siten")

Set DBadb = Server.CreateObject("ADODB.Connection")
DBadb.Open "DSN=kinmu"

'よくわからん
'Set cmdTemp = Server.CreateObject("ADODB.Command")
'cmdTemp.CommandText = "SELECT * FROM 支店名"


'SQL文
strSql = "SELECT * FROM 支店マスタ WHERE 支店名 LIKE '" & Siten & "'"

'レコードセットオープン
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSql, DBadb, 3, 3

（以下略）
%>