dcsimg

Developing from Chaos Page 6

By ServerWatch Staff (Send Email)
Posted Mar 28, 1999


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") &"<br>")
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 &"<br>" &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 &"<br>")
  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("<b><font size=2>.</font></b>")
      aword = ""
    else
      if not (aword = ",") and not isempty(aword) then
        rsWords.addNew "kword", aword
        rsWords.update
        alist = alist & aword &";"
        aword = ""
      else
        aword = ""
        end if
      end if
    end if
  end if
end if
next
set rsCreate = nothing



Comment and Contribute

Your name/nickname

Your email

(Maximum characters: 1200). You have characters left.


 

 


Thanks for your registration, follow us on our social networks to keep up-to-date