I am attempting to write a file using an XML type script to do so, its working sort of but I have one small problem
The script I am using is :-
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
DIM sPath
Dim sql
Dim strSearch
strSearch = "A-2"
'Just check it's there !
response.write "strSearch value = "
response.write strSearch
Set conn = server.createobject("adodb.connection")
sPath = Server.MapPath("../steam.mdb")
cn= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sPath
Set rs = Server.CreateObject("ADODB.Recordset")
' Query the lner table from the steam db
sql = "SELECT * FROM lner "_
& "ORDER BY lner.br_no "
' Execute the sql
rs.Open sql, cn
' Move to the first record
rs.MoveFirst
' Name for the ouput document
file_being_created= "/ttp_files/content.
js"
' create a file system object
set fso = createobject("scripting.filesystemobject")
' create the text file - true will overwrite any previous files
' Writes the db output to a .xml file in the same directory
Set act = fso.CreateTextFile(server.mappath(file_being_creat ed), true)
' All non repetitive stuff on top goes here
act.WriteLine("var TABLE_CONTENT = [")
act.WriteLine("['Class','Pre', 'BR No.', 'LNER No.', 'cme','code','last-shed' ],")
'Loop to output all the query results to the document
'limit the output to 19 while no search / filter present
do while counter < 19
' counter to give each record a sequential listing
counter=counter+1
'write a line
'This is where I have the problem###########################
act.WriteLine("[" & rs("pregroup") & "," & rs("br_no") & "," & rs("other_no") & "," & rs("cme") & "," & rs("code") & "," & rs("last_shed") & "]," )
' Just that line #############################################
' move to the next record
rs.movenext
loop
' non repetitive last line goes here
act.WriteLine("];")
' close the object (xml)
act.close
' Writes a link to the newly created xml document in the browser
response.write "<a href='/ttp_files/content.
js'>content</a>(.
js) has been created <br>"
response.write "on " & now() & "<br>"
%>
which produces output like this:-
TABLE_CONTENT = [
['Class','Pre', 'BR No.', 'LNER No.', 'cme','code','last-shed' ],
[1729,,1729,"W.Worsdell","MID","Middlesborough"],
[1708,,1708,W.Worsdell,MID,Middlesborough ],
[0,0,2523,M.Stirling,IMM,Immingham ],
[0,0,1862,T.W.Worsdell,, ],
[0,0,1835,T.W.Worsdell,, ],
];
Which does what I want except that I need pairs of inverted comma's round the last 3 fields which are Text so a line reads
[0,0,2523,"M.Stirling","IMM","Immingham" ],
But I cannot get the syntax correct
Please help
Topshed