<%if request("submitted") = 1 then SQL = "sp_insert_dept" dbstart 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 Response.Write "SUCCESS" else %>

D E P T   A D M I N

Site Home Admin Home Dept Admin

Add New Department
Department Name:
Gif Name:
Dept Description:	A brief description of the Department
Forum URL:

<%end if%>