<% if request("submitted") = 1 then SQL = "sp_UpdateDept" dbstart cmd.Parameters.Append cmd.CreateParameter("@ID", adInteger,adParamInput , , CInt(Request("ID"))) cmd.Parameters.Append cmd.CreateParameter("@DeptName", adVarChar, adParamInput, 100, Mid(Request.Form("DeptName"), 1, 100)) cmd.Parameters.Append cmd.CreateParameter("@Description", adLongVarChar, adParamInput, 5000, Mid(Request.Form("DeptDescription"), 1, 5000)) cmd.Parameters.Append cmd.CreateParameter("@Gifname", adVarChar, adParamInput, 200, Mid(Request.Form("GifName"), 1, 200)) cmd.Parameters.Append cmd.CreateParameter("@ForumURL", adVarChar, adParamInput, 200, Mid(Request.Form("ForumURL"), 1, 200)) cmd.execute dbclose SQL = "update MemberInfo set RankID = 2 where ID = " & request("OverSeer") dbstart_temp Conn.execute(SQL) dbclose Response.redirect "dept_admin.asp" else %> <% SQL = "select * from Departments where ID = " & request("DeptID") dbstart_temp set RS = conn.execute(SQL) id = RS("id") DeptName = RS("DepartmentName") Gifname = RS("Gifname") Description = RS("Description") ForumURL = RS("ForumURL") if instr(ForumURL, "http://")=0 then ForumURL = "http://" & ForumURL end if dbclose %>

D E P T   A D M I N

Site Home Admin Home Dept Admin

Department		Department Allies
Department Name:
Gif Name:
Dept Description:	<%=Description%>	Click here to view/edit the current Allies of this Dept
Forum URL:		Or
Dept Overseer:	select an OverSeer <% SQL = "select * from MemberInfo where DepartmentID = " & request("DeptID") dbstart_temp set RS = conn.execute(SQL) do while not RS.EOF ID = RS("id") Callsign = RS("Callsign") RankId = RS("RankId") %> selected<%end if%>><%=Callsign%> <% RS.movenext loop dbclose %>	Add a new Ally here

<%end if%>