---
title: "Problem med FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76702-problem-med-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "m_soderlund"
published: "2003-05-12T16:17:32.000Z"
updated: "2003-05-19T16:51:23.000Z"
replies: 13
views: 412
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/76702-problem-med-fso"
---

# Problem med FSO

## #1 — m_soderlund, 2003-05-12T16:17Z

Jag använder koden nedan för att skapa en textfil och sedan också lägga till info i textfilen. Dock får jag ett felmeddelande när texten ska sparas i textfilen.

Felmeddelande: *Körningsfel i Microsoft VBScript fel '800a0046' 

Åtkomst nekad. 

/cd_web_1/saveorderfile.asp, rad 12*

Vad är problemet??

```
<%
	Function SaveOrderFile(strSubsNrDepotNr, strCureFNr, strLastName, strFirstName, strStreet, strStreetNr, strStreetAlphaNr, strPostalcode, strCity, strPhoneNumber, strOrderDate, strAgentName, strProductName, strComments)
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		strTodaysOrderFile = "CD_K5upgr_Orders_" & year(date) & "-" & month(date) & "-" & day(date) & ".txt"
		
		Dim ts
		Set ts = fso.CreateTextFile("C:\siter\cd_web_1\txt_files\" & strTodaysOrderFile)
		Set ts = fso.OpenTextFile("C:\siter\cd_web_1\txt_files\" & strTodaysOrderFile, 8)
		ts.WriteLine("k5upgr;" & _
						"Predic;" & _
						strSubsNrDepotNr & ";" & _
						strCureFNr & ";" & _
						strLastName & ";" & _
						strFirstName & ";" & _
						strStreet & " " & strStreetNr & strStreetAlphaNr & ";" & _
						strPostalcode & ";" & _
						strCity & ";" & _
						strPhoneNumber & ";" & _
						strOrderDate & ";" & _
						strAgentName & ";" & _
						strProductName & ";" & _
						strComments)
		ts.Close
		Set ts = Nothing : Set fso = Nothing
	End Function
%>
```

Som vanligt tacksam för svar. :D

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

## #2 — @nders, 2003-05-12T16:19Z

Vågar man gissa på att IUSR_xxx inte har tillräckliga rättigheter?

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

## #3 — m_soderlund, 2003-05-12T16:22Z

