Problem med FSO

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

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

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

Testa att sätt mappen som en Applikation

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

Ska testa det senare, solbulle. :D

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

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.

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

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

Felaktigt filåtkomstläge

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

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

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?

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
%>