Pytanie : Issuie Identyfikowanie XML karma zagadnienie

Pomoc…. Please

When I próbować the następujący karma http://jobsonlinegroup.com /feeds/mnm/careerjet_organic.asp
I dostawać the następujący błąd -
xxx

The karma tworzyć using ASP, the kod być następujący -

There być mnóstwo dane produkować the karma, więc I móc próbować powodować the emisyjny .....

Please pomoc… 
(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 = true
   Response.ContentType = "tekst/xml"
   
Funkcja ApplyXMLFormatting (strInput)
  strInput = Zamieniać (strInput, "&", "& ")
  strInput = Zamieniać (strInput, "'", "' ")
  strInput = Zamieniać (strInput, """", "" ")
  strInput = Zamieniać (strInput, ">", "> ")
  strInput = Zamieniać (strInput, "<", "< ")
  strInput = Zamieniać (strInput, "& amp; ", "& ")
  strInput = Zamieniać (strInput, "& #163; ", "£ ")
  strInput = Zamieniać (strInput, "& #160; ", "")
  strInput = Zamieniać (strInput, "płeć", "")
  strInput = Zamieniać (strInput, "p> ", "")
  strInput = Zamieniać (strInput, "< ", "")
  strInput = Zamieniać (strInput, "& nbsp; ", "")
  strInput = Zamieniać (strInput, "& #8230; ", "")
  strInput = Zamieniać (strInput, "p& gt; & lt; ", "")
  strInput = Zamieniać (strInput, "  ", "")  
  strInput = Zamieniać (strInput, "b& gt; ", "")  
  strInput = Zamieniać (strInput, "byk", "")
  ApplyXMLFormatting = strInput
Końcówka Funkcja   
    %>


<%
Ciemnawy searchresults
Ciemnawy searchresults_cmd
Ciemnawy searchresults_numRows

Ustalony searchresults_cmd = Server.CreateObject ("ADODB.Command")
searchresults_cmd.ActiveConnection = MM_recruta2_STRING
searchresults_cmd.CommandText = "WYBRANY A.JBAID, A.JBATitle, A.JBALocation, A.JBACategory, A.JBAPayRate, A.JBADescription, A.JBAEmplymentType, A.JBAFeaturedJob, KONWERTYTA (PRZYPALAĆ (11), A.JBADatePosted, 106) JAKO JBADatePosted, C.JBCLName, S.JBSURL, S.JBSURLShort, S.JBSRegion OD dbo.JBAdvert A wewnętrzny łączyć dbo.JBClient C na A.JBAClientID = C.JBCLID wewnętrzny łączyć dbo.JBSite S na A.JBASiteID = S.JBSSiteID DOKĄD JBSSIteOwnerID <> 3 I JBADatePosted >= DATEADD (D, - JBAPostFor, GETDATE ()) I JBAFeaturedJob <> "y" ROZKAZ JBSURL, JBAID DESC" 
searchresults_cmd. Przygotowany = true

Ustawiać searchresults = searchresults_cmd. Wykonywać
searchresults_numRows = (0)
%>

   
   

<%
Ciemnawy Repeat1__numRows
Ciemnawy Repeat1__index

Repeat1__numRows = -1
Repeat1__index = (0)
searchresults_numRows = searchresults_numRows + Repeat1__numRows
%>
<% 
Podczas Gdy ((Repeat1__numRows <> (0)) I (NIE searchresults.EOF)) 
%>

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

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

  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  searchresults.MoveNext ()
   jeżeli Repeat1__numRows mod 10 = (0) wtedy 
      Response.Flush () 
 kończyć jeżeli
Wend
%>

<%
searchresults. Zamykać ()
Ustawiać searchresults = Nic
%>

Odpowiedź : Issuie Identyfikowanie XML karma zagadnienie

I dostawać XML kartoteka produkować w Firefox.  The jedyny real zagadnienie który I móc być prędkość….  ono być istny zwalniać…

preferencja atrybut twój cyfrowanie preferencja.  IMHO, przerwa using obmurowany cyfrowanie czarownik (jak the jeden w Dreamweaver), i uczyć się kod… ty być sytuowany…

Para porada….  skakać do i z kod jakby strona, robić the strona wolny., Use .GetRows zamiast przez the recordset… uwalniać the podłączeniowy wczesny, tak przyśpieszać - w górę the strona.

Tak mówić, próbować the dołączać.

(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 I JBADatePosted >= DATEADD (D, - JBAPostFor, GETDATE ()) "& _
		"I JBAFeaturedJob <> "y" ROZKAZ JBSURL, JBAID DESC"
Ustalony objConn = Server.CreateObject ("ADODB.Connection")
	objConn.Open MM_recruta2_STRING 'Set nasz związek the DB
		Ustalony objRs = objConn.Execute (strQuery) 'Wykonywać nasz zapytanie
			Jeśli nie (objRs.Eof) Wtedy 'Sprawdzać jeżeli tam  być rejestr wracać
				arrRet = objRs.GetRows () 'Dostawać the rezultat w 2 2 szyk
			Inny
				Response.Write ("Tam  być nie results.")
			Kończyć Jeżeli
		Ustawiać objRs = Nic 'Czyścić Nic
	objConn.Close () 'Czyścić Czyścić
Ustalony objConn = Nic 'Czyścić Nic
Jeżeli IsArray (arrRet) Wtedy 'Kopia czek jeżeli my mieć resultset
	Z Odpowiedź
		. Pisać ("" & VbCrLf)
		. Pisać ("" & VbCrLf)
		. Pisać ("	 "& VbCrLf)
		. Pisać ("	"& VbCrLf)
		Dla i = (0) UBound (arrRet, 2) '2 = Wiosłować…  arrRet (kolumna, rząd) (0) opierać się
			. Pisać ("		"& VbCrLf)
			. Pisać ("			"& arrRet (11, i) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet ((1), i)) &" - "& ApplyXMLFormatting (arrRet (4, i)) &" - "& ApplyXMLFormatting (arrRet (2, i)) &""& VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (8, i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet ((0), i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (10, i)) &" /detail~ID~ " & arrRet ((0), i) & "~" & Server.URLEncode (arrRet (3, i)) &" - jobs- "& Server.URLEncode (removeutfcharacters (arrRet ((1), i))) &" - praca-w "& Server.URLEncode (arrRet (2, i)) &" - "& Server.URLEncode (arrRet (9, i)) &" - praca-w "& ApplyXMLFormatting (arrRet (12, i)) &" .htm " & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (9, i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (2, i)) & "" & VbCrLf)
			. Pisać ("			UK" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (5, i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (4, i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (6, i)) & "" & VbCrLf)
			. Pisać ("			"& ApplyXMLFormatting (arrRet (3, i)) & "" & VbCrLf)
			. Pisać ("		"& VbCrLf)
			Jeżeli i Mod 25 Wtedy Response.Flush
		Następnie: i = Nieobowiązujący
		. Pisać ("" & VbCrLf)
	Kończyć Z
	Wymazywać arrRet 'Uwolnienie the szyk od pamięć
Inny
	Response.Write ("Tam  być nie results.")
Kończyć Jeżeli
Funkcja ApplyXMLFormatting (strInput)
	strInput = Zamieniać (strInput, "&", "&")
	strInput = Zamieniać (strInput, """, "" ")
	strInput = Zamieniać (strInput, """", """)
	strInput = Zamieniać (strInput, ">", ">")
	strInput = Zamieniać (strInput, "<>
Inne rozwiązania  
 
programming4us programming4us