[ASP] Waarom werkt het een wel en het ander niet?

Pagina: 1
Acties:

  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Dit werkt niet:

<%@ language="vbscript" %>
<html>
<body>
<%
set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load("http://www.tweakers.net/turbotracker.dsp")

set x=xmlDoc.getElementsByTagName("tijd")
set y=xmlDoc.getElementsByTagName("titel")
%>
<marquee scrollamount=3>
<%
for i = 1 to x.length
response.write(". ")
response.write(x.item(i-1).text)
response.write(" ")
response.write(y.item(i-1).text)
response.write(" ")
next
%>
</marquee>
</body>
</html>

En dit werkt wel:

<html>
<body>
<script type="text/vbscript">
set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load("http://www.tweakers.net/turbotracker.dsp")

set x=xmlDoc.getElementsByTagName("tijd")
set y=xmlDoc.getElementsByTagName("titel")
</script>
<marquee scrollamount=3>
<script type="text/vbscript">
for i = 1 to x.length
document.write(". ")
document.write(x.item(i-1).text)
document.write(" ")
document.write(y.item(i-1).text)
document.write(" ")
next
</script>
</marquee>
</body>
</html>

  • chem
  • Registratie: Oktober 2000
  • Laatst online: 27-08 13:53

chem

Reist de wereld rond

zoek de verschillen en je hebt je oplossing?

Klaar voor een nieuwe uitdaging.


  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Op maandag 20 augustus 2001 15:20 schreef chem het volgende:
zoek de verschillen en je hebt je oplossing?
Het verschil zit hem er in dat heet een serverside is en het ander clientside. Maar waarom serverside het nou niet doet?

Verwijderd

wat voor error geeft ie?

en heb je wel ASP ondersteuning op je server?

  • Basszje
  • Registratie: Augustus 2000
  • Laatst online: 17:07

Basszje

Reisvaap!]

Zet in elk geval option explicit aan, scheelt een hoop narigheid.

Beware of listening to the imposter; you are undone if you once forget that the fruits of the earth belong to us all, and the earth itself to nobody.


Verwijderd

Het verschil zit hem er in dat heet een serverside is en het ander clientside. Maar waarom serverside het nou niet doet?
Het kan zijn dat je vanaf je server het internet niet op kan en dus ook niet bij http://www.tweakers.net/turbotracker.dsp kan.

Verwijderd

Het heeft iets met die dtd te maken want als ik die file lokaal knikker en <!DOCTYPE TurboTracker SYSTEM="http://www.tweakers.net/ext/turbotracker.dtd"> er uit sloop werkt de server side versie wel. maar wat z'n probleem nou psies is?! en waarom ie daar client side geen last van heeft!? beats me..

  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Mijn serv er ondersteunt asp ja, het gekke is dat ik alleen problemen heb met die turbotracker. Ik gebruik nu een code van yoda. Deze werkte eerst niet maar nu opeens wel, echt raar en soms doet ie het ook weer niet. Zolas nu even een pagerefresh en er staat weer:
No data is available for the requested resource

Als ik dan opnieuw inlog op m'n website dan doet ie het weer wel. erg raar allemaal.

  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Ik zit nog steeds met het turbotracker probleem. Het is echt heel erg irritant. Ik dacht ik kom tot de volgende oplossing: als er een parse error is dan moet ie een client side script uitvoeren, dat werkt maar is natuurlijk niet wat ik wil, zie nu dat het op een andere pc niet werkt omdat die natuurlijk dat client-side script niet kunnen uitvoeren. Ik wil gewoon de serverside versie werkende krijgen. Maar geen een asp script werkt. Terwijl het bij anderen wel werkt. Ik gebruik nu het volgende.

tnews.asp:
--------------------------------------------------
<%
dim objXml
dim objList
dim objChild
dim iItem
dim titel
dim links
dim tijd

set objXml = server.CreateObject("microsoft.xmldom")

