Guides Developing from Chaos Page 4

Developing from Chaos Page 4




T.Mallard
Using ASP to Create a Website from Spreadsheets Continued

The next-previous values are done, this took a few tries but not much time to develop. Next step is to open the recordsets needed to make the first part of the html now that the filename is ready.


set cmd1 = server.createobject(“ADODB.Command“)
cmd1.ActiveConnection = conn1
cmd1.CommandText = “update product set prod_page = ‘” & filename & “‘ where product.part_number = ‘” & rsInput(“part_number“) & “‘”
set rsOutput = cmd1.execute
response.write(“updated: ” & rsInput(“part_number“) & “
“)
set cmd1.ActiveConnection = nothing
set cmd1 = nothing
set conn2 = server.createobject(“Scripting.FileSystemObject”)
set output = conn2.OpenTextFile(htmlOut, 8, True)

The html page is now open with the new filename and ready to use the Access table for source data to build the page within the html template. The outside while loop creates pages for the entire catalog; after this the package is ready for a few more additions. Note that the “8” is used here, I had trouble with ForAppending due to an old version of Access (95 v7) and use the numbers for these settings. So here is a hunk of html with a few insertions throughout of database material. Work flow is to finish the head area first, then navigation, add the content, the footer and save the page.


output.writeline(“<!– DOCTYPE HTML PUBLIC “”-//W3C//DTD HTML 3.2 Final//EN“”–>“)
output.writeline(““)
output.writeline(““)
output.writeline(“PairGain from Government Network Solutions – ” & rsInput(“prod_type“) & ““)
output.writeline(“<meta name="“”Publisher“” content=“”Government Network Solutions“”>“)
output.writeline(“<meta name="“”Publisher-email“” content=“”gns@gns-pairgain.com“”>“)
output.writeline(“<meta name="“”Key“” content=“”” & rsInput(“part_number“) & “””>“)
output.writeline(“<meta name="“”Description“” content=“”””>“)
output.writeline(“<meta name="“”Identifier-URL“” content=“”http://www.gns-pairgain.com/“”>“)
output.writeline(“<meta name="“”Content-Language“” content=“”en-US“”>“)
output.writeline(“<meta name="“”Coverage“” content=“”Worldwide“”>“)
output.writeline(“<meta name="“”Date-created-yyyymmdd“” content=“”19990416“”>“)
output.writeline(“<meta name="“”Date-Revised-yyyymmdd“” content=“”*“”>“)
output.writeline(““)
output.writeline(““)
output.writeline(“
output.writeline(“<a name="“”page_top“”“)
output.writeline(“

“)
output.writeline(“

“)
output.writeline(“

<td bgcolor="ffffff" background="“”../jpgs/aback_05.jpg“”>“”gifs/pairgain_logo_07.gif“” width=148 height=51 hspace=4 vspace=4 border=0 alt=“”PairGain Products.“”>

“)
output.writeline(“

GOVERNMENT NETWORK SOLUTIONS

“)
output.writeline(“

<a href="“”order.html“”>How to Order or Get More Information

“)
output.writeline(“

<a href="“”gsa_price.html“”>GSA Price List

“)
output.writeline(“

<a href="“”index.html“”>Return to Home Page


“)
output.writeline(“<font size="4" color="800000" face="“”Arial,Helvetica,Verdana“”>” & rsInput(“prod_type“) & “

“)
output.writeline(“<font size="4" color="000000" face="“”Arial,Helvetica,Verdana“”>” & rsInput(“prod_group_title“) & “
“)
output.writeline(“font size=2 color=000000 face=“”Arial,Helvetica,Verdana“”>” & rsInput(“description“) & “
“)
output.writeline(“<font size="4" color="000000" face="“”Arial,Helvetica,Verdana“”>” & rsInput(“prod_title“) & “
“)

Now that has the navigation in, time to open some more recordsets…getting pricing and product content, and of course the notes. The connection strings use “2” for a dynamic cursor, “3” is next for optimistic locking and “2” represents a table as a source of data. The final wend and end if relate to the series variable and page naming loop above.

Latest Posts

Get-MsolUser PowerShell Attributes & Properties

This article has been updated for 2020. Please note that WAAD was retired in 2018, but the cmdlets listed in this article are still...

Microsoft Azure PowerShell Scripts and Commands

Using PowerShell scripts and commands for quickly executing tasks in Windows operating systems offers a number of benefits over traditional scripting languages, such as...

Microsoft Hyper V Review

Microsoft Hyper-V: The Bottom line Microsoft Hyper-V lagged behind VMware's virtualization tool, one of the most popular tools in the space, when it was first...

Best Cloud Based Services & Companies

Any company that’s delayed introducing cloud-based software into their infrastructure needs to consider leveraging these new technologies to reap all the benefits cloud computing...

Best Load Balancers for 2020

The best load balancers are able to provide either hardware or software-based load balancing to ensure maximum service availability by offering network traffic distribution...

Related Stories