Un esempio da personalizzare:
codice:
<html>
<title>Create Word on Server</title>
<body bgcolor="#FFFFFF">
<%
' Name of the access db being queried
accessdb="state_info"
' Connection string to the access db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
' Create a server recordset object
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
' 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 corresponding next should be changed to loop also
for documents= 1 to 7
' Creates a text file on the server with the state abbreviation
' as the name for the ouput document
file_being_created= rs("state") & ".doc"
' create a file system object
set fso = createobject("scripting.filesystemobject")
' create the text file - true will overwrite any previous files
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
' Writes the db output to a .doc file in the same directory
act.WriteLine("<html><title>CodeAve.com(" & rs("statename") & " State Info)</title>")
act.WriteLine("<body bgcolor='#FFFFFF'> " )
act.WriteLine("State: " & rs("statename") & "
" )
act.WriteLine("Abbreviaton: " & rs("state") & "
" )
act.WriteLine("Capital: " & rs("capital") & "
")
act.WriteLine("Entered the Union in "& rs("year") & "
")
act.WriteLine("Number in order of entrance into the Union "& rs("order") & "
")
act.WriteLine("Page created on: " & now ())
act.WriteLine("</body></html>")
' close the object
act.close
' Writes the links to the newly created pages in the browser
response.write "" & rs("statename") & " (.doc) " & now() & "
"
' 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 corresponding for statement above should be changed also
next
%>
</body>
</html>
Permessi di invio
Rispondi quotando