Filesystemobject

Hur får man detta script att skapa en ny textfil varje gång?

----kodsnutt----
<%
n= n+1
filnamn = "best" & n & ".txt"
const ForAppending=8
const TristateFalse=0

Set fsobj = CreateObject("Scripting.FileSystemObject")

filename="E:\webkunder\ordningsvakter\shopbestallningar\"&filnamn

Set f = fsobj.OpenTextFile(filename, ForAppending,true,TristateFalse)

f.Write "Detta är en beställning genererad av OVshoppens webbutik!" & vbcrlf & vbcrlf & "-----------------------------------------" & vbcrlf & vbcrlf & "Kundens namn: " & vbtab & request.form("kund") & vbcrlf & "Adress: " & vbtab & request.form("adress") & vbcrlf & "Postadress: " & vbtab & request.form("zipcode") & " " & request.form("city") & vbcrlf & "Telefon: " & vbtab & request.form("telefon") & vbcrlf & "Fax: " & vbtab & vbtab & request.form("fax") & vbcrlf & "Epost: " & vbtab & vbtab & request.form("email") &  vbcrlf & "Meddelande: " & vbtab & request.form("ovrigt") & vbcrlf & vbcrlf & "-----------------------------------------" & vbcrlf & vbcrlf & "Beställningen är som följer: " & vbcrlf & produkt & "(" & antal & "st á " & apris & ":-) " & vbcrlf & "Summa: " & vbtab & vbtab & isubtotal & vbcrlf & "Fraktsätt: " & vbtab & request.form("fraktalternativ") & vbcrlf & "Fraktkostnad: " & vbtab & iship & vbcrlf & "Moms: " & vbtab & vbtab & itax & vbcrlf & vbcrlf & "Total summa: " & vbtab & helpris & vbcrlf & vbcrlf & vbcrlf
f.Close

set f=nothing
set fsobj=nothing

%>

----slut på kodsnutten----