Vraag : Issuie die XML voerkwestie identificeren

Hulp…. Please

When die ik heb geprobeerd testend het volgende voer http://jobsonlinegroup.com /feeds/mnm/careerjet_organic.asp
I krijgt de volgende fout - het voer
xxx

The gecre�ërd gebruikend ASPIS, is de code hieronder -

There is heel wat die gegevens door het voer worden geproduceerd, zodat kan ik niet zien wat de kwestie .....

Please hulp… veroorzaakt
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:

<%@LANGUAGE= " VBSCRIPT " %>
<% Response.Buffer = waar
   Response.ContentType = „tekst/xml“
   
Functie ApplyXMLFormatting (strInput)
  strInput = vervang (strInput, „&“, „& “)
  strInput = vervang (strInput, „'“, „' “)
  strInput = vervang (strInput, """", „" “)
  strInput = vervang (strInput, „>“, „> “)
  strInput = vervang (strInput, „<“, „< “)
  strInput = vervang (strInput, „& ampère; “, „& “)
  strInput = vervang (strInput, „& #163; “, „£ “)
  strInput = vervang (strInput, „& #160; “, "")
  strInput = vervang (strInput, „geslacht“, "")
  strInput = vervang (strInput, „p> “, "")
  strInput = vervang (strInput, „< “, "")
  strInput = vervang (strInput, „& nbsp; “, "")
  strInput = vervang (strInput, „& #8230; “, "")
  strInput = vervang (strInput, „p& GT; & Lt.; “, "")
  strInput = vervang (strInput, „  “, "")  
  strInput = vervang (strInput, „b& GT; “, "")  
  strInput = vervang (strInput, „stier“, "")
  ApplyXMLFormatting = strInput
De Functie van het eind   
    %>


<%
Schemerige searchresults
Schemerige searchresults_cmd
Schemerige searchresults_numRows

Reeks searchresults_cmd = Server.CreateObject („ADODB.Command“)
searchresults_cmd.ActiveConnection = MM_recruta2_STRING
searchresults_cmd.CommandText = „UITGEZOCHTE A.JBAID, A.JBATitle, A.JBALocation, A.JBACategory, A.JBAPayRate, A.JBADescription, A.JBAEmplymentType, A.JBAFeaturedJob ZET om (KLUSJE (11), A.JBADatePosted, 106) AANGEZIEN JBADatePosted, C.JBCLName, S.JBSURL, S.JBSURLShort, S.JBSRegion VAN dbo.JBAdvert A binnen zich bij dbo.JBClient C op A.JBAClientID = C.JBCLID binnen zich aansluit bij dbo.JBSite S op A.JBASiteID = S.JBSSiteID WAAR JBSSIteOwnerID <> 3 EN JBADatePosted >= DATEADD aansluit (D, - JBAPostFor, GETDATE ()) EN JBAFeaturedJob <> „Y“ ORDE DOOR JBSURL, JBAID DESC“ 
searchresults_cmd. Voorbereidingen getroffen = waar

Reeks searchresults = searchresults_cmd. Voer uit
searchresults_numRows = 0
%>

   
   

<%
Schemerige Repeat1__numRows
Schemerige Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
searchresults_numRows = searchresults_numRows + Repeat1__numRows
%>
<% 
Terwijl ((Repeat1__numRows <> 0) EN (NIET searchresults.EOF)) 
%>

<%= (searchresults. Fields.Item („JBSURLShort“). Waarde) %>
<! [CDATA [<%=ApplyXMLFormatting (searchresults. Fields.Item („JBATitle“). Waarde) %> - <%=ApplyXMLFormatting (searchresults. Fields.Item („JBAPayRate“). Waarde) %> - <%=ApplyXMLFormatting (searchresults. Fields.Item („JBALocation“). Waarde) %>]] >
]] >
]] >
/detail~ID~<%= (searchresults. Fields.Item („JBAID“). Waarde) %>~<%=Server.URLEncode (searchresults. Fields.Item („JBACategory“). Waarde) %>-jobs-<%=Server.URLEncode (removeutfcharacters (searchresults. Fields.Item („JBATitle“). Waarde))%>-jobs-in-<%=Server.URLEncode (searchresults. Fields.Item („JBALocation“). Waarde) %>-<%=Server.URLEncode (searchresults. Fields.Item („JBCLName“). Waarde) %>-jobs-in-<%=ApplyXMLFormatting (searchresults. Fields.Item („JBSRegion“). Waarde) %>.htm]] >
]] >
]] >

]] >
]] >
]] >
]] >

  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  searchresults.MoveNext ()
   als Repeat1__numRows mod. 10 = 0 toen 
      Response.Flush () 
 beëindig als
Wend
%>

<%
searchresults. Sluit ()
Plaats searchresults = niets
%>

Antwoord : Issuie die XML voerkwestie identificeren

Ik krijg een Xml- dossier zoals die in FireFox wordt geproduceerd.  De enige echte kwestie die ik kan zien is snelheid….  het is echte langzaam…

dit schrijft aan uw codagevoorkeur toe.  IMHO, houdt op gebruikend ingebouwde codagetovenaars (als in Dreamweaver), en leert om code te overhandigen… u beter zal zijn van…

Paar van uiteinden….  spring niet in en uit code als dat, de pagina langzaam maken., .GetRows gebruiken in plaats van het proberen van aan lijn door de recordset… versies de verbinding vroeger, waarbij de pagina wordt versneld.

Aldus gezegd, probeer in bijlage.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:



<> 3 EN JBADatePosted >= DATEADD (D, - JBAPostFor, GETDATE ()) „& _
		„EN JBAFeaturedJob <> „Y“ ORDE DOOR JBSURL, JBAID DESC“
Reeks objConn = Server.CreateObject („ADODB.Connection“)
	objConn.Open MM_recruta2_STRING 'plaatsen onze verbinding aan OB
		De reeks objRs = objConn.Execute (strQuery) 'voert onze vraag uit
			Als niet (objRs.Eof) Dan 'controleer om te zien of zijn er teruggekeerde verslagen
				arrRet = krijgen objRs.GetRows () 'de resultaten in een dimensionale serie 2
			Anders
				Response.Write („Er zijn geen resultaten. “)
			Eind als
		Reeks objRs = niets 'Schone Omhooggaand
	objConn.Close () 'maak schoon
Plaats objConn = niets 'Schone Omhooggaand
Als IsArray (arrRet) Dan 'Dubbele controle om te zien of hebben wij een resultset
	Met Reactie
		. Schrijf ("" & VbCrLf)
		. Schrijf ("" & VbCrLf)
		. Schrijf („	 „& VbCrLf)
		. Schrijf („	„& VbCrLf)
		Voor I = 0 aan UBound (arrRet, 2) '2 = Rijen…  arrRet (kolommen, rijen) gebaseerde 0
			. Schrijf („		„& VbCrLf)
			. Schrijf („			„& arrRet (11, I) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (1, I)) &“ - „& ApplyXMLFormatting (arrRet (4, I)) &“ - „& ApplyXMLFormatting (arrRet (2, I)) &“„& VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (8, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (0, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (10, I)) &“ /detail~ID~ " & arrRet (0, I) & „~“ & Server.URLEncode (arrRet (3, I)) &“ - banen „& Server.URLEncode (removeutfcharacters (arrRet (1, I))) &“ - baan-in „& Server.URLEncode (arrRet (2, I)) &“ - „& Server.URLEncode (arrRet (9, I)) &“ - baan-in „& ApplyXMLFormatting (arrRet (12, I)) &“ .htm " & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (9, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (2, I)) & "" & VbCrLf)
			. Schrijf (het „			UK“ & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (5, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (4, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (6, I)) & "" & VbCrLf)
			. Schrijf („			„& ApplyXMLFormatting (arrRet (3, I)) & "" & VbCrLf)
			. Schrijf („		„& VbCrLf)
			Als Mod. 25 toen Response.Flush van I
		Daarna: i = verklaart nietig
		. Schrijf ("" & VbCrLf)
	Eind met
	Wis arrRet 'Versie de serie van geheugen
Anders
	Response.Write („Er zijn geen resultaten. “)
Eind als
Functie ApplyXMLFormatting (strInput)
	strInput = vervang (strInput, „&“, „&“)
	strInput = vervang (strInput, „„“, „“ „)
	strInput = vervang (strInput, """", """)
	strInput = vervang (strInput, „>“, „>“)
	strInput = vervang (strInput, „<>
Andere oplossingen  
 
programming4us programming4us