<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Used Product Details" %>
<% PageID=254 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%UProductDetails%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub UProductDetails
ProdID = Request.QueryString("PID")
SEL="SELECT txtProduct,txtTeaser,txtDescription,txtManufacturer,txtManURL,nCatID FROM UProducts WHERE ProductID =" & ProdID
OpenConnection1
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open SEL,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("Product_List.asp")
Else
nCatID=rs("nCatID")
txtProduct=rs("txtProduct")
txtTeaser=DisPrepText(rs("txtTeaser"))
If Trim(txtTeaser)="" then txtTeaser="< nothing entered >"
txtDescription=DisPrepText(rs("txtDescription"))
If Trim(rs("txtManufacturer"))<>"" then txtManufacturer=DisPrepText(rs("txtManufacturer"))
If Trim(rs("txtManURL"))<>"" then txtManURL=DisPrepText(rs("txtManURL"))
rs.Close
cat="SELECT txtCategory From UCategories WHERE CatID=" & nCatID
rs.Open cat,DB,1,3
txtCategory=rs("txtCategory")
rs.Close
End If
%>
<%= FormatDateTime(Date,1) %>
<%If expire<>"" then%>
<%=expire%>
<%End If%>
<%=txtProduct%>
|
Product Category:
<%=txtCategory%> |
Product Teaser:
<%=txtTeaser%> |
Product Description:
<%=txtDescription%> |
<%If txtManufacturer<>"" then%>
Manufacturer:
<%=txtManufacturer%> |
<%End If
If txtManURL<>"" then%>
Manufacturer Website:
<%=txtManURL%> |
<%End If%>
Specifications
<%
SEL="SELECT SpecID,txtSpecification,nSortOrder FROM UP_Specs WHERE nProductID ="&ProdID&" ORDER BY nSortOrder"
rs.Open SEL,DB,1,3
%>
<%
If rs.RecordCount=0 then %>
There are currently no Specifications for this product.
<%End If
rs.Close
%>
Sort Specifications
<%End Sub %>
