Fråga : Issuie som identifierar XML-matning, utfärdar

Hjälp…., Det Please

When I försök som efter testar " för http://jobsonlinegroup.com/feeds/mnm/careerjet_organic.asp " för matnings
I för http://jobsonlinegroup.com /feeds/mnm/careerjet_organic.asp, får efter felet - matning för
xxx

The skapas using ASP, kodifiera är nedanfört -

There är raddadata som produceras av matningen, så jag kan inte se vad orsakar hjälpen… för utfärda.....

Please > för

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:

" codeBody " class= " notpretty " ><%@LANGUAGE= " VBSCRIPT " %>< för <% Response.Buffer = true Response.ContentType = ”text/xml”, Fungera ApplyXMLFormatting (strInput) strInput = byter ut (strInput, ”&”, ”& ”) strInput = byter ut (strInput, ”'”, ”' ”) strInput = byter ut (strInput, """", ”" ”) strInput = byter ut (strInput, ”>”, ”> ”) strInput = byter ut (strInput, ”<”, ”< ”) strInput = byter ut (strInput, ”& ampere; ” ”& ”) strInput = byter ut (strInput, ”& #163; ” ”£ ”) strInput = byter ut (strInput, ”& #160; ” "") strInput = byter ut (strInput, ”könsbestämmer”, ""), strInput = byter ut (strInput, ”p> ”, "") strInput = byter ut (strInput, ”< ”, "") strInput = byter ut (strInput, ”& nbsp; ”, "") strInput = byter ut (strInput, ”& #8230; ”, "") strInput = byter ut (strInput, ”p& gt; & lt; ”, "") strInput = byter ut (strInput, ”  ”, "") strInput = byter ut (strInput, ”b& gt; ”, "") strInput = byter ut (strInput, ”tjuren”, "") ApplyXMLFormatting = strInput Avsluta fungerar %> <% Dunkla searchresults Dunkel searchresults_cmd Dunkla searchresults_numRows Fastställd searchresults_cmd = Server.CreateObject (”ADODB.Command”) searchresults_cmd.ActiveConnection = MM_recruta2_STRING searchresults_cmd.CommandText = ”VALD A.JBAID, A.JBATitle, A.JBALocation, A.JBACategory, A.JBAPayRate, A.JBADescription, A.JBAEmplymentType, A.JBAFeaturedJob, OMVÄNDEN (RÖDING (11), A.JBADatePosted, 106) SOM JBADatePosted, C.JBCLName, S.JBSURL, S.JBSURLShort, S.JBSRegion FRÅN inre dbo.JBAdvert A sammanfogar dbo.JBClient C på A.JBAClientID = inre C.JBCLID sammanfogar dbo.JBSite S på A.JBASiteID = S.JBSSiteID VAR JBSSIteOwnerID <> 3 OCH JBADatePosted >= DATEADD (D, - JBAPostFor, GETDATE ()) OCH JBAFeaturedJob <> ”y” BESTÄLLER VID JBSURL, JBAID DESC”, searchresults_cmd. Förberett = true Fastställda searchresults = searchresults_cmd. Utför searchresults_numRows = 0 %> <% Dunkel Repeat1__numRows Dunkel Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 searchresults_numRows = searchresults_numRows + Repeat1__numRows %> <% Stunder ((Repeat1__numRows-<> 0) OCH (INTE searchresults.EOF)) %> <%= (searchresults. Fields.Item (”JBSURLShort”). Värdera) %> ]] > ]] > /detail~ID~<%= (searchresults. Fields.Item (”JBAID”). Värdera) %>~<%=Server.URLEncode (searchresults. Fields.Item (”JBACategory”). Värdera) %>-jobs-<%=Server.URLEncode (removeutfcharacters (searchresults. Fields.Item (”JBATitle”). Värdera)),%>-jobs-in-<%=Server.URLEncode (searchresults. Fields.Item (”JBALocation”). Värdera) %>-<%=Server.URLEncode (searchresults. Fields.Item (”JBCLName”). Värdera) %>-jobs-in-<%=ApplyXMLFormatting (searchresults. Fields.Item (”JBSRegion”). Värdera) %>.htm]] > ]] > ]] > ]] > ]] > ]] > ]] > <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 searchresults.MoveNext () om Repeat1__numRows-ändring 10 = 0 därefter Response.Flush () avsluta om Wend %> <% searchresults. Nära () Fastställda searchresults = ingenting %> " klar "

Svar : Issuie som identifierar XML-matning, utfärdar

Förmiddag som I får en XML, sparar som producerat i FireFox.  De enda verkliga utfärdar att jag kan se är rusar….,  den är verklig saktar…,

detta attribut till dina kodifiera preferenser.  IMHO stopp using inbyggde kodifiera trollkarlar (gilla den i Dreamweaver), och lärer att räcka kodifierar… dig ska är bättre av…,

Koppla ihop av spetsar….,  hoppa inte i, och ut ur kodifiera något liknande, som, gör sidan långsam., bruk .GetRows i stället för pröva att kretsa till och med recordseten… frigör den tidigare anslutningen, rusa således - upp sidan.

Således sagt, fäst försök.

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 OCH JBADatePosted >= DATEADD (D, - JBAPostFor, GETDATE ()) ”& _, ”OCH JBAFeaturedJob <> ”y” BESTÄLLER VID JBSURL, JBAID DESC”, Fastställd objConn = Server.CreateObject (”ADODB.Connection”) uppsättning för objConn.Open MM_recruta2_STRING 'vår anslutning till DBEN Fastställda objRs = objConn.Execute (strQuery) 'utför vår query Om inte (objRs.Eof) därefter 'kontroll som ser, om det finns gångna tillbaka rekord arrRet = objRs.GetRows () 'får resultaten in i en dimensionell samling 2 Annars Response.Write (”det finns inte några resultat. ”) Avsluta om Fastställda objRs = ingenting 'rent övre rent övre för objConn.Close () ' Fastställd objConn = ingenting 'rent övre Om IsArray (arrRet) därefter 'dubbelkontroll som ser, om vi har en resultset Med svar . Skriv ("" & VbCrLf) . Skriv ("" & VbCrLf) . Skriv (” ”& VbCrLf) . Skriv (” ”& VbCrLf) För I = 0 till UBound (arrRet, 2) '2 = ror…, arrRet (kolonner, ror), 0 baserade . Skriv (” ”& VbCrLf) . Skriv (” ”& arrRet (11, I) & "" & VbCrLf) . Skriv (”, ”& VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (8, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (0, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (10, I)) &” /detail~ID~ " & arrRet (0, I) & ”~” & Server.URLEncode (arrRet (3, I)) &” - jobb ”& Server.URLEncode (removeutfcharacters (arrRet (1, I))) &” - jobb-i ”& Server.URLEncode (arrRet (2, I)) &” - ”& Server.URLEncode (arrRet (9, I)) &” - jobb-i ”& ApplyXMLFormatting (arrRet (12, I)) &” .htm " & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (9, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (2, I)) & "" & VbCrLf) . Skriv (” UK” & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (5, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (4, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (6, I)) & "" & VbCrLf) . Skriv (” ”& ApplyXMLFormatting (arrRet (3, I)) & "" & VbCrLf) . Skriv (” ”& VbCrLf) Om I-ändring 25 därefter Response.Flush Därefter: i = ogiltigt . Skriv ("" & VbCrLf) Avsluta med Radera den arrRet'frigöraren samlingen från minne Annars Response.Write (”det finns inte några resultat. ”) Avsluta om Fungera ApplyXMLFormatting (strInput) strInput = byter ut (strInput, ”&”, ”&”) strInput = byter ut (strInput, ”””, ”” ”) strInput = byter ut (strInput, """", """) strInput = byter ut (strInput, ”>”, ”>”) strInput = byter ut (strInput, ”,<>