Computer HQ - News and Information, Find Out What's New at Computer HQ and Around the World

<% Option Explicit Response.Buffer Dim FileSystem Dim TheFolder Dim TheFile Dim TheTextStream Dim ThePath Dim TheFilesCollection Dim Count Dim NumberOfFiles Count=0 NumberOfFiles=0 ' --------------------------------------------------------------------------------- ' | Write the header and all page elements above the article index ' --------------------------------------------------------------------------------- %> Computer HQ - News and Information, Find Out What's New at Computer HQ and Around the World

	Home > News and Information
	Computer HQ provides here, for your interest, information and news that is relevant, timely and interesting for our clients and customers. From information on new technologies soon to be released, to virus alerts; from new software releases, to innovative computing; from new staff, to new services; here is where you can be informed and stay informed.

<% ' --------------------------------------------------------------------------------- ' | Main Engine ' --------------------------------------------------------------------------------- Set FileSystem=Server.CreateObject("Scripting.FileSystemObject") ThePath = Server.MapPath("newsandinfo") Set TheFolder = FileSystem.GetFolder(ThePath) Set TheFilesCollection=TheFolder.Files ' ' ----------------------------------------------------------------------------- ' | Determine the number of Articles Written ' ----------------------------------------------------------------------------- ' NumberOfFiles = TheFilesCollection.Count If Not(NumberOfFiles = 0) Then Response.Write("") ' -------------------------------------------------------------------------------- ' | Add Each Article Title, to the Index as the ' | dynamic table is built, and populate with an appropriate Link ' -------------------------------------------------------------------------------- For Each TheFile in TheFilesCollection Set TheTextStream = FileSystem.OpenTextFile(TheFile,1) Count = Count + 1 IF Count=1 THEN Response.Write("") ELSE Response.Write("") END IF TheTextStream.Close NEXT %>

	" & Count & ".	" & TheTextStream.ReadLine & "
" & Count & ".	" & TheTextStream.ReadLine & "

<% Count=0 For Each TheFile in TheFilesCollection Set TheTextStream = FileSystem.OpenTextFile(TheFile,1) Count = Count + 1 IF Count=1 THEN Response.Write("") ELSE Response.Write ("") END IF TheTextStream.Close NEXT Set TheTextStream=Nothing Set FileSystem=Nothing Set TheFolder=Nothing Set TheFile=Nothing Set TheFilesCollection=Nothing %>

		" & TheTextStream.ReadLine & " ") Do Until TheTextStream.AtEndOfStream Response.Write TheTextStream.ReadLine Loop Response.Write("
" & TheTextStream.Readline & " ") Do Until TheTextStream.AtEndOfStream Response.Write TheTextStream.ReadLine Loop Response.Write ("

<% ELSE %>

<% END IF %>