<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Supply Details" %>
<% PageID=300 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%SupplyDetails%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub SupplyDetails
SupplyID = Request.QueryString("SID")
SEL="SELECT * FROM Supplies WHERE SupplyID =" & SupplyID
OpenConnection1
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open SEL,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("Supply_List.asp")
Else
nCatID=rs("nCatID")
txtSupply=rs("txtSupply")
txtDescription=rs("txtDescription")
txtItemNumber=rs("txtItemNumber")
rs.Close
cat="SELECT txtCategory From SCategories WHERE CatID=" & nCatID
rs.Open cat,DB,1,3
txtCategory=rs("txtCategory")
rs.Close
End If
%>
<%= FormatDateTime(Date,1) %>
<%=txtSupply%>
|
Supply Category:
<%=txtCategory%> |
Item Number:
<%=txtItemNumber%> |
Description:
<%=DisPrepText(txtDescription)%> |
Specifications
<%
SEL="SELECT SpecID,txtSpecification,nSortOrder FROM S_Specs WHERE nSupplyID ="&SupplyID&" ORDER BY nSortOrder"
rs.Open SEL,DB,1,3
%>
<%
If rs.RecordCount=0 then %>
There are currently no Specifications for this Supply.
<%End If
rs.Close
%>
Sort Specifications
<%End Sub %>
