Dunrovin Ranch Montana - Equestrian Club

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("userName")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "userAccess" MM_redirectLoginSuccess = "2_calendar_all.asp" MM_redirectLoginFailed = "members.asp?pass=fail" MM_loginSQL = "SELECT userName, userPassword, userAccess, FName" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM users WHERE userName = ? AND userPassword = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_club_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("userPassword")) ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername Session("MM_UserAccess") = CStr(MM_rsUser.Fields.Item("userAccess").Value) Session("MM_FName") = CStr(MM_rsUser.Fields.Item("FName").Value) If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% daNav = "home" %> Dunrovin Ranch Montana - Equestrian Club - Members <%if browser.getName = "ie" AND browser.getVersion <> "7.0" THEN%> <%end if%>

<%IF browser.getName = "ie" THEN%> <%ELSE%> <%END IF%>
This section is designed to facilitate communication your communication – with Dunrovin Ranch and with each other. From this page you can:

Check the club calendar to see what is happening and who is participating.
Sign up for activities and reserve your favorite horse!
Participate in the Dunrovin chat center to exchange information and discuss topics of interest.
Share photos of your Dunrovin Ranch adventures
Contact the Dunrovin Staff