---
title: "Åtkomst nekad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/72116-åtkomst-nekad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Skarre"
published: "2003-03-25T13:22:50.000Z"
updated: "2003-03-25T23:40:48.000Z"
replies: 19
views: 665
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/72116-åtkomst-nekad"
---

# Åtkomst nekad

## #1 — Skarre, 2003-03-25T13:22Z

Scriptet har inga problem med att skapa filen, men när den ska öppnas för att skriva i den så protesterar servern:

> Feltyp:
> Körningsfel i Microsoft VBScript (0x800A0046)
> Åtkomst nekad.
> /ssk/ssk.asp, line 18

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set xmlfile = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)

[b]testfile = fso.OpenTextFile(Server.MapPath("ssk.xml"),2)[/b]
```

Permalänk: https://www.webforum.nu/p/72116

## #2 — OveRRidE, 2003-03-25T13:37Z

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set xmlfile = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)

[b]set[/b] testfile = fso.OpenTextFile(Server.MapPath("ssk.xml"),2)
```

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthopentextfile.asp>

Permalänk: https://www.webforum.nu/p/990424

## #3 — OveRRidE, 2003-03-25T13:39Z

Nej, vänta lite nu. 

Du har ju redan 'öppnat' filen på raden ovan, när du skapade den. Kör den raden som en sub istället (utan paranteser) och kör raden under som jag skrev den, så skall det fungera.

Alltså:

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
[b]fso.CreateTextFile Server.MapPath("ssk.xml"), True

set testfile = fso.OpenTextFile(Server.MapPath("ssk.xml"),2)[/b]
```

RED. Alternativt kan du ju faktiskt skippa öppningen helt (tror jag):

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
[b]set testfile = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)[/b]
```

Permalänk: https://www.webforum.nu/p/990425

## #4 — Skarre, 2003-03-25T14:06Z

Tackar så mycket! Men nu klagar den på nästa rad, d.v.s. där jag ska skriva xml-strängen till textfilen. Går jag verkligen rätt tillväga? Finns det ett enklare sätt att kopiera en XML-fil från en server till en annan?

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sskxml = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)
[b]sskxml.Write(xmlstring)[/b]
```

> Feltyp:
> Körningsfel i Microsoft VBScript (0x800A0005)
> Ogiltigt proceduranrop eller argument.
> /ssk/ssk.asp, line 17

Permalänk: https://www.webforum.nu/p/990442

## #5 — OveRRidE, 2003-03-25T14:14Z

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sskxml = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)
[b]sskxml.Write xmlstring[/b]
```

Kanske?

Permalänk: https://www.webforum.nu/p/990452

## #6 — Skarre, 2003-03-25T14:21Z

Nej, jag får fortfarande samma fel. Jag försökte splitta xml-strängen och lägga in xml:en rad för rad med WriteLine, men det är samma fel där (Ogiltigt proceduranrop eller argument).

Permalänk: https://www.webforum.nu/p/990455

## #7 — Sebbe, 2003-03-25T14:28Z

```
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
xmlstring = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sskxml = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)
[b]sskxml.Close
Set sskxml = Nothing

Set sskxml = fso.OpenTextFile(Server.MapPath("ssk.xml"), 8)[/b]
sskxml.WriteLine(xmlstring)
```

Kanske?

Permalänk: https://www.webforum.nu/p/990460

## #8 — Skarre, 2003-03-25T14:38Z

Samma fel. :)

Permalänk: https://www.webforum.nu/p/990464

## #9 — Sebbe, 2003-03-25T14:39Z

Har redigerat massa i min kod... Testa igen ;) (Om du nu inte testade med det som det är nu förståss)

Permalänk: https://www.webforum.nu/p/990465

## #10 — Skarre, 2003-03-25T14:52Z

Här är koden jag försöker med nu. Det märkliga är att det fungerar att köra

sskxml.WriteLine arrXML(0)
sskxml.WriteLine arrXML(1)
sskxml.WriteLine arrXML(2)

... o.s.v. men inte att loopa igenom som jag gör nedan.

```
<%
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www.url.se/nyheter.xml", False
objXMLHTTP.Send
arrXML = Split(objXMLHTTP.ResponseText,vbCrLF)
Set objXMLHTTP = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sskxml = fso.CreateTextFile(Server.MapPath("ssk.xml"), True)
Set sskxml = Nothing

Set sskxml = fso.OpenTextFile(Server.MapPath("ssk.xml"), 8)

For i = 0 To UBound(arrXML)
	sskxml.WriteLine arrXML(i)
Next

sskxml.Close
Set sskxml = Nothing
Set fso = Nothing
```

