Jag har lite problem med en textfil (tab-separerad) som jag skapar från en Access-databas.
Vill hämta alla poster men vill att det ska bli en radbrytning mellan varje post. Nu lägger sig allt på en lång rad och det som skiljer posterna åt är en liten ruta. Hur ska jag göra?
Har försökt med detta:
<%
Const fsoForWriting = 2
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\inetpub\wwwroot\adresser\db2.txt", fsoForWriting, True)
path = objFSO.GetAbsolutePathName("c:\inetpub\wwwroot\adresser\db2.txt")
getname = objFSO.GetFileName(path)
strSQL = "SELECT Namn, Adress, PostNr, Ort, Telefon, Epost FROM AdressRegister"
objRS.Open strSQL, DB
objTextStream.WriteLine (objRS.GetString & vbCrlf)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
objRS.Close
Set objRS = Nothing
Response.Write ("Filen, '" & getname & "', har nu skapats.")
%>
