Oprette *.txt med indholdet fra en database

ja :-)

Det kommer jo først og fremmest an på om du har rettigheder til at oprette filer på serveren, gennem en hjemmeside!

har du det?

how

yes

okay.. først laver du en connection til din database... -har du det?

ja, det har jeg

*G* må jeg oxo se den *G*

Alt det kan jeg godt. Men har ikke lige lavet den!

Lad os sige at jeg har db(Access) ved navn Menu.

Der har jeg en tabel(menupunkter) hvor der er 3 kolonner(id, menu1 og menu2)

I tekstfilen, som skal have navnet(menu.txt), skal indholdet se sådan ud:

menu=menu1&menu2

hvor menu1 og menu2 kan variere

hvad mener du med at de skal kunne variere?

at det er dem der udtrækkes fra db

Hm.. jeg forstår ikke rigtigt...

Altså i din txt fil vil du ha\' at der skal stå

menu=link1&link2

altså der hvor du har skrevet menu1 og 2 er det der hvor resultate fra din database skal stå?

yes

jamen, så der hvor du har din .WriteLine
skriver du bare:

.WriteLine \"menu=\" & rs(\"menu1\") & \"&\" & rs(\"menu2\")

sværre var det ikke.... :-)

hvordan opretter man txt-filen?

hmm.. så vidste du jo heller ikke hvordan ;-)

Ej.. 2 sek. så bixer jeg lige noget sammen..!
Men det kommer til at koste dig nogle flere point!

ok, den er jeg med på

here you are...


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0
Dim objFS, objTextS, strLine

Set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
If objFS.FileExists(\"c:\\menu.txt\") = True Then
  Set objTextS = objFS.OpenTextFile(\"c:\\menu.txt\", ForAppending, False, TristateFalse)
Else
  Set objTextS = objFS.CreateTextFile(\"c:\\menu.txt\",False, False)
End If
objTextS.WriteLine .WriteLine \"menu=\" & rs(\"menu1\") & \"&\" & rs(\"menu2\")
objTextS.Close

tak, skal man angive et drev? eller kan man nøjes med \\menu.txt?

*g* prøv dig frem ;-)

det tager ikke mere end 2 sek *s*

blev vi ikke enig om at jeg skulle ha\' mere end de 30 point?