<!-- #include file = "../common/act_dbopen.asp" -->
<%
	' Property of and written by Adam Ford -->
	dim CID

	CID = request.querystring("cid")

	' Make sure a number was passed correctly
	if isNumeric(CID) then
		CID = clng(CID)
	else
		CID = 0
	end if

	' Create the SQL statement
	strSQL = "UPDATE Categories SET name='" & request.form("name") & "' WHERE CID=" & CID & ";"

'	Open a recordset
	objDBConn.execute strSQL

	on error resume next

	if err.number <> 0 then
		dim strPage
		strPage = "act_updatecategory.asp"
%>
	<!-- #include file = "../common/dsp_error.asp" -->
<%
	else
		strphone = empty
		HID = empty
%>
<!-- #include file = "../common/act_dbclose.asp" -->
<%
		response.redirect ("dsp_main.asp")
	end if
%>