Servers Developing from Chaos Page 3

Developing from Chaos Page 3

Using ASP to Create a Website from Spreadsheets Continued

while not rsInput.EOF
  if isnull(rsInput(“note1“)) then

lines = lines+1
addin1 = rsInput(“note1“)
addin2 = rsInput(“note2“)
addin3 = rsInput(“note3“)
rsInput(“note1“) = addin1
rsInput(“note2“) = addin2
rsInput(“note3“) = addin3
response.write(“.”& vbCrLf)

  end if
  response.write(“:” & “
“& vbCrLf)
set rsInput = nothing
response.write(“done: ” & lines & vbCrLf)

Next step is the basic product page, which has auto-numbering and link navigation created as a part of the build process. This first section of code just arranges the auto-numbering for this. The next opens a new output file, then opens the tables needed to produce a page between chunks of html. The finished page here is a first pass of many passes before all the keywords are inserted and the page is ready to publish. The database is within the web server’s scope so has read/execute/script permissions set under IIS4, and the folder is shared for protection using the machine account under win98/NT4.

set rsInput = server.createobject(“ADODB.Recordset“) “content”, conn1, 2, 3, 2
lines = 1
while not rsInput.EOF
if not isnull(rsInput(“prod_model”)) then
series = series + 1
lines = lines + 1
 if series 100 then
  if series 10 then
   htmlOut = “x:websharewwwrootgnsv1prod_00” & series & “.html
   sNext = series + 1
   htmlNext = “prod_00” & sNext & “.html
   if series > 1 then
    sPrev = series – 1
    htmlPrev = “prod_00” & sPrev & “.html
  end if
   htmlOut = “x:websharewwwrootgnsv1prod_0” & series & “.html
   sNext = series + 1
   htmlNext = “prod_0” & sNext & “.html
   sPrev = series – 1
   if sPrev = 9 then
    htmlPrev = “prod_009.html
   htmlPrev = “prod_0” & sPrev & “.html
   end if
  end if
  htmlOut = “x:websharewwwrootgnsv1prod_” & series & “.html
  sNext = series + 1
  htmlNext = “prod_” & sNext & “.html
  if series = 1 then
   htmlPrev = “prod_001.html
   sPrev = series – 1
  if sPrev = 99 then
   htmlPrev = “prod_099.html
   htmlPrev = “prod_” & sPrev & “.html
  end if
 end if
end if
filename = mid(htmlOut, instr(htmlOut, “prod_“))
response.write(“filename: ” & filename & “

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