%@ Language=VBScript %> <% dim pass, msg, rs, rs2 msg = "" inuserid = Request("txtuserid") inuserpw = Request("txtuserpw") 'Define Database Connection Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ykkdb\wna_userid.mdb")) Set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ykkdb\wna_log.mdb")) strSQL = "SELECT USERID,USERPW FROM WNA_USERID WHERE USERID = '" pass = true if pass = true then strSQL = strSQL & inuserid & "'" strSQL = strSQL & " ORDER BY USERID" Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open strSQL, Conn, adOpenStatic, adLockOptimistic Set rs2 = Server.CreateObject ("ADODB.Recordset") rs2.Open "WNA_LOG", Conn2, adOpenDynamic, adLockPessimistic end if %>