-- Moved from [aspgerman] to [aspdebeginners] by [EMAIL PROTECTED]
<[EMAIL PROTECTED]> --
hallo @,
habe da so ein kleines problem das folgendermasen geht,
dies ist der code den ich benuetze um den content und die sprache zu
erhalten und dann moechte ich eine spec. file updaten im selben ordner.
======================================================
Dim lang
Dim Path
Dim strContent
DIM objFile
Dim objFSO
lang = Request("language")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
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 a = objFSO.OpenTextFile(Path,2,true)
Set a = objFSO.OpenTextFile (Path,2, true)
a.WriteLine (strContent)
a.close
'set objFSO = nothing
'set a = nothing
===========================================================
Das problem ist nur, dass ich diesen error erhalte obwohl ich fuer das
folder fuer
everyone und web user modify und write rechte gesetzt habe.
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/adviceWeb/admin/profile/helper/profileLayer.asp, line 21
mfg,
Roni Schuet
| 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