Permalänk: https://www.webforum.nu/p/990477

## #11 — Sebbe, 2003-03-25T14:58Z

Får du samma felmeddelande som förrut?

Permalänk: https://www.webforum.nu/p/990493

## #12 — Skarre, 2003-03-25T17:59Z

Jepp. Nu testade jag precis här hemma och nu skapas xml-filen och den innehåller de fyra första raderna av original-xml-filen, men sedan tar det stopp:

> Microsoft VBScript runtime error '800a0005' 
> 
> Invalid procedure call or argument

Kan det finnas tecken i XML-koden som pajar skriptet?

Permalänk: https://www.webforum.nu/p/990650

## #13 — Skarre, 2003-03-25T18:24Z

Uppdatering: Det är endast vissa rader från xml-filen som genererar felet och jag misstänker att dessa rader innehåller något tecken som inte gillas av skriptet. Vad som är märkligt är att XML:en jag får inte alls ser ut som den i originalfilen.

Så här ser de fem första raderna i originalfilen ut:

```
<?xml version="1.0" encoding="ISO-8859-1"?>
<SSKNYHETER>
  <NYHET>
    <DATUM>2003-03-24</DATUM>
    <RUBRIK>[b]SSK söker publikvärdar![/b]</RUBRIK>
```

Och så här ser XML:en som jag får från skriptet ut:

```
<?xml version="1.0" encoding="ISO-8859-1"?>
<SSKNYHETER>
  <NYHET>
    <DATUM>2003-03-24</DATUM>
    <RUBRIK>[b]SSK s? publikv?ar![/b]</RUBRIK>
```

Det verkar som om det är åäö som spökar.

Permalänk: https://www.webforum.nu/p/990676

## #14 — @nders, 2003-03-25T18:29Z

Ett känt problem, som fick mig att slänga iväg en snabb sökning. Fann [detta](http://www.webforum.nu/showthread.php?s=&postid=361363#post361363).

Mvh

Permalänk: https://www.webforum.nu/p/990678

## #15 — Skarre, 2003-03-25T22:13Z

Kör jag min sträng genom funktionen som finns i det inlägget blir resultatet "\<" och ingenting mer. Det kan ju omöjligen vara så här omständligt att spara ner en xml-fil från nätet med ASP. Kan någon förklara hur man normalt skulle göra så skulle jag uppskatta det eftersom jag ät total novis vad gäller XML i ASP. Det ligger alltså en xml-fil på en adress (exempelvis <http://www.url.com/exempel.xml>) som jag vill spara ner på min server med ASP. Hur gör jag? :)

Permalänk: https://www.webforum.nu/p/990860

## #16 — solbulle, 2003-03-25T22:32Z

Var kallar du på den funktionen?

Samt har du en riktig länk till en fil man kan testa på?

Permalänk: https://www.webforum.nu/p/990873

## #17 — niko, 2003-03-25T23:04Z

Varför gå över ån efter vatten?

```
<%
Set myXMLDoc = CreateObject("MSXML2.DOMDocument")
myXMLDoc.Load "http://www.url.se/nyheter.xml"
If myXMLDoc.parseError.errorCode = 0 Then
	Application.Lock
	myXMLDoc.save Server.MapPath("ssk.xml")
	Application.UnLock
else
	Response.write myXMLDoc.parseError.reason
End If
%>
```

Om nyheter.xml verkligen är ett välformulerat XML-dokument, vill säga.

Permalänk: https://www.webforum.nu/p/990882

## #18 — Skarre, 2003-03-25T23:26Z

Det var precis något sådant jag var ute efter, men tyvärr fungerar det inte för mig. XML-filen som sparas blir nämligen 0 KB.

Permalänk: https://www.webforum.nu/p/990886

## #19 — niko, 2003-03-25T23:32Z

Kan tänka mig det. Glömde ett par rader:

```
myXMLDoc.async=false
myXMLDoc.setProperty "ServerHTTPRequest", true
myXMLDoc.Load "http://www.url.se/nyheter.xml"
```

Permalänk: https://www.webforum.nu/p/990887

## #20 — Skarre, 2003-03-25T23:40Z

Tack så mycket niko (och alla andra som försökt hjälpa mig)! Perfekt :)

Permalänk: https://www.webforum.nu/p/990890

---

Tråden på webben: https://www.webforum.nu/amne/asp/72116-åtkomst-nekad