<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=infocusbrands;UID=infocusbrands;PWD=infocusbrands"
SQL_article = "Select top 5 * from articles where active = 'Y' order by showorder"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open SQL_article, objConn, 1, 1
%>
In Focus Brands
