Txt filer problem med Server.Mappath

Der er et eller andet galt har siddet og afprøvet alle mine teorier på hvad problemet kunne være i flere timer så nu kommer det til eksperterne..
Mit script :

<%
Dim fso, f, filespec, strdate
strdate = now
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("event.txt")
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("hvad") & "  " & Request.Form("kl") & "  " & Request.Form("mødes") & ":<a href=""tilmelding.asp?fi=""strdate"

f.Close


dim filesys, filetxt, getname, path
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = Server.Mappath.CreateTextFile("tilmelding/"&strdate&".txt" , True)
path = Server.Mappath.GetAbsolutePathName("tilmelding/"&strdate&".txt")
getname = Server.Mappath.GetFileName(path)
filetxt.WriteLine("")
filetxt.Close
If Server.Mappath.FileExists(path) Then
  Response.Write ("<b>Your file, '" & getname & "', Post has been created.</b>")
End If

%>

Fejl meddelse.
Microsoft VBScript runtime  error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Server.Mappath'

/un/newevent.asp, line 17
Mange tak på forhånd...
Martin dalgaard