ASP 101 - Active Server Pages 101 - Web04
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
IT
Developer
Internet News
Small Business
Personal Technology

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash



 Top ASP 101 Stories Top ASP 101 Stories
Migrating to ASP.NET
Getting Scripts to Run on a Schedule
The Top 10 ASP Links @ Microsoft.com

QUICK TIP:
VBScript's Line Continuation Character
Show All Tips >>
ASP 101 RSS Feed ASP 101 Updates


ASP Developing for Academic and Business Processes
Utilizing ASP in Systems Development
Case: Develop a Research Library Website from Scanned Input

The variables...
dim input, output, htmlOut, author, editor, pubdate, topic, source, locale, annotate, errs, err2
dim conn1, conn2, conn3, rsInput, txtOut, rsTemp, pagename, metatopics, secstart, minstart
dim metasOut

Then the first filename is set which is used for the individual topics which appear on each page, this list is created on the first pass with the original html file creation, I also create an alphabetic navigation table after the first run. These runs are 10-15 files each and will be updated infrequently, you'd automate this process for periodicals. It does build interactive links at run time, this image is saved in recordsets, and then written as the final output. The logic for this follows the basic creation sequence.

metasOut = "D:\Webshare\wwwroot\asp\csfa\csfa_metas.txt"
set conn2 = server.createobject("ADODB.Connection")
  conn2.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Webshare\wwwroot\asp\csfa\biblio_01.mdb"
  if not isobject(conn2)then
    errs2 = "unable to create access object"
    else errs2 = "access object created"
    end if
dim allfields, sql_01, sql_02
  sql_01 = sql_01 & "SELECT * from v3_86_index"
set rsInput = conn2.execute(sql_01)

rsInput.movefirst
  set conn1 = server.createobject("Scripting.FileSystemObject")
  if not isobject(conn1) then
    errs = "unable to create object"
  else errs = "file object created"
    end if

The OLEDB driver is being used here, the processes are all on one server. The tables were created by hand for this, it can be automated with initialization scripts, that just takes a bit longer to code. All fields are default 255 text datatype. In development, like this project, the initial phase is discovery, I tried single row architecture but abandoned it to relational tables as better right away. With larger projects you would automate the table creation process. The hookup to SQL server uses a similar connection string which includes username and password, and I also develop Oracle in the same manner on this machine. Above, the code has created connections and defined a basic select-all SQL statement and has the first record ready to process a page.


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


The Network for Technology Professionals

Search:

About Internet.com

Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers