<%@ Language=VBScript %> <% PageMemberName = "" Session.Contents.Remove("MemberUsername") Session.Contents.Remove("MemberPerms") Session.Contents.Remove("MemberID") Session.Contents.Remove("MemberFirstName") Session.Contents.Remove("MemberLastName") Session.Contents.Remove("MemberIndustryTypeID") if Request("bSubmit") = "Log In" then Username = Request.form("Username") Password = Request.form("Password") if UserName <> "" then set conn = Application("dataConn") set cmd = server.CreateObject("adodb.command") set cmd.activeConnection = conn cmd.CommandText = "MemberLogin" cmd.CommandType = adCmdStoredProc cmd.Parameters.Refresh Cmd.Parameters("@Username") = Username cmd.Parameters("@Password") = Password cmd.Execute if cmd(0) = 0 then session("MemberUsername") = Username session("MemberID") = cmd.Parameters("@MemberID").value session("MemberFirstName") = cmd.Parameters("@FirstName").value session("MemberLastName") = cmd.Parameters("@LastName").value session("MemberPerms") = cmd.Parameters("@Perms").value session("MemberIndustryTypeID") = cmd.Parameters("@IndustryType").value if session("MemberPerms") = "member" then Response.Redirect "default.asp" else Response.Redirect "../WEDAadmin/default.asp" end if else errString = "The system could not log you on.
Please try again" end if set cmd = nothing set conn = nothing else errString = "Please enter a Username" end if end if %> Welcome to the Washington Economic Development Association - The Voice of Economic Development
Washington Economic Development Association - The Voice of Economic Development
Your Portal to Local & Regional Economic Development in Washington
Click here to return to the home page Click here to visit the About WEDA section Click here for WEDA news & events Click here for conference information Click here to learn about Washington legislative affairs Click here for WEDA membership information Click here for WEDA contact information
Click here to join WEDA

 

 

 

Weekly Session Reports 2013