<% If Request("method") = "login" then Dim rs Set RS = Conn.execute("Select * From realtors where acct_status=1 AND UserID='"& Request("userID") &"' AND password='"& Request("password") &"'") If NOT RS.Eof Then Session("username") = RS("FirstName") & " "& RS("LastName") response.cookies("username") = RS("FirstName") & " "& RS("LastName") Session("userID") = RS("id") response.cookies("userID") = rs("id") session("security") = RS("security") response.cookies("security") = RS("security") session("accesslevel") = 1 response.cookies("accesslevel") = 1 session("broker") = rs("brokeraccount") response.cookies("broker") = rs("brokeraccount") If rs("brokerid") <> 0 Then session("brokeracct") = rs("brokerid") response.cookies("brokeracct") = rs("brokerid") session("accesslevel") = 0 response.cookies("accesslevel") = 0 End If IF rs("brokeraccount") = 1 Then session("accesslevel") = 0 response.cookies("accesslevel") = 0 End If rs.close set rs = nothing response.redirect("myaccount.asp") Else 'Time to check to see if any of their helpers are loggin in. Set RS = Conn.execute("Select * From accounts where acct_status=1 AND username='"& Request("userID") &"' AND password='"& Request("password") &"'") If not RS.eof then Session("username") = RS("name") response.cookies("username") = rs("name") Session("userID") = RS("realtor") response.cookies("userID") = rs("realtor") session("security") = 0 response.cookies("security") = 0 rs.close set rs = nothing response.redirect("myaccount.asp") Else Session.Abandon() response.write "
 

LOGIN ERROR

" response.write " Your userID or password was not correct. Please try again." response.write "
" End If End If ElseIf Request("method") = "logout" then session.Abandon() response.cookies("userID") = "" response.write "
 

ACCOUNT STATUS

" response.write " You have successfully logged out of your account. Please come back soon." response.write "

Click HERE to log back in to your account." response.write "

" ElseIf Request("method") = "timmedout" then session.Abandon() response.write "
 

ACCOUNT STATUS

" response.write " You have been timmed out of your account. Please log back in." response.write "
" Else %>
 

THE ANSWER TEAM REAL ESTATE NETWORK - WEBSITE CONTROL PANEL

 

This Website Control Panel is designed for Real Estate Agents that are members of The Answer Team (TAT) Real Estate Network and Mojo Web Solutions Clients.

If you would like to learn more about our real estate website solutions, please visit: www.Mojo.biz.

 
<% end If %>