<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Part Details" %>
<% PageID=400%>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%partdetails%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub partdetails
PartID = Request.QueryString("PID")
SEL="SELECT * FROM Parts WHERE PartID =" & PartID
OpenConnection1
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open SEL,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("part_list.asp")
Else
nCatID=rs("nCatID")
txtPart=rs("txtPart")
txtDescription=rs("txtDescription") & ""
txtItemNumber=rs("txtItemNumber")
txtImage=rs("txtImage") & ""
rs.Close
cat="SELECT txtCategory From PartCategories WHERE CatID=" & nCatID
rs.Open cat,DB,1,3
txtCategory=rs("txtCategory")
rs.Close
If Trim(txtImage)="" then txtImage="noimage.gif"
End If
%>
<%= FormatDateTime(Date,1) %>
<%=txtPart%>
|
| Part Category: |
<%=txtCategory%> |
| Item Number: |
<%=txtItemNumber%> |
| Description: |
<%=DisPrepText(txtDescription)%> |
| Current Image: |
 |
Specifications
<%
SEL="SELECT SpecID,txtSpecification,nSortOrder FROM Part_Specs WHERE nPartID =" & PartID & " ORDER BY nSortOrder"
rs.Open SEL,DB,1,3
%>
<%
If rs.RecordCount=0 then %>
There are currently no Specifications for this Part.
<%End If
rs.Close
%>
Sort Specifications
<%End Sub %>
