Hallo zusammen,
folgenden code, habe ich laufen gelassen und immer bei linie nr 25 einen
error erhalten.
===================================================================
Microsoft VBScript runtime error '800a0046'
Permission denied
/advice/advise/admin/profile/helper/profileLayer.asp, line 25
===================================================================
LINE 25: Set f = objFSO.OpenTextFile (Path, 2, true)
jetzt ist mir nur unklar wieso. Ich habe auch den textfiles und dem folder
permissions fuer everyone auf "Full Permissions" gesetzt, aber das geht
trtztdem nicht . . .
hoffe es hat jemand einen tip fuer mich und danke schon mal im vorraus.
mfg,
Roni
===================================================================
<%
Const ForReading = 1, ForWriting = 2
Dim lang
Dim Path
Dim strContent
DIM objFile
Dim objFSO
lang = Request("language")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
Path = "c:\"
if lang = "heb" then
Path = Server.MapPath("\profile_heb.txt")
strContent = Request("editFooterHiddenIEditor_Heb")
elseif lang = "eng" then
Path = Server.MapPath("\profile_eng.txt")
strContent = Request("editFooterHiddenIEditor_Eng")
end if
Set f = objFSO.OpenTextFile (Path, 2, true)
f.WriteLine strContent
'set f = nothing
set objFSO = nothing
%>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
