<%
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
Crystal Gifts, Crystal Crafts, Crystal Wedding Favors
<%
set rs=server.CreateObject("Adodb.RecordSet")
set rs1=server.CreateObject("Adodb.RecordSet")
sql = "select top 5 * from Pud where id > 0 and showIndex=true"
rs.open sql,Conn,1,1
while(not rs.eof)
%>