VBSの中で書くSQL文の記述方法
よろしくお願いします。
select * from db1
into id,password,date,name
where db1_id = ****
and db1_password = ****
and db1_date = 99999999;
(db1_id,db1_password,db1_dateがプライマリキー)
db1という表からプライマリキーに該当したデータを取り出し、
変数に格納したいと思っています。
このSQL文をASPのVBSの中で実現する方法を教えてください。
<%
Dim Conn,SQL,RS
Dim id
Dim password
Dim date
Dim name
db1=server.mappath("db1.mdb")
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open DBName
SQL = "select * from db1"
INTO = "into id,password,date,name"
WHERE = "where db1_id = **** and db1_password = **** _
and db1_date = 99999999"
SQL = SQL & INTO & WHERE & ";"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn,3,3
%>
これでうまくいくかな~と思ったのですが・・・。