<!-- #include file="XcIBLib.asp" -->
<%
'*********************************************************************
'******* XcInfoBase Copyright 2000 XCENT    www.xcent.com ************
'*********************************************************************
   OpenDBConn
   sSQL = "SELECT basID FROM tblIBInfoBase WHERE basFeatured = 'Y'"
   Set rs = gobjConn.Execute(sSQL)
   If Not rs.Eof Then
      Response.Redirect "view_item.asp?ID=" & FVal(rs.Fields("basID"))
   Else
      Response.Redirect "default.asp"
   End If
   CloseDBConn
%>