Guten Tag,
habe da ein problem mit CreateObject. Ich moechte in meiner App. mit files
arbeiten und erhalte folgende Fehlermeldung:
c:\inetpub\wwwroot\advice\admin\profile\helperError Occurred.
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/advice/admin/profile/Default.asp, line 27
den code den ich benutzte, ist aus dem MSDN herauskopiert und ein bisschen
optimieziert:
<%
'Get TextFiles
Dim fso, MyFile
Dim wh, path
Dim strEng, strHeb
' set object
Set fso = CreateObject("Scripting.FileSystemObject")
' Print Map Path
path = Server.MapPath("helper\")
wh = "WIDTH='200' HEIGHT='200'"
Response.Write path
'check language
if Request.QueryString("lang") = "" then
Response.Write "Error Occurred."
lang = "eng"
end if
if lang = "eng" then
Set MyFile= fso.OpenTextFile(path & "profile_eng.txt", ForReading,
True,
TristateTrue) <-- LINE 27
strEng = MyFile.ReadAll
MyFile.Close
elseif lang = "heb" then
Set MyFile= fso.OpenTextFile(path & "profile_heb.txt", ForReading,
True,
TristateTrue)
strEng = MyFile.ReadAll
MyFile.Close
end if
%>
Mfg,
Roni Schuetz
| 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
