Tekstfil Uden MapPath

her har du det hele:
<%
dim filesys, filetxt, getname, path
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\somefile.txt", True)
path = filesys.GetAbsolutePathName("c:\somefile.txt")
getname = filesys.GetFileName(path)
filetxt.WriteLine("Your text goes here.")
filetxt.Close
If filesys.FileExists(path) Then
  Response.Write ("Your file, '" & getname & "', has been created.")
End If
%>

Har jeg gjort noget forkert her:
Select Case Valg

Case Nyheder
filespec = fso.GetAbsolutePathName("d:\webs\XXX\docs\flash\nyheder\news.txt")
Response.Write "NYHED"
Case Rune
filespec = fso.GetAbsolutePathName("d:\webs\XXX\runerask.txt")
Case Baid
filespec = fso.GetAbsolutePathName("d:\webs\XXX\baid.txt")
Case Emilo
filespec = fso.GetAbsolutePathName("d:\webs\XXX\emiltext.txt")
Case Trools
filespec = fso.GetAbsolutePathName("d:\webs\XXX\docs\Flash\De-suspekte\trools.txt")
Case Historie
filespec = fso.GetAbsolutePathName("d:\webs\XXX\docs\Flash\laboratorium\historie.txt")
end Select

Set f = fso.OpenTextFile(filespec,0)

Jeg får flg fejl:
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/admin/Update_text.asp, line 113

Linie 113 er:
Set f = fso.OpenTextFile(filespec,0)

Set fso = CreateObject("Scripting.FileSystemObject")

Hvad er valg? kig på dette eksample:

myStr = Request.QueryString("animal")
Select Case myStr
Case "dog"
Response.Write "You have a dog."
Response.Write "woof"
Case "cat"
Response.Write "you have a cat."
Response.Write "meow"
Case "hen"
Response.Write "You have a hen."
Response.Write "cockadoodledoo"
Case Else
' Anything that isn't handled here
Response.Write "you haven't got any animals."
Response.Write "Go see old macdonald"
End Select

myStr kan ha forskellige værdier og det er de værdier i din select case sætning som du skal bruge.

vh    Hossein