Nu har jeg fået et svar fra administratoren, og han siger at fejlen ikke ligger hos dem, så der er måske alligevel noget om at fejlen er i min kode selvom den virker lokalt.
Her er hele min kode, dog uden den korekte adresse, men det er stadig væk på en anden server, så problemestillingen er den samme:
<%
set objXML = server.createobject(\"msxml2.domdocument\")
objXML.async = false
objXML.setproperty \"ServerHTTPRequest\", true
objXML.load(\"
http://www.qcom.dk/tue/top10.xml\")
if objXML.parseerror.errorcode <> 0 Then
response.write \"Der er noget galt!\"
end if
set xmlElement = objXML.documentElement.childNodes
html = html & \"<html>\" &_
\"<head>\" &_
\"<title>Top 10</title>\" &_
\"</head>\" &_
\"<body>\" &_
\"<font face=\"\"verdana\"\">\" &_
\"<table border=\"\"0\"\">\" &_
\"<tr>\" &_
\"<td></td>\" &_
\"<td colspan=\"\"2\"\"><font size=\"\"1\"\"><b>Vis top 10 for (vælg)</b></font></td>\" &_
\"<td>\"&_
\"<select name=\"\"type\"\" onChange=\"\"self.location.href=this.options[selectedIndex].value;\"\">\" &_
\"<option value=\"\"top10.asp?id=0&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"id\") = \"0\" then
html = html & \" selected\"
end if
html = html & \">Billån</option>\" &_
\"<option value=\"\"top10.asp?id=1&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"id\") = \"1\" then
html = html & \" selected\"
end if
html = html & \">Boliglån</option>\" &_
\"<option value=\"\"top10.asp?id=2&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"id\") = \"2\" then
html = html & \" selected\"
end if
html = html & \">Budgetkredit</option>\" &_
\"<option value=\"\"top10.asp?id=3&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"id\") = \"3\" then
html = html & \" selected\"
end if
html = html & \">Forbrugslån</option>\" &_
\"<option value=\"\"top10.asp?id=4&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"id\") = \"4\" then
html = html & \" selected\"
end if
html = html & \">Lønkassekredit</option>\" &_
\"</select>\" &_
\"</td>\" &_
\"</tr>\" &_
\"<tr>\" &_
\"<td></td>\" &_
\"<td colspan=\"\"2\"\"><font size=\"\"1\"\"><b>Renteinterval (vælg)</b></font></td>\" &_
\"<td>\"&_
\"<select name=\"\"type\"\" onChange=\"\"self.location.href=this.options[selectedIndex].value;\"\">\" &_
\"<option value=\"\"top10.asp?id=\" & request(\"id\") & \"&type=\" & request(\"type\") & \"&rente=0&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"rente\") = \"0\" then
html = html & \" selected\"
end if
html = html & \">Bankens laveste rente</option>\" &_
\"<option value=\"\"top10.asp?id=\" & request(\"id\") & \"&type=\" & request(\"type\") & \"&rente=1&skat=\" & request(\"skat\") & \"\"\"\"
if request(\"rente\") = \"1\" then
html = html & \" selected\"
end if
html = html & \">Bankens højeste rente</option>\" &_
\"</select>\" &_
\"</td>\" &_
\"</tr>\" &_
\"<tr>\" &_
\"<td></td>\" &_
\"<td colspan=\"\"2\"\"><font size=\"\"1\"\"><b>Skat (vælg)</b></font></td>\" &_
\"<td>\"&_
\"<select name=\"\"type\"\" onChange=\"\"self.location.href=this.options[selectedIndex].value;\"\">\" &_
\"<option value=\"\"top10.asp?id=\" & request(\"id\") & \"&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=0\"\"\"
if request(\"skat\") = \"0\" then
html = html & \" selected\"
end if
html = html & \">Før skat</option>\" &_
\"<option value=\"\"top10.asp?id=\" & request(\"id\") & \"&type=\" & request(\"type\") & \"&rente=\" & request(\"rente\") & \"&skat=1\"\"\"
if request(\"skat\") = \"1\" then
html = html & \" selected\"
end if
html = html & \">Efter skat</option>\" &_
\"</select>\" &_
\"</td>\" &_
\"</tr>\" &_
\"<tr>\" &_
\"<td colspan=\"\"4\"\" height=\"\"20\"\"></td>\" &_
\"</tr>\" &_
\"<tr>\" &_
\"<td width=\"\"25\"\"></td>\" &_
\"<td width=\"\"250\"\"><font size=\"\"1\"\"><b>Bank</b></font></td>\" &_
\"<td width=\"\"150\"\"><font size=\"\"1\"\"><b>Rentesats</b></font></td>\" &_
\"<td width=\"\"150\"\"><font size=\"\"1\"\"><b>\"
if request(\"skat\") = \"1\" then
html = html & \"ÅOP e. skat</b></font></td>\"
elseif request(\"skat\") = \"0\" then
html = html & \"ÅOP f. skat</b></font></td>\"
end if
html = html & \"</tr>\"
for i = 0 to int(xmlElement.length) - 1
if xmlElement.item(i).attributes.item(0).text = request(\"id\") then
if xmlElement.item(i).attributes.item(1).text = request(\"type\") then
if xmlElement.item(i).attributes.item(2).text = request(\"rente\") then
if xmlElement.item(i).attributes.item(3).text = request(\"skat\") then
for h = 1 to 10
tmpChildNumber = 2 + h
html = html & \"<tr>\" &_
\"<td align=\"\"right\"\"><font size=\"\"1\"\">\" & xmlElement.item(i).childNodes.item(tmpChildNumber).attributes.item(0).text & \".</font></td>\" &_
\"<td><font size=\"\"1\"\">\"
if xmlElement.item(i).childNodes.item(tmpChildNumber).childNodes.item(0).text <> \"\" then
html = html & \"<a href=\"\"\" & xmlElement.item(i).childNodes.item(tmpChildNumber).childNodes.item(0).text & \"\"\" target=\"\"_blank\"\">\"
endTag = \"</a>\"
end if
html = html & xmlElement.item(i).childNodes.item(tmpChildNumber).childNodes.item(1).text & endTag & \"</font></td>\" &_
\"<td><font size=\"\"1\"\">\" & xmlElement.item(i).childNodes.item(tmpChildNumber).childNodes.item(3).text & \"</font></td>\" &_
\"<td><font size=\"\"1\"\">\" & xmlElement.item(i).childNodes.item(tmpChildNumber).childNodes.item(4).text & \"</font></td>\" &_
\"</tr>\"
next
end if
end if
end if
end if
next
html = html & \"</table>\" &_
\"</font>\" &_
\"</body>\" &_
\"</html>\"
response.write html
%>
Ny bruger
Nybegynder
Opret
Preview