Åtkomst nekad trots det ändå, @nders. :(

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

## #4 — Nickemannen, 2003-05-12T17:35Z

Testa att sätt mappen som en Applikation

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

## #5 — solbulle, 2003-05-13T15:25Z

Inte som så att Norton Antivirus är med i spelet?
Fungerar det kanske om du byter ut 8 till 2 i OpenTextFile?

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

## #6 — m_soderlund, 2003-05-14T07:56Z

Ska testa det senare, solbulle. :D

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

## #7 — m_soderlund, 2003-05-19T14:49Z

Det fungerade ej att byta ut 8:an mot 2:an.. :(

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

## #8 — solbulle, 2003-05-19T14:54Z

Verkar som rättigheter precis som @nders & felmesset säger.
Ligger filen där din webbplats ligger?
Testa annars att skriva till en textfil som ligger typ i webbroten där du vet att det går att skriva till filer.

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

## #9 — m_soderlund, 2003-05-19T14:58Z

Nu skapas i alla fall filen som ska skapas, men innehållet i textfilen är tomt när jag kollar i textfilen som skapas.

```
<%
	Function SaveOrderFile(strSubsNrDepotNr, strCureFNr, strLastName, strFirstName, strStreet, strStreetNr, strStreetAlphaNr, strPostalcode, strCity, strPhoneNumber, strOrderDate, strAgentName, strProductName, strComments)
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		strTodaysOrderFile = "CD_K5upgr_Orders_" & year(date) & "-" & month(date) & "-" & day(date) & ".txt"

		Set ts = fso.CreateTextfile(Server.MapPath("txt_files\" & strTodaysOrderFile))
		Set ts = fso.OpenTextFile(Server.MapPath("txt_files\" & strTodaysOrderFile))
		ts.WriteLine("k5upgr;" & _
						"Predic;" & _
						strSubsNrDepotNr & ";" & _
						strCureFNr & ";" & _
						strLastName & ";" & _
						strFirstName & ";" & _
						strStreet & " " & strStreetNr & strStreetAlphaNr & ";" & _
						strPostalcode & ";" & _
						strCity & ";" & _
						strPhoneNumber & ";" & _
						strOrderDate & ";" & _
						strAgentName & ";" & _
						strProductName & ";" & _
						strComments)
		ts.Close : Set ts = Nothing
		Set fso = Nothing
	End Function
%>
```

Felmeddelande:

> Körningsfel i Microsoft VBScript fel '800a0036' 
> 
> Felaktigt filåtkomstläge 
> 
> /cd_web_1/saveorderfile.asp, rad 9

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

## #10 — m_soderlund, 2003-05-19T15:04Z

Dessutom har jag skrivbehörighet och läsbehörighet till mappen - allt ska egentligen fungera.. :(

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

## #11 — solbulle, 2003-05-19T15:29Z

> Felaktigt filåtkomstläge

 
Nu tycker jag banne mig att det verkar som om det är tvåan eller åttan som felar... (saknas?)

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

## #12 — m_soderlund, 2003-05-19T15:57Z

Jo, det var sant. Med en 2:a så får jag i stället detta felmeddelande:

> Körningsfel i Microsoft VBScript fel '800a0046' 
> 
> Åtkomst nekad. 
> 
> /cd_web_1/saveorderfile.asp, rad 8

Med en 8:a så raderas i stället en berörd databaspost, trots att sidan enbart ser ut som koden ovan. :q

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

## #13 — solbulle, 2003-05-19T16:36Z

> **m_soderlund skrev:**
>
> Med en 8:a så raderas i stället en berörd databaspost, trots att sidan enbart ser ut som koden ovan. :q

Va?

Hur skulle en databas kunna påverkas av det du gör i den där funktionen?

Har du testat att bara köra den där funktionen i från en i annars tom aspfil?

Iofs kanske det knasar när du säger åt skriptet att skapa en fil och det redan finns en?
Kanske ska du kolla om filen redan existerar och bara skapa en ny fil i så fall?

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

## #14 — m_soderlund, 2003-05-19T16:51Z

Fast även om jag har med en kodsnutt som kollar om filen redan finns, så fungerar det ej. Koden såg ut så här från början, men jag vill kör allt lokalt på min dator så att jag inte pajjar företagets sidor som de använder konstant..

```
<%
	Function SaveOrderFile(strSubsNrDepotNr, strCureFNr, strLastName, strFirstName, strStreet, strStreetNr, strStreetAlphaNr, strPostalcode, strCity, strPhoneNumber, strOrderDate, strAgentName, strProductName, strComments)
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		strTodaysOrderFile = "CD_K5upgr_Orders_" & year(date) & "-" & month(date) & "-" & day(date) & ".txt"
		if not fso.FileExists("\\predtel1\exporter\CanalDigital\" & strTodaysOrderFile) then
			' the file does not exist, so we copy the template
			fso.CopyFile Server.MapPath("/Campaigns/CanalDigital/") & "\CDOrdermall.txt", "\\predtel1\exporter\CanalDigital\" & strTodaysOrderFile
		end if		
		
		Set ts = fso.OpenTextFile("\\predtel1\exporter\CanalDigital\" & strTodaysOrderFile, 8)
		ts.WriteLine("k5upgr;" & _
						"Predic;" & _
						strSubsNrDepotNr & ";" & _
						strCureFNr & ";" & _
						strLastName & ";" & _
						strFirstName & ";" & _
						strStreet & " " & strStreetNr & strStreetAlphaNr & ";" & _
						strPostalcode & ";" & _
						strCity & ";" & _
						strPhoneNumber & ";" & _
						strOrderDate & ";" & _
						strAgentName & ";" & _
						strProductName & ";" & _
						strComments)
		ts.Close
		Set ts = Nothing
		Set fso = Nothing
	End Function
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76702-problem-med-fso