<% Call DisplayHeader()%>
<% Dim MODE, PROCESS, LOGIN, PASSWORD, REMEMBER_ME, results Dim sSQL, sErrDesc OpenDatabase() CheckDoubleLogin() PROCESS = GetValue("PROCESS") if PROCESS = "Y" then PROCESS = GetValue("PROCESS") LOGIN = GetValue("LOGIN") PASSWORD = GetValue("PASSWORD") REMEMBER_ME = GetValue("REMEMBER_ME") if ValidateuserLogin(LOGIN, PASSWORD, sErrDesc) then if not isEmpty(REMEMBER_ME) then Response.Cookies("rdg.com")("LOGIN") = Encode(LOGIN) Response.Cookies("rdg.com")("PASSWORD") = Encode(PASSWORD) Response.Cookies("rdg.com").Expires = CDate(Month(Now)&"/"&Day(Now)&"/"&Year(Now)) + 31 else Response.Cookies("rdg.com")("LOGIN") = "" Response.Cookies("rdg.com")("PASSWORD") = "" end if CloseDatabase() if isEmpty(Session("URL")) then Response.Redirect("/users/") else Dim URL URL = Session("URL") Session("URL") = "" Response.Redirect(URL) end if else Response.Cookies("rdg.com")("LOGIN") = "" Response.Cookies("rdg.com")("PASSWORD") = "" Response.Cookies("rdg.com").Expires = CDate(Month(Now)&"/"&Day(Now)&"/"&Year(Now)) - 1 call DisplayError(sErrDesc) end if else results = CheckCookies() LOGIN = results(0) PASSWORD = results(1) REMEMBER_ME = results(2) end if %>

Please login to the users section ...

BY ENTERING YOUR LOGIN CREDENTIALS AND PRESSING THE "ENTER" BUTTON, YOU ACKNOWLEGE THAT YOU HAVE READ & AGREE TO RDG'S
"TERMS OF ACCESS"

<% If Request.QueryString("f") = "y" Then Response.Write "

Your password was successfully delivered to the email address on file with this account

" End if %>
User Name: 
Password: 
>Save Password?
 
 

Forgot your password?


[ View Contractor Agreement ]
[ View Architect/Engineer Agreement ]

<% CloseDatabase() %> <% Call DisplayFooter() %>