<% 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) %> <% rs.movenext wend rs.close set rs=nothing set rs1=nothing %>
" target="_blank">" width="270" height="338" />