' Name of the access db being queried
Set cn = Server.CreateObject ("ADODB.Connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=state_info.mdb;"
Set rs = Server.CreateObject ("ADODB.RecordSet")
' Query the states table from the state_info db
sql = "select state,statename,capital,year,order from states "
' Execute the sql
rs.Open sql, cn
' Move to the first record
rs.MoveFirst
' Name for the ouput document
file_being_created= "states.xls"
' 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 .xls file in the same directory
Set act = fso.CreateTextFile(server.mappath(file_being_creat ed), true)
' All non repetitive html on top goes here
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr>")
act.WriteLine("<th nowrap>State</th>")
act.WriteLine("<th nowrap>Abbreviaton</th>")
act.WriteLine("<th nowrap>Capital</th>")
act.WriteLine("<th nowrap>Year Entered</th>")
act.WriteLine("<th nowrap>Entrance Number</th>")
act.WriteLine("</tr>")
' For net loop to create seven word documents from the record set
' change this to "do while not rs.eof" to output all the records
' and the corresponsding next should be changed to loop also
for documents= 1 to 7
Act.WriteLine("<tr>")
act.WriteLine("<td align=""right"">" & rs("statename") & "</td>" )
act.WriteLine("<td align=""right"">" & rs("state") & "</td>" )
act.WriteLine("<td align=""right"">" & rs("capital") & "</td>")
act.WriteLine("<td align=""right"">"& rs("year") & "</td>")
act.WriteLine("<td align=""right"">"& rs("order") & "</td>")
act.WriteLine("</tr>")
' move to the next record
rs.movenext
' return to the top of the for - next loop
' change this to "loop" to output all the records
' and the corresponsding for statement above should be changed also
next
' All non repetitive html on top goes here
act.WriteLine("</table></body></html>")
' close the object (excel)
act.close
' Writes a link to the newly created excel in the browser
response.write "<a href='states.xls'>States</a> (.xls) has been created on " & now() & "<br>"
%>