Contact Working Wheels Mecca Stevenson, Program Manager Phone: (206) 694-6833 Email: meccas@solid-ground.org Mailing Address: Working Wheels c/o Solid Ground 1501 N 45th St. Seattle, WA 98103 Looking for a car? Learn more about the program and answer a few questions to find out if you're eligible.
Overview   |   Application Instructions   |   Questions? Get Answers!   |   Contact Us   |   E-update

<% Sub CheckPassword Dim rsUsers, stSql, stPageHeader stSql = "SELECT Class, UserNo_pk, Password, Username FROM Users WHERE Username = '" & Request("fldUsername") & "'" Set rsUsers=Server.CreateObject("adodb.Recordset") rsUsers.open stSql, session("objConn"), 3 IF rsUsers.EOF THEN stPageHeader = "I cannot find that username. Please re-enter your username and password." ELSEIF rsUsers("Password") = Request("fldPassword") THEN Session("id") = rsUsers("UserNo_pk") SELECT CASE rsUsers("Class") CASE "ww" Response.Redirect "eligible.asp" CASE "spoc" Response.Redirect "eligible.asp" CASE "client" Response.Redirect "app/menu.asp" CASE "case" Response.Redirect "eligible.asp" END SELECT ELSEIF rsUsers("Password") <> "" AND rsUsers("Password") <> Request("fldPassword") THEN stPageHeader = "The password does not match the username. Please re-enter your username and password." END IF END SUB %>