<% 'This page will be replace the product intro page when the product is moved to Legacy Dim productId productId = Request.QueryString("pid") dim con,rs,catID,catID2, records, strSQL set con=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") con.open "dsn=adstechsql","ads","adspassword" strSQL = "Select P.product_id, P.product_name, P.foldername, P.product_page from Product P join LegacySubstituteProduct LSP on " &_ " P.product_id = LSP.SubstituteProductId where LSP.LegacyProductId = '" & productId & "'" rs.open (strSQL), con, 1, 2 Dim strProductId, strProductName, strFolderName, strProductPage, bProduct If Not rs.EOF Then bProduct = true strProductId = rs.fields("product_id") strProductName = rs.fields("product_name") strFolderName = rs.fields("foldername") strProductPage = rs.fields("product_page") Else bProduct = false End If rs.close '********** if substitute product not available ********** if bProduct = false then strSQL = "Select product_id,product_name from Product where product_id = '" & productId & "'" rs.open (strSQL), con, 1, 2 if not rs.eof then strProductId = rs.fields("product_id") strProductName = rs.fields("product_name") end if rs.close end if '********************************************************* Dim strURL,strSupportURL strURL = "../../../products/" & strFolderName & "/intro/" & strProductPage & "?pid=" & strProductId strSupportURL="../../../support/ProductSupport.asp?pid=" & strProductId & "&productName=" & strProductName %> ADS Technologies
             
 
   
<% rs.open"select category_id,category_name from category",con,3,2 %> <% do while not rs.eof %>
<%=rs.fields("category_name")%> <% catID=cint(rs.fields("category_id")) %> <% dim rs1 set rs1=server.createobject("adodb.recordset") rs1.open "exec menuProduct "& catID ,con,3,2 %>
<% do while not rs1.eof %> ?pid=<%=rs1.fields("product_id")%>" style="text-decoration:none"><%=rs1.fields("product_shortname")%>
<% rs1.movenext loop %>
<% rs.movenext loop %>
 



This product has been discontinued.
Click here for support.
<%if bProduct = true then %> Our newer product <%=strProductName%> replaces this unit <%end if%>

home | terms of use | privacy policy


copyright © 2001 ADSTechnogies. AllRights Reserved
<% rs.close rs1.close set rs = nothing set rs1 = nothing con.close set con=nothing %>