<% FileName = "MainProducts.xml" RootPath = "../../../../database/Main/" TotalPath = RootPath & FileName strFile = Server.MapPath(TotalPath) Set dataFile = objFSO.opentextfile(StrFile, 1, False) DIM ProductPage(100) PageNumber = 0 Count = 0 while not dataFile.atendofline txtLine = trim(dataFile.readline) IF InStr(txtLine, "") > 0 Then PageNumber = PageNumber + 1 End If IF (InStr(txtLine, "
") > 0) AND (Instr(txtLine, "MHP") > 0) THEN Count = Count + 1 ProductPage(Count) = PageNumber End If wend dataFile.Close Set dataFile = Nothing 'Response.Write("PreCount = " & Count & "
") DIM ProNumber IF (Count > 0) THEN IF (Count > 1) THEN Randomize DIM Max,Min Min = 1 Max = Count Count = (Int((Max-Min+1)*Rnd+Min)) Random = Rnd ELSE Count = 1 END IF ProNumber = ProductPage(Count) 'Response.Write("Random = " & Random & "
") 'Response.Write("Count = " & Count & "
") 'Response.Write("PageNumber = " & PageNumber & "
") ImageName =AHScan2(FileName, "image", ProNumber) PDF = AHScan2(FileName, "imagelink", ProNumber) Header = AHScan2(FileName, "header", ProNumber) Header = Replace(Header, "(R)", "®") Header = Replace(Header, "(TM)", "™") SubHead = AHScan2(FileName, "subheader", ProNumber) MainContent = AHScan2(FileName, "content", ProNumber) PageID = AHScan2(FileName, "productlink", ProNumber) MainContent = Replace(MainContent, "|", "
  • ") ImagePath = "../../../uploads/drilldowns/" & ImageName PDFLink = "../../../uploads/brochures/" & PDF END IF %>
    <% IF (Instr(Header, "~") > 0) Then Header = Replace(Header, "~", "") LeftLinks = "False" Else LeftLinks = "True" End If %>

    <%=Header%>

    <% IF(ImageName <> "") THEN %> <% END IF %>
    <% IF(PageID <> "")THEN %>
    Learn More
    <% End IF%>

    <%=SubHead%>

    <% IF (MainContent <> "") THEN %>

    • <%=MainContent%>

    <% End IF %>