To make it work use the following code in BeforeProcess event of login page.
Quote
strUsername = Request("username")
strPassword = Request("password")
if strUsername<>"" and strPassword<>"" then
strSQL = "select * from LoginTableName where " & CSmartStr(AddFieldWrappers(cUserNameField)) & "=" & CSmartStr(strUsername) _
& " and " & CSmartStr(AddFieldWrappers(cPasswordField)) & "=" & CSmartStr(strPassword)
logged = false
doAssignment rs,db_query(strSQL,conn)
doAssignment data,db_fetch_array(rs)
if bValue(data) then
if IsEqual(data(cUserNameField),sUsername) and IsEqual(data(cPasswordField),sPassword) then
logged = true
end if
end if
if bValue(logged) then
doArrayAssignment Session,"UserID",pUsername
Session("AccessLevel") = ACCESS_LEVEL_USER
end if
asp_header "Location: menu.asp"
response.end
end if
strPassword = Request("password")
if strUsername<>"" and strPassword<>"" then
strSQL = "select * from LoginTableName where " & CSmartStr(AddFieldWrappers(cUserNameField)) & "=" & CSmartStr(strUsername) _
& " and " & CSmartStr(AddFieldWrappers(cPasswordField)) & "=" & CSmartStr(strPassword)
logged = false
doAssignment rs,db_query(strSQL,conn)
doAssignment data,db_fetch_array(rs)
if bValue(data) then
if IsEqual(data(cUserNameField),sUsername) and IsEqual(data(cPasswordField),sPassword) then
logged = true
end if
end if
if bValue(logged) then
doArrayAssignment Session,"UserID",pUsername
Session("AccessLevel") = ACCESS_LEVEL_USER
end if
asp_header "Location: menu.asp"
response.end
end if
Replace LoginTableName with login table name. Replace menu.asp with URL of the page where you want to send user.
If you use User Group permissions or Advanced security options you might need to add more code from login.asp to this event.

Sign In
Register
Help

MultiQuote