冰天雪地跪地求教

Question

这段话有什么错误啊？？？？？这个是不是VB的啊？
<xml id="xmlForApplication" name="xmlForApplication">
<tree>
<%
dim cnnConnection
dim rstXMLTree
dim nRegionID
dim nAreacount, nDivCount, nUserId
dim  s,x,y,z nRegionID=Request.QueryString("nRegionID")
nUserId = Request("nUserId") set cnnConnection = Server.CreateObject("ADODB.Connection")
set rstXMLTree = Server.CreateObject("ADODB.Recordset") cnnConnection.Open Application("PCWEB_ConnectionString")
if isnumeric(nRegionID) then
rstXMLTree.Open "exec sprocGetXMLUserAreaTree " & CINT(nUserId) ,cnnConnection,adOpenStatic,adLockReadOnly
end if
if not rstXMLTree.EOF then
rstXMLTree.MoveFirst 
z=""
Do Until rstXMLTree.EOF
x = rstXMLTree.Fields(0).Value
y = Replace(x, Chr(22),"")
y = Replace(y, "?", "u")
z = z & y
rstXMLTree.MoveNext
Loop
Response.Write z
end if  rstXMLTree.Close 
cnnConnection.Close 
%>
</tree>
</xml>

Answer 1

汗，这个是asp的吧，还是ADO的机制，最关键的是还是用VB写的，我晕，帮你顶啦！

Answer 2

PCWEB_ConnectionString  数据库连接语句在哪里呢？