<%@ Language=VBScript %> <%Response.Buffer=True%> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - Add New Part" %> <% PageID=402 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%PartAdd%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub PartAdd error = "" OpenConnection1 SET rs=Server.CreateObject("ADODB.Recordset") If Request.ServerVariables ("REQUEST_METHOD") = "POST" then txtPart = dbReplace(TRIM(Request.Form("txtPart"))) txtDescription=dbReplace(Trim(Request.Form("txtDescription"))) nCatID = Request.Form("selCat") txtItemNumber = dbReplace(TRIM(Request.Form("txtItemNumber"))) If txtPart<>"" And txtItemNumber<>"" And nCatID<>0 then SEL="SELECT * FROM Parts" rs.Open SEL,DB,1,3 rs.AddNew rs("nCatID")=nCatID rs("txtPart")=txtPart rs("txtDescription")=txtDescription rs("txtItemNumber")=txtItemNumber rs.Update PartID = rs("PartID") rs.Close Response.Redirect ("part_details.asp?PID=" & PartID) Else If txtPart="" then error="The Part Name is required.
" End If If txtItemNumber="" then error=error & "The Part Item Number is required.
" End If If nCatID=0 then error=error & "Please select a Part Category.
" End If End If End If Sel="Select * FROM PartCategories ORDER BY nSortOrder" rs.Open Sel,DB,1,3 If rs.EOF then rs.Close Response.Redirect("PartCategories.asp?PA=1") End If %>

<%= FormatDateTime(Date,1)%>

<%If error<>"" then%>

<%=error%>

<%error="" End If%>
Part Category:
Part Name:
Item Number:
Part Description:
 

<%End Sub%> <% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %>