ASP Developing for Academic and Business Processes Utilizing ASP in Systems Development Case: Develop a Research Library Website from Scanned Input
Begin outputting the html page to a file...
set output = conn1.opentextfile(htmlOut, 8, True)
output.writeline("<!-- DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 3.2 Final//EN'-->")
output.writeline("<html>")
output.writeline("<head>")
output.writeline("<title>General Index - Volume 3, 1986 - Current Research in the Pleistocene</title>")
output.writeline("<meta name='Publisher' content='Center for the First Americans'>")
output.writeline("<meta name='Publisher-email' content='info@mallard.design.com'>")
output.writeline("<meta name='Keywords' content='*'>")
output.writeline("<meta name='Description' content='Current Research in the Pleistocene - Volume 3, 1986'>")
output.writeline("<meta name='Identifier-URL' content='http://www.>")
output.writeline("<meta name='Content-Language' content='en-US '>")
output.writeline("<meta name='Coverage' content='Worldwide'>")
output.writeline("<meta name='Date-created-yyyymmdd' content='19990115'>")
output.writeline("<meta name='Date-Revised-yyyymmdd' content='*'>")
output.writeline("<script language=JavaScript>")
output.writeline("<!-- ")
output.writeline("//-->")
output.writeline("</script>")
output.writeline("<style type='css/text'>")
output.writeline("<!--")
output.writeline(".roll {")
output.writeline("font-family:Arial;")
output.writeline("font-size:14pt;")
output.writeline("text-decoration:none;")
output.writeline("color:black;")
output.writeline("}")
output.writeline("//-->")
output.writeline("</style>")
output.writeline("</head>")
output.writeline("<body bgcolor=ffffff link=0000ff vlink=8e2323 alink=00009c>")
output.writeline("<basefont face='verdana,arial,helvetica' size=2 color=000000>")
output.writeline("<font size=4 color=800000 face='Arial,Helvetica,Verdana'>Current Research in the Pleistocene<br>")
output.writeline("Volume 3, 1986</font><br>")
output.writeline("<font size=3 color=800000 face='Arial,Helvetica,Verdana'><b>General Index</b></font><br>")
output.writeline("<font size=2 color=800000 face='Arial,Helvetica,Verdana'><b>Page " & series & "</b></font><br>")
output.writeline("<table><tr><td>") end if
The code above now has the html headers written and is ready for the table data to be inserted. The insert begins right after a table row was started and will contain the repeated loop within two table cells to form two columns.
Previous versions of VBScript are CaseSensitive, this is written for the latest version.
Development Test System: Windows98, PentiumII 200MHz 128Mb
Personal Web Server 4.0 (IIS4), SQL7b3, Personal Oracle, Sybase
