ASP 101 - Active Server Pages 101
The Place ASP Developers Go!

Please visit our partners

Windows Technology Windows Technology
15 Seconds
4GuysFromRolla.com
ASP 101
ASP Wire
VB Forums
VB Wire
WinDrivers.com
internet.commerce internet.commerce
Partners & Affiliates














ASP 101 is an
internet.com site
ASP 101 is an internet.com site
Developer
International
Internet Lists
Internet News
Internet Resources
IT
Linux/Open Source
Personal Technology
Small Business
Windows Technology
xSP Resources
Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash
your e-mail address:



 Top ASP 101 Stories Top ASP 101 Stories
VBScript Classes: Part 1 of N
Migrating to ASP.NET
Getting Scripts to Run on a Schedule

QUICK TIP:
Use the front door, please!
Show All Tips >>


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.


Stuff
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

Author: T.Mallard, Seattle, WA
http://www.mallard-design.com/
Copyright 1999 Thomas Mallard, USA

 


Home |  News |  Samples |  Articles |  Lessons |  Resources |  Forum |  Links |  Search |  Feedback


JupiterWeb networks:

internet.comearthweb.comDevx.com graphics.com

Search JupiterWeb:

Jupitermedia Corporation has two divisions: Jupiterimages andJupiterWeb

Jupitermedia Corporate Info


Legal Notices, Licensing, Reprints, & Permissions, Privacy Policy.

Web Hosting | Newsletters | Tech Jobs | Shopping | E-mail Offers