"Nikolaj" <nikolaj_hviid@hotmail.com> skrev i en meddelelse
news:aipe9t$246$1@sunsite.dk...
> Jeg har en ganske almindelig brugerdatabase (Access) som jeg godt
> kunne tænke mig at eksportere. Formatet skulle være semikolen
> separeret således at det kan indlæses i en hver form for
> adressebog. Ex:
>
> First Name;Last Name;Nickname;E-mail Address;Home Street;Home
> Phone;Mobile Phone;Company
> Andreas;Jensen;ANdy;prof.ESSO@ofir.dk;Tadervej 2, 4340
> Tølløse;59185918;21202456;3A
> Nikolaj;Hviid;Niko;nikolaj_hviid@hotmail.com;Nygade 33, 4340
> Tølløse;59194086;51807838;3A
>
> At hente dataen og få dem stillet rigtig op let nok, men hvordan
> får jeg gemt en fil på serveren efter dataen er hentet, startet
> automatisk download dialog hos brugeren (eller måske email hvis
> dt er lettere), og efter download slettet filen igen?
Hvad med at smide alle data over i en tekstfil og skifte til textfilen, når
du er færdig? Jeg har ikke skrevet koden til at hente data i databasen, for
det skriver du at det er nemt nok
<%
Const fsoForWriting = 2
'Filnavn. Husk at scriptet skal have skrive rettigheder
Filename = "data.dat"
Set FileObj=Server.CreateObject("Scripting.FileSystemObject")
'åben filen. 2 = skriv linie til fil, true = opret hvis den ikke findes
Set OutStream=FileObj.OpenTextFile(Filename, fsoForWriting , TRUE)
' åben databasen
åben
' løkke til at læse alle data i databasen
WHILE NOT ...
TXTline= rs("First Name") + ";" + rs("Last Name") + "; osv.....
response.write(TXTline & "<br>")
HTMLOutStream.WriteLine(TXTline)
WEND
' luk databasen
luk
'luk filen
HTMLOutStream.Close
Set HTMLOutStream = Nothing
Set HTMLFileObj = Nothing
'skift til filen
response.redirect "data.dat"
%>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.380 / Virus Database: 213 - Release Date: 24-07-2002