% Set objConn = CreateObject("ADODB.Connection") objConn.Open strConn If request.querystring("OP") = "val" then Password = request.form("Password") If Password = "" then response.redirect "error.asp" SQL = "Select GText from WINGGeneral where GID=1" set rs = objConn.execute(SQL) If rs("GText") = Password then session("Members") = "Yes" response.redirect "members2.asp" Else strError = "Invalid password" End if rs.close End if %>
|
|||||||||||||||||||
|
|||||||||||||||||||
|
|||||||||||||||||||
|
|||||||||||||||||||