<% ' Copyright (c) 2007. Adobe Systems Incorporated. ' All rights reserved. ' ' Redistribution and use in source and binary forms, with or without ' modification, are permitted provided that the following conditions are met: ' ' * Redistributions of source code must retain the above copyright notice, ' this list of conditions and the following disclaimer. ' * Redistributions in binary form must reproduce the above copyright notice, ' this list of conditions and the following disclaimer in the documentation ' and/or other materials provided with the distribution. ' * Neither the name of Adobe Systems Incorporated nor the names of its ' contributors may be used to endorse or promote products derived from this ' software without specific prior written permission. ' ' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" ' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE ' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ' ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ' LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ' CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF ' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ' INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN ' CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ' ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ' POSSIBILITY OF SUCH DAMAGE. Response.ContentType = "text/xml" Response.AddHeader "Pragma", "no-cache" Response.AddHEader "Cache-Control", "no-cache, must-revalidate" fileName = Server.MapPath(".") & "\..\..\data\adobe_products.xml" Set FSO = Server.CreateObject("Scripting.FileSystemObject") If Not FSO.FileExists(fileName) Then Response.Write "could not open the requested cities file." Response.End End If Dim fp Set fp = FSO.GetFile(fileName) Dim TextStream Set TextStream = fp.OpenAsTextStream(1, -2) If Request.QueryString("prd") = "" Then Do While Not TextStream.AtEndOfStream Response.Write TextStream.readline & vbCRLF Loop Set FSO = nothing Response.End End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF Dim f_content: f_content = "" Do While Not TextStream.AtEndOfStream f_content = f_content & TextStream.readline & vbCRLF Loop Set FSO = nothing Set rg = New RegExp With rg .Pattern = "<\s*product\s*>(\s|\n)*.*" & lcase(Request.QueryString("prd")) & "[^<]*<\/name>" .Global = true .MultiLine = true .IgnoreCase = true End With Dim matches Set matches = rg.Execute(f_content) For each match in matches Response.Write match.Value & "" Next Response.Write "" %>