<% ''1.Read Site Information begin ========================================= ProdID=CheckInput(Request("Prod"),"s") if ProdId<>"" then ShowTypeId=Left(ProdId,InStr(ProdId,"_")-1) end if dim ErrorMessage,MasterTitle,MasterDesc,MasterPic,ParentType,ParentName,Meta,ShowSpec,RightDesc,TypeId Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = ConnectString rs.Source= "select ProdId,ModelName,ProdDesc,ProdFeatures,DataSheetUrl,ProdImgUrl,Remark,RemarkOther,Meta ,ProdDVurl,ProdRightDesc, "&_ " Newflag=Case when (Newstdate<=Getdate() and Getdate()"" then ProdDVurl=replace(RS("ProdDVurl"),"\","/") end if if rs("ProdRightDesc")<>"" then ProdRightDesc="
"&_ ""&Replace(Replace(rs("ProdRightDesc"),"::"," "),";;","")&_ "
" ProdRightDesc=Replace(ProdRightDesc,"href=","class=HomeMenu href=") end if Newflag=RS("Newflag") ELSE Message= "NO Products in this Type Query!!" END IF ''1.Read Site Information begin ======================================================== %> <%=Meta%> RuggMate-<%=MasterTitle%>

<%=ModelName%><%if Newflag="Y" then %> <% end if%>


<%=Message%> "&VBCRLf end if Content = Content + " " Content = Content + "" Content = Content + "" Content = Content + "" Content = Content + " " end if end if rsSpec.movenext() Loop Response.write Content rsSpec.close() set rsSpec=nothing %>
<%if ProdImgUrl<>"" then%> <%=ModelName%> <%end if%> <%=DetailDesc%>

<%IF ProdFeatures<>"" THEN%> <%END IF%> <%if ProdRightDesc<>"" then%> <%end if%>
Features
<%=Replace(ProdFeatures,chr(10),"
")%>
<%if DataSheeturl<>"" then %> Datasheet <%end if%> <%if ProdDvurl<>"" then %> Product Video <%end if%>
<%=ProdRightDesc%>
<% if (not (rs.Eof or rs.Bof) ) then %> <% ''string queryString = "O_ProdSpec ,'00',2,'"&TypeId&"','"&ProdId&"' " Set rsSpec = Server.CreateObject("ADODB.Recordset") rsSpec.ActiveConnection = ConnectString rsSpec.Source= "O_ProdSpec '"&ShowTypeId&"',2,'"&ProdId&"' " 'Response.write rsSpec.Source 'Response.end rsSpec.CursorType = 0 rsSpec.CursorLocation = 2 rsSpec.LockType = 1 rsSpec.Open() dim Content,SpecTitle,SpecDesc Content = "" SpecTitle="" SpecDesc="" RLevel = "" cssLevel1 = "product_subT" cssLevel2 = "Content_text" do while (not (rsSpec.Eof or rsSpec.Bof) ) SpecTitle = rsSpec("SpecTitle") SpecDesc = rsSpec("SpecDesc") RLevel = rsSpec("RLevel") if (RLevel = "1") then if (Content<>"" and (SpecDesc <> "")) then Content = Content + "" Content = Content + "" Content = Content + " " end if if (SpecDesc <> "") then TRcolor = "" Content = Content + "" end if end if if (RLevel = "2") then if (SpecDesc <> "") then TRcolor = "#ffffff" Content = Content + "" Content = Content + "" if InStr(1,SpecDesc,";;")=0 then Content = Content + "" else MyArray = Split(SpecDesc, ";;", -1, 1) MyTableshow="
" + SpecTitle + "
" + SpecTitle + "" + SpecDesc + "
" TdBgcolor = "#ffffff" for MyArrayI=0 to Ubound(MyArray) if (MyArraryI Mod 2)=0 then TdBgcolor = "#ffEEEE" else TdBgcolor = "#ffffff" end if MyTableshow=MyTableshow&"" Next MyTableshow=MyTableshow&"
"&MyArray(MyArrayI)&"
" SpecDesc="
"&Replace(SpecDesc,";;","")&"
" Content = Content + "
" + SpecDesc + "
<%END IF%> <%IF RemarkOther<>"" THEN%> <%=Replace(RemarkOther,chr(10),"
")%> <%END IF%> <%IF Remark<>"" THEN%> <%=Replace(Remark,chr(10),"
")%> <%END IF%> <% rs.close() set rs=nothing %>