<%@ Language=VBScript %> <%Response.Buffer=True%> <% PartID=cint(Request.QueryString("PID")) CatID=cint(Request.QueryString("C")) 'If Not Logged Then ' Session("page")="Part_details.asp?SID=" & PartID ' Response.Redirect("login.asp") 'End If 'Session("conshopping")="Part_details.asp?SID=" & PartID OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") Sel="SELECT * FROM Parts WHERE PartID=" & PartID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("parts.asp") txtPart=rs("txtPart") txtDescription=DisPrepText(rs("txtDescription")) txtItemNumber=rs("txtItemNumber") txtImage=rs("txtImage") 'If Request.Cookies("wades")("curopt")="1" then ' curPrice=rs("curCanPrice") ' curCur="Canadian Dollars" 'Else ' curPrice=rs("curUSPrice") ' curCur="U.S. Dollars" 'End If rs.Close %>

<%If txtImage<>"" then%> <%End If If Trim(txtDescription)<>"" then%> <%End If%> <%=txtPart%> <%=txtDescription%> <%Sel="SELECT * FROM Part_Specs WHERE nPartID=" & PartID & " ORDER BY nSortOrder" rs.Open Sel,DB,1,3 If Not rs.EOF then%> <%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close End If%> Item Number <%=txtItemNumber%>   Specifications... • <%=rs("txtSpecification")%>