PHP fyr needs your help
Hey ASP'er :)Sidder lige med noget jeg skal have skrevet ud i XML, meeeen det vil ikke helt fungere...
Min kode ser således ud:
<% @ Codepage = 65001 %>
<!--#include virtual="/site/includes/cnxn.asp"-->
<!--#include virtual="/site/i_func_encode.asp"-->
<!--#include virtual="/site/i_func_link.asp"-->
<%
Response.ContentType = "text/xml"
Response.Charset = "utf-8"
Dim cnxn
Set cnxn = Server.CreateObject("ADODB.Connection")
Cnxn.Open ConnectString()
%><?xml version="1.0" encoding="utf-8" standalone="yes"?>
<menu><%
Dim doc_id
doc_id = Request.QueryString("doc_id")
Dim rx
Set rx = New RegExp
rx.Global = False
rx.IgnoreCase = True
rx.Pattern = "^\d+$"
If Not rx.Test(doc_id) Then
doc_id = 0
End If
Set rx = Nothing
If doc_id > 0 Then
Dim rs
Set o = Server.CreateObject("inetdesigner.stringbuilder")
Set rs = Server.CreateObject("ADODB.recordset")
rs_sql = " SELECT id AS mappeID, 0 AS dokID, titel, placering, vis FROM mapper WHERE parent = "&Parent_ID&" AND sprogID = "&Sprog_ID&" AND vis = 1 UNION SELECT Null AS MappeID, id AS dokID, titel, placering, menu_active AS vis FROM dokumenter WHERE parent = "&Parent_ID&" AND parent_type = 'folder' AND sprogID = "&Sprog_ID&" AND menu_active = 1 AND doc_public = 1 AND ((DT_Active = 0) OR (DT_Active = 1 AND "&dateformat(ddate)&" <= DT_End AND "&dateformat(ddate)&" >= DT_Begin )) ORDER BY placering;"
rs.Open rs_sql, Cnxn, 1, 2
response.write "<menuitems>"
If Not rs.EOF Then
i = 0
Do While Not rs.EOF
response.write "<item label="&EncodeStr(rs("entity_title"))&" path=""idd"&rs(doc_id)&" picture="""" subcolor=""C3B600"">"
i = i + 1
Loop
response.write "</menuitems>"
rs.MoveNext
Set rs = Nothing
End if
end if
%>
</menu>
<%
Cnxn.Close
Set cnxn = Nothing
%>
--------------------
Jeg får fejlen:
XML-siden kan ikke vises
XML-kan ikke vises ved hjælp af typografiarket XSL. Ret fejlen, og klik derefter på knappen Opdater, eller prøv igen senere.
--------------------------------------------------------------------------------
Et strengkonstanttegn var ventet, men der blev ikke fundet et indledende anførselstegn. Der opstod en fejl under behandling...
