%@LANGUAGE="VBSCRIPT"%>
<%
Dim Links
Dim Links_numRows
Set Links = Server.CreateObject("ADODB.Recordset")
Links.ActiveConnection = MM_BakerBoy_STRING
Links.Source = "SELECT * FROM dbo.Links WHERE Dickinson = 1 ORDER BY Link_Name ASC"
Links.CursorType = 0
Links.CursorLocation = 2
Links.LockType = 1
Links.Open()
Links_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Links_numRows = Links_numRows + Repeat1__numRows
%>
Baker Boy - Our Commitment Starts With You
© 2006 Baker Boy
& Custom Data, Inc.
<%
Links.Close()
Set Links = Nothing
%>