quote:

---

<xsl:param name="sField"/>
<xsl:param name="sTerm"/>

---

quote:

---

<?xml version="1.0" encoding="ISO-8859-1"?>
<Press>
    <Release>
        <title>The Downfall of "Always Connected"</title>
        <category>MEDIA</category>
        <source>iMedia Connection</source>
        <date>March 29, 2006</date>
        <linkType>WEB</linkType>
        <linkURL1>http://www.imediaconnection.com/content/8842.asp</linkURL1>
        <linkURL2></linkURL2>
    </Release>

    <Release>
        <title>Fourth-graders deliver the news on TV broadcast every morning</title>
        <category>EDUCATION</category>
        <source>Kingsport Times-News</source>
        <date>March 19, 2006</date>
        <linkType>WEB</linkType>
        <linkURL1>http://www.timesnews.net/communityArticle.dna?_StoryID=3613155</linkURL1>
        <linkURL2></linkURL2>
    </Release>

    <Release>
        <title>You Don't Need A Weatherman... WeatherBug's Strength Lies in its Vast Network of Data</title>
        <category>GOVERNMENT</category>
        <source>Federal Computer Week</source>
        <date>February 27, 2006</date>
        <linkType>PDF</linkType>
        <linkURL1>http://www.aws.com/aws_2005/releases/2006/clipping_feb2006_fedcomputerweek.pdf</linkURL1>
        <linkURL2></linkURL2>
    </Release>
...

---

quote:

---

<xsl:template match="Press/Release">
    <xsl:if test = "contains(., $sTerm)">

---

quote:

---

<xsl:if test = "contains($sField, $sTerm)">

---

quote:

---

Error Type:
msxml3.dll (0x80004005)
The stylesheet does not contain a document element. The stylesheet may be empty, or it may not be a well-formed XML document.
/Coverage/Coverage.asp, line 32

---

quote:

---

if ($sField == null)
then $theField = "."
else $theField = $sField

<xsl:if test = "contains($theField, $sTerm)">

---

quote:

---

<xsl:stylesheet
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    version="1.0">

    <xsl:output method="html" encoding="iso-8859-1"/>
    <xsl:param name="sField"/>
    <xsl:param name="sTerm"/>
    
    <xsl:template match="/">
        <xsl:apply-templates select="Press/Release"/>
    </xsl:template>

    <xsl:template match="Press/Release">
        <xsl:if test = "contains(., $sTerm)">
            <p><a href="{linkURL1}" target="_blank"><xsl:value-of select="title"/></a>
            
            <xsl:if test = "contains(linkType, 'PDF')">
                <xsl:text> </xsl:text><strong>(<xsl:value-of select="linkType"/>)</strong>
            </xsl:if>
            
            <br /><xsl:value-of select="source"/><xsl:text>, </xsl:text><strong><xsl:value-of select="date"/></strong></p>
        </xsl:if>
    </xsl:template>

</xsl:stylesheet>

---

quote:

---

<%@LANGUAGE="VBScript"%>

<%
    dim xslDoc, xmlDoc
    dim sTerm, sField
    
    sField = Request.QueryString("sField")
    sTerm = Request.QueryString("sTerm")
    
    set xmlDoc=server.CreateObject("Msxml2.FreeThreadedDOMDocument.3.0")
    set xslDoc=server.CreateObject("Msxml2.FreeThreadedDOMDocument.3.0")
    
    xmldoc.async = false
    xslDoc.async = false
    
    If IsNull(sField) then
        sField = "."
    else
        sField = UCase(sField)
    end if
    
    xmlDoc.load server.mapPath("Coverage.xml")
    xslDoc.load server.mapPath("Coverage.xsl")
    
    Set template = Server.CreateObject("MSXML2.XSLTemplate.3.0")
    Set template.stylesheet = xslDoc
    Set proc = template.createProcessor
    proc.input = xmlDoc
    
    If Len(sTerm) < 1 then
        sTerm = "."
    else
        sTerm = UCase(sTerm)
    end if
    
    proc.addParameter "sField", sField
    proc.addParameter "sTerm", sTerm
    proc.transform
    Response.Write proc.output
    
%>

---