<%'checkauthenticate%> <% if request("Form1Submit")="YES" then SQL = "sp_selectDeptID" dbstart cmd.Parameters.Append cmd.CreateParameter("Dept", adVarChar, adParamInput, 40, Mid(request("Dept"), 1, 40)) set RS = cmd.execute DeptID = RS("ID") dbclose SQL = "sp_insertEvent" dbstart cmd.Parameters.Append cmd.CreateParameter("DeptID", adInteger,adParamInput , , Cint(DeptID)) cmd.Parameters.Append cmd.CreateParameter("DivisionID", adInteger,adParamInput , , request("div")) cmd.Parameters.Append cmd.CreateParameter("ClanName", adVarChar, adParamInput, 40, Mid(request("ClanName"), 1, 40)) cmd.Parameters.Append cmd.CreateParameter("EventDate", AdDBTimeStamp, adParamInput, , request("EventDate")) cmd.Parameters.Append cmd.CreateParameter("EventTime", adVarChar, adParamInput, 40, Mid(request("EventTime"), 1, 40)) cmd.Parameters.Append cmd.CreateParameter("Map", adVarChar, adParamInput, 40, Mid(request("Map"), 1, 40)) cmd.Parameters.Append cmd.CreateParameter("Players", adInteger,adParamInput , , request("Players")) cmd.execute dbclose URL = "../depts/fixtures.asp?Dept=" & request("dept") response.redirect URL end if %> <% getdeptinfo(request("dept")) %>

Site Home ">Depts <%=request("dept")%> Fixtures

Admin, please make sure you enter accurate information and spelling in those field that apply.

Division:	"> <% SQL = "sp_GetDivisions" dbstart set RS = cmd.execute do while not RS.EOF ID = RS("ID") DivName = RS("DivisionName") %> <%=DivName%> <% RS.movenext loop dbclose %>	Vs:
Date:
Time:
Map:
Players:	2 4 6 8 10 12
UserName:		Password: