php dhtml vbscript problem

Discussion in 'PHP' started by gilgalbiblewheel, Dec 21, 2007.

  1. #1
    I have a page of vbscript included by "include file" in a php.
    Line 443 shows error:

    Line 443 is:
    sTemp = sTemp & "<xsl:stylesheet xmlns:xsl=""http://www.w3.org/TR/WD-xsl"">" & vbCrlf
    Code (markup):
    <script language="VBScript" runat="server">
    ...
    
    	Private Function GetXSLStream()
    		Dim sTemp
    		sTemp = "<?xml version='1.0'?>" & vbCrlf
    		sTemp = sTemp & "<xsl:stylesheet xmlns:xsl=""http://www.w3.org/TR/WD-xsl"">" & vbCrlf
    		sTemp = sTemp & "<xsl:template match=""/"">" & vbCrlf
    		sTemp = sTemp & "if (!assocArray) var assocArray = new Object();<xsl:for-each select=""root/table1"">" & vbCrlf
    		sTemp = sTemp & "assocArray[""%listname%=<xsl:value-of select=""@search"" />""] = new Array(" & vbCrlf
    		sTemp = sTemp & "<xsl:for-each select=""table2"">" & vbCrlf
    		sTemp = sTemp & "<xsl:value-of select=""table2"" />    ""<xsl:value-of select=""@dvalue"" />"",""<xsl:value-of select=""@display"" />""," & vbCrlf
    		sTemp = sTemp & "</xsl:for-each>    ""EOF"");</xsl:for-each>" & vbCrlf
    		sTemp = sTemp & "</xsl:template>" & vbCrlf
    		sTemp = sTemp & "</xsl:stylesheet>" & vbCrlf
    		GetXSLStream = sTemp
    	End Function
    
    ...
    </script>
    Code (markup):
    If you want the full script then check out the attached file zipped and in a txt file.
     
    gilgalbiblewheel, Dec 21, 2007 IP