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.

[bastien]

why are you including a vbscript page in a php app?

[Weedpacket]

It's not attached (and is that really line 443 in cdynlistbox.php?).

But if you're using something like include() to read this file, and you have short_open_tags turned on (see the php.ini file or the output of phpinfo()) then you will have trouble because the "<?" that appears looks exactly like a short open tag. Recommended practice is to turn that off.