<%
' Property of and written by Adam Ford -->
option explicit
%>
Category Maintenance Form
<%
dim boledit
if isempty(request.querystring("cid")) then
boledit = false
else
%>
<%
dim strName
bolEdit = true
intCID = objRS("CID")
strName = objRS("Name")
end if
%>
<%
on error resume next
if err.number <> 0 then
dim strPage
strPage = "dsp_categoryform.asp"
%>
<%
end if
%>
<%
if bolEdit then
strName = empty
end if
bolEdit = empty
%>