<% Dim lLoginErr session.Value("adminlogin")="" If Request.Form("loginsubmit.x").Count > 0 then lLoginErr = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("UserID"), "UserID" ) lLoginErr = lLoginErr & validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Password"), "Password" ) if ERROR_MESSAGE = "" then dim adminlsql adminlsql = "exec p_WP_ADMIN_USER " & getQuotedString(Request.Form("UserID")) & "," & getQuotedString(Request.Form("Password")) Dim varItem dim radmin radmin = getRecordSetList(adminlsql) varItem = radmin(1) IF cint(varItem(1)) = 0 THEN ERROR_MESSAGE = "Login Failed." else session.Value("adminlogin")="true" Response.Redirect HTTP_HOST + "admin/frames/adminframes.asp" End if end if End if %>