objXml.async = false
objXml.load "http://www.tweakers.net/turbotracker.dsp"
if objXml.parseerror.errorcode <> 0 then
Server.Execute "/Development/test.asp"
else
Response.Write "<marquee scrollamount=3>"
set objList = objXml.GetElementsByTagName("nieuwsposting")
for iItem = 0 to 14
for each objChild in objList.item(iItem).childnodes
Select Case objChild.tagname
Case "titel"
titel = objChild.text
Case "id"
links = objChild.text
Case "tijd"
tijd = objChild.text
End Select
next
response.write (tijd & " ")
response.write "<a href=""http://www.tweakers.net/nieuws/" & links &""" target='_new' class='l3'>" & titel & " </a>"
response.Write "| "
next
Response.Write "</marquee>"
end if
set objXml = nothing
%>

en test.asp
--------------------------------------------------
<script type="text/vbscript">
set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load("http://www.tweakers.net/turbotracker.dsp")

set x=xmlDoc.getElementsByTagName("tijd")
set y=xmlDoc.getElementsByTagName("titel")
set z=xmlDoc.getElementsByTagName("id")
</script>
<marquee scrollamount=3>
<script type="text/vbscript">
for i = 1 to x.length
document.write(". ")
document.write(x.item(i-1).text)
document.write(" ")
document.write("<a href='http://www.tweakers.net/nieuws/")
document.write(z.item(i-1).text)
document.write("' target='_new' class='l2'>")
document.write(y.item(i-1).text)
document.write("</a>")
document.write(" ")
next
</script>
</marquee>

Iemand nog een idee want ik wordt helemaal gek hier |:(

  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Niemand :(

Verwijderd

eerst dit eens lezen en dan pas met de code aan de gang.
code:
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
<%
dim objXml
dim objList
dim objChild
dim iItem
dim titel
dim links
dim tijd


Set objxml = Server.CreateObject("MSXML2.DOMDocument.3.0")
objXml.setProperty "ServerHTTPRequest", true
objXml.async=False
objXml.load "http://www.tweakers.net/turbotracker.dsp"

if objXml.parseerror.errorcode <> 0 then
  response.write  objXml.parseerror.reason
else

response.write "<marquee scrollamount=3>" 

set objList = objXml.GetElementsByTagName("nieuwsposting")
for iItem = 0 to 14
for each objChild in objList.item(iItem).childnodes
Select Case objChild.tagname
Case "titel"
titel = objChild.text
Case "id"
links = objChild.text
Case "tijd"
tijd = objChild.text
End Select
next
response.write (tijd & " ")
response.write "<a href=""http://www.tweakers.net/nieuws/" & links &""" target='_new' class='l3'>" & titel & " </a>"
response.Write "| "
next
response.write "</marquee>" 
end if

set objXml = nothing
%>

Je moet wel versie 3.0 of hoger van de xml parser geinstaleerd hebben..

  • porn*
  • Registratie: Januari 2001
  • Laatst online: 22-09 13:24

porn*

...take on the world!

Misschien moet je instellen dat de pagina eerst in zijn totaal op de server uitgevoerd moet worden? Precieze commando weet ik zo niet meer maar iets van ....buffer=true/false bovenaan zetten.

Bnet pindle#2913


  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Op woensdag 22 augustus 2001 16:44 schreef Yarvieh het volgende:
eerst dit eens lezen en dan pas met de code aan de gang.
code:
1

Je moet wel versie 3.0 of hoger van de xml parser geinstaleerd hebben..
Thanks hij doet het: http://paragonxls.xs4all.nl

  • paragon
  • Registratie: April 2000
  • Laatst online: 10-09 05:50
Hij werkt de laatste tijd gewoon prima. Maar sinds vandaag krijg ik de volgende parse error: Element content is invalid according to the DTD/Schema. Expecting: #PCDATA

DIt zal waarschijnlijk aan het DTD liggen, maar is die opzettelijk veranderd en zo ja wat?
Pagina: 1