php dhtml vbscript problem

[gilgalbiblewhee]

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

Parse error: syntax error, unexpected T_STRING in C:\xampp\htdocs\search\cat\cdynlistbox.php on line 443

Line 443 is:

sTemp = sTemp & "<xsl:stylesheet xmlns:xsl=""http://www.w3.org/TR/WD-xsl"">" & vbCrlf

<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>

If you want the full script then check out the attached file zipped and in a txt file.