% 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.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