<% Set oConn = Server.CreateObject("ADODB.Connection") %> <% oConn.Open Application("CONNSTR") 'Init DB Connection %> <% dim browserdetect, browser Set browserdetect = Server.CreateObject("MSWC.BrowserType") browser=browserdetect.Browser %> 90%<%else%>600<%end if%>" height="100%" cellpadding="3" cellspacing="0" border="0" align="top" valign="left">

Industry Links

<% sSQL = "Select * from links where status='Active' order by LastUpdate" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> <%oRs1.MoveNext()%> <%loop%> " target="_blank"><%=Replace(oRs1("title"),"~","'")%>   <%=Replace(oRs1("description"),"~","'")%>