Servers Developing from Chaos Page 6

Developing from Chaos Page 6




T.Mallard


% Server.ScriptTimeOut = 2240 %>
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)

set rsCreate = server.createobject(“ADODB.Recordset“)
set rsWords = server.createobject(“ADODB.Recordset“)

dim aword, alist, start
if series 100 then
  if series 10 then
  vnum = “00&series
  else
  vnum = “0&series
  end if
  else
  vnum = series
end if

version = cstr(“metas_&vnum)
sql01 = “CREATE TABLE metas_&vnum & (kword Text)
rsCreate.open sql01, conn1, 2, 3, adCmdTxt
rsWords.open version, conn1, 2, 3, 2
response.write(“table created: &adate &
&vbCrLf)
stuff = rsInput(“prod_content“)
endcontent = len(stuff)
for i = 1 to endcontent step 1
letter = asc(mid(stuff, i, 1))
if letter = 60 then
  endtag = instr( i + 1, stuff, chr(62))
  i = endtag
else
  if not ((letter = 40) or (letter = 41) or (letter = 10) or (letter = 13) or (letter = 32) or (letter = 33) or (letter = 34) or (letter = 35) or (letter = 37) or (letter = 38) or (letter = 39) or (letter = 42) or (letter = 44) or (letter = 46) or (letter = 47) or (letter = 58) or (letter = 59) or (letter = 60) or (letter = 61) or (letter = 62) or (letter = 63) or (letter = 91) or (letter = 92) or (letter = 93) or (letter = 94) or (letter = 123) or (letter = 124) or (letter = 125) or (letter = 126) or (letter = 160)) then
  aword = aword &lcase(mid(stuff, i, 1))
   ‘use the next line to see what words are left, comment it out to run the build.
  response.write(“letter: &lcase(mid(stuff, i, 1)) &, ascii: &letter &
“)
  else
    if not isempty(aword) then
      if ((aword = “up“) or (aword = “v“) or (aword = “@“) or (aword = “+“) or (aword = “c“) or (aword = “0“) or (aword = “longer“) or (aword = “past“) or (aword = “9“) or (aword = “8“) or (aword = “7“) or (aword = “6“) or (aword = “5“) or (aword = “4“) or (aword = “3“) or (aword = “2“) or (aword = “1“) or (aword = “works“) or (aword = “that“) or (aword = “each“) or (aword = “x“) or (aword = “done“) or (aword = “of“) or (aword = “matter“) or (aword = “last“) or (aword = “furthermore“) or (aword = “making“) or (aword = “lower“) or (aword = “a“) or (aword = “today“) or (aword = “easy“) or (aword = “g“) or (aword = “e“) or (aword = “s“) or (aword = “at“) or (aword = “was“) or (aword = “as“) or (aword = “ends“) or (aword = “both“) or (aword = “providing“) or (aword = “provide“) or (aword = “for“) or (aword = “front“) or (aword = “less“) or (aword = “performs“) or (aword = “out“) or (aword = “build“) or (aword = “learning“) or (aword = “speed“) or (aword = “high“) or (aword = “an“) or (aword = “on“) or (aword = “the“) or (aword = “these“) or (aword = “this“) or (aword = “your“) or (aword = “in“) or (aword = “it“) or (aword = “and“) or (aword = “center“) or (aword = “or“) or (aword = “this“) or (aword = “needs“) or (aword = “to“) or (aword = “is“) or (aword = “comes“) or (aword = “with“) or (aword = “changes“) or (aword = “meet“) or (aword = “unique“) or (aword = “two“) or (aword = “designed“) or (aword = “low“) or (aword = “multiple“) or (aword = “features“) or (aword = “better“) or (aword = “than“) or (aword = “comparable“)) then
      response.write(“.“)
      aword = “”
    else
      if not (aword = “,“) and not isempty(aword) then
        rsWords.addNewkword“, aword
        rsWords.update
        alist = alist & aword &“;”
        aword = “”
      else
        aword = “”
        end if
      end if
    end if
  end if
end if
next
set rsCreate = nothing

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