<% LevelPath=""%> <% Dim TypeId TypeId=CheckInput(request("TypeId"),"i") if TypeId="" then TypeId=CheckInput(request("Type"),"i") end if ''TypeId="0301" lenType=len(TypeId)+2 Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = ConnectString rs.Source = "O_SiteMapTree 'B01',3,'A','S','" & ViewName & "'" 'response.write rs.Source rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if not (rs.Eof or rs.Bof) then Title=rs("SiteName") Meta=rs("Meta") end if %> Winmate-<%=Title%>-Panel PC/ Industrial LCD Display / Digital Signage/ Marine LCD/HMI Solution provider and Manufacturer <%=Meta%>
<% HomePageType="B01" %>
SiteMap

<% flag="N" reccount=0 Do while not rs.Eof reccount=reccount+1 if rs("Creflag")="N" then HttpUrl=LevelPath+rs("HTTPURL")+"" else if rs("HTTPURL")<>"" then PathUrl=Left(rs("HTTPURL"),InStr(rs("HTTPURL"),"/")) if LevelPath<>"" then PathUrl=LevelPath+PathUrl end if else PathUrl="" end if fileUrl=Replace(rs("SiteName"),"""","^") fileUrl=Replace(fileUrl,"/","^") ''HttpUrl=PathUrl+""+fileUrl+".html" HttpUrl=rs("HTTPURL") ''Response.write HttpUrl+"
" end if if rs("RLevel")="1" then if flag="Y" then Response.write "
" if reccount>40 then Response.write "" Response.write "" reccount=0 end if end if%> <% end if%> <% if rs("RLevel")="2" then 'flag="Y"%> <%IF RS("HTTPURL")<>"" THEN %> <%end if %> <% end if%> <%if rs("RLevel")="3" then flag="Y"%> <%IF RS("HTTPURL")<>"" THEN %> <%end if %> <%end if%> <% rs.movenext() Loop if flag="Y" then %>
<%=rs("SiteName")%>
<%IF rs("ImgUrl")<>"" THEN%> " style="width:50px;" alt="<%=rs("SiteName")%>" title="<%=rs("SiteName")%>" border> <%END IF%>
<%IF rs("ImgUrl")<>"" THEN%> " style="width:50px;" alt="<%=rs("SiteName")%>" title="<%=rs("SiteName")%>" border> <%END IF%>
<%end if%> <% rs.close() set rs=Nothing %>