tekstfil

Der skal være skriverettigheder til den mappe, hvor du ønsker at lægge filen (alle skal have rettigheder, ikke kun dig), ellers bør der ikke være nogen problemer

http://www.html.dk/tutorials/asp/lektion16.asp

Tak

Om tekstfiler generelt: http://www.html.dk/tutorials/asp/lektion14.asp

Hvis du benytter en gratis web-server kan det være de ikke understytter FileSystemObject

Er det nødvendigt med understøttelse af Filesystemobject for at kunne skrive til en text-fil?

Ovenstående svar skal være opfyldt

Eksempel på generering af en simikolon sepereret text fil, hvor du har et recordset RS med data.
dim DataLine

'Overskrift
OutStream.WriteLine "felt1;felt2"
   

while not RS.eof
  'Write data line
  DataLine= RS("Felt1") &";"& RS("Felt2")

OutStream.WriteLine DataLine

sorry kom til at klikke udfør før jeg var færdig

Ja det er det.

Ovenstående svar skal være opfyldt

Eksempel på generering af en simikolon sepereret text fil, hvor du har et recordset RS med data.

dim DataLine,ExportFileName,OutStream ,FileObject

ExportFileName="\export\temp.txt"

on error resume next
ExportFile = Server.MapPath(ExportFileName)

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set OutStream = FileObject.CreateTextFile(ExportFile, True, False)
if Err.number <>0 then 'Error
    if Err.number=70 then
    ExportErrorText="Ingen rettigheder"
    else
                            ExportErrorText=GetErrDescription("ListData",Err.number,"",false)
                        end if
                        Err.Clear
                    end if
                call SetFirstRowOfFile()
            end if


'Overskrift
OutStream.WriteLine "felt1;felt2"
   

while not RS.eof
  'Write data line
  DataLine= RS("Felt1") &";"& RS("Felt2")
  RS.movenext
wend

OutStream.WriteLine DataLine

sorry igen det er TAB tasten der driller

Ovenstående svar skal være opfyldt

Eksempel på generering af en simikolon sepereret text fil, hvor du har et recordset RS med data.

dim DataLine,ExportFileName,OutStream ,FileObject,ExportErrorText

ExportFileName="\export\temp.txt"

on error resume next
ExportFile = Server.MapPath(ExportFileName)

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set OutStream = FileObject.CreateTextFile(ExportFile, True, False)
 
if Err.number <>0 then 'Error
    if Err.number=70 then
      ExportErrorText="Ingen rettigheder"
    else
      ExportErrorText=Err.number
    end if
    Err.Clear
else


'Overskrift
  OutStream.WriteLine "felt1;felt2"
   

  while not RS.eof
    'Write data line
    DataLine= RS("Felt1") &";"& RS("Felt2")
    RS.movenext
  wend

  OutStream.WriteLine DataLine

end if


Undskylde jeg fumler rundt med svarene !!

ups !!

OutStream.WriteLine DataLine skal ind i løkken

while not RS.eof
    'Write data line
    DataLine= RS("Felt1") &";"& RS("Felt2")
    OutStream.WriteLine DataLine
    RS.movenext
  wend

Takker for points :-)