I'm gonna try to wrap this up on Friday or Sunday night.
Flat worn out, already dreaming of lines of code, plus, still got other work to do. Ahhhh, the life of a poor man!
I had no idea we had this many lines of code or ASP files. Nearly 500 files to edit.
It's one thing to edit 500 different Word documents, but a whole different one to go through each line of code that looks like this. Especially when Bob is writing the gibberish.
<% @language="vbscript" %>
<html>
<head><title></title>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/asp/treedb/Links.mdb")
mySql = "SELECT Subjects.Subject, Links.Description, Links.Link " & _
"FROM Links INNER JOIN Subjects ON Links.idSubject = Subjects.IDSubject " & _
"ORDER BY Subjects.Subject, Links.Description;"
Set rs = Conn.Execute(mySql)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
%>
<%If ((instr(strUserAgent, "MSIE") > 0)) Then%>
<!--#include file="Leftside_headerinclude.inc"-->
<%End If%>
</head>
<body bgcolor=white>
<%If ((instr(strUserAgent, "MSIE") > 0)) Then%>
<!--#include file="nfleftmenu.inc"-->
<%Else%>
<table WIDTH="100%" CELLSPACING="1" CELLPADDING="1" BORDER="0">
<%Do until rs.eof
x=x+1
if x mod 2=0 then
mycolor ="LightSteelBlue"
else
mycolor ="LightBlue"
end if
%>
<tr>
<%if rs("Subject") = myArg Then
myWrite = " "%>
<td bgcolor=white width=20%><font class="lk"><%=myWrite%></font><td>
<%else
myWrite = rs("Subject")%>
<td bgcolor=<%=myColor%> width=20%><font color=black><%=myWrite%></font><td>
<%end if
myarg = rs("Subject")%>
<td bgcolor=<%=myColor%> width=80%><font class="lk"><a CLASS="lk" href="<%=rs("Link")%>" target="_blank"><%=rs("Description")%></a></font></td>
</tr>
Going out of town tomorrow night-Sunday afternoon on a deep-sea fishing trip with my uncle. Woohooo!
Market Data 
Markets 
AI
