<% if request("deleteFixture") then SQL = "delete from Events where ID = " & request("EventID") dbstart_temp conn.execute(SQL) end if ID = Session("id") %> <% Dim Invalid function CountSpacesLeft(ID, Players) SQL2 = "sp_countSpacesLeft" set cmd2 = server.CreateObject("ADODB.Command") set RS2 = server.CreateObject("ADODB.RecordSet") cmd2.ActiveConnection = Conn cmd2.CommandType = adCmdStoredProc cmd2.CommandText = SQL2 cmd2.Parameters.Append cmd2.CreateParameter("ID", adInteger,adParamInput , , ID) set RS2 = cmd2.execute CountSpacesLeft = Players - RS2("count") end function function validateUser(UserName, DeptName) SQL = "SELECT * FROM MemberInfo, Departments WHERE Departments.DepartmentName = '" & DeptName & "' AND MemberInfo.DepartmentID = Departments.ID AND MemberInfo.UserName = '" & UserName & "'" dbstart_temp set RS = Conn.execute(SQL) if RS.EOF then Invalid = "NO" validateUser = "NO" else validateUser = "YES" end if dbclose end function if request("SubmitTest") = "YES" then if validateUser(request("UserName"), request("dept")) = "YES" then SQL = "INSERT INTO Players(EventID,UserName) VALUES(" & request("EventID") & ",'" & request("UserName") & "')" dbstart_temp Conn.execute(SQL) end if end if %> Mëtälü§ Grävï§: Fixtures <% If Invalid = "NO" then %> <% end if %> onload="NotValid()" <%end if%>> <% getdeptinfo(request("dept")) %>
Site Home Depts <%=request("dept")%> Fixtures 
<% SQL = "sp_selectAllEvents" dbstart cmd.Parameters.Append cmd.CreateParameter("@deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) set RS = cmd.execute i = 1 do while not RS.EOF EventID = RS("ID") Division = RS("DivisionName") ClanName = RS("ClanName") EventDate = RS("EventDate") EventTime = RS("EventTime") Map = RS("Map") Players = RS("Players") SpacesLeft = CountSpacesLeft(EventID, Players) %>
Division: <%=Division%> Vs: <%=ClanName%>
Date: <%=EventDate%>    
Time: <%=EventTime%>    
Map: <%=Map%>    
Players: <%=Players%> Spaces Left: <%=SpacesLeft%>
       
Username:
">
Password:
     
       
Admin?  



<% i = i + 1 RS.movenext loop dbclose %>

Admin: ">Add New Fixture