Formular sendes til fil

ja noget i stil med

linie_1 =    "bla bla"
                    linie_2 =    "linie 2"
                    linie_3 =    "linie 3"   
                    linie_4 =    "linie 4"
                    linie_5 =    "linie 5"
                    linie_6    =    "linie 6"
                    linie_7 =    "linie 7"
                    linie_8    =    "linie 8"
                    linie_9 =    "linie 9"
                    'Åben en tekstfil og skriv nyt indhold
                    Const fsoForWriting_1 = 2
                    Dim objFSO_1
                    Set objFSO_1 = Server.CreateObject("Scripting.FileSystemObject")
                    Dim objTextStream_1
                    Set objTextStream_1 = objFSO_1.OpenTextFile(inputfil, fsoForWriting_1, True)
                    objTextStream_1.WriteLine linie_1
                    objTextStream_1.WriteLine linie_2
                    objTextStream_1.WriteLine linie_3
                    objTextStream_1.WriteLine linie_4
                    objTextStream_1.WriteLine linie_5
                    objTextStream_1.WriteLine linie_6
                    objTextStream_1.WriteLine linie_7
                    objTextStream_1.WriteLine linie_8
                    objTextStream_1.WriteLine linie_9
                    objTextStream_1.Close
                    Set objTextStream_1 = Nothing
                    Set objFSO_1 = Nothing