<% Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing %> 3D Laser Crystal, Wedding Favors, Crystal Awards, Glass Paperweight, Paperweights, Christmas Ornaments, Crystal Globe
<% set RsUGObj=server.CreateObject("Adodb.RecordSet") sql = "select * from Pud where id > 0 " if request("keywords") <> "" then sql = sql + " and Description like '%"& request("keywords")&"%' or ItemNo like '%"& request("keywords")&"%'" end if 'response.Write(sql) sql = sql&" order by id desc" RsUGObj.open sql,conn,1,3 if RsUGObj.eof then response.Write("Sorry, the result is empty.") if Not RsUGObj.eof then Dim page_size,page_no,page_total,record_all,PageNums page_size=Request.QueryString("page_size") if page_size<=0 or page_size="" then page_size=20 If isnumeric(Request.Form("PageNums")) then if Request.Form("PageNums")<>0 then page_size = Cint(Request.Form("PageNums")) end if End if page_no=request.querystring("page_no") if page_no<=1 or page_no="" then page_no=1 If Request.QueryString("page_no")="" then page_no=1 end if RsUGObj.PageSize=page_size page_total=RsUGObj.PageCount if (cint(page_no)>page_total) then page_no=page_total RsUGObj.AbsolutePage=page_no record_all=RsUGObj.RecordCount Dim i for i=1 to RsUGObj.PageSize if RsUGObj.eof then exit for %> <% if i mod 2=0 then %> <% else %> <% end if %> <% RsUGObj.MoveNext Next end if %>
" border="0"> " border="0" title="<%=RsUGObj("Title")%>" alt="<%=RsUGObj("Title")%>" WIDTH="79" HEIGHT="100" hspace=5 vspace=0> "> <%=RsUGObj("Title")%>
[<%=RsUGObj("ItemNo")%>]
<% if RsUGObj("Description")<>"" then %> <%=RsUGObj("Description")%> <% else %> This crystal monolith flares into the five sharp arms of a star, symbolizing transformation. Present these crystal awards to your company's star performers today! <% end if %>
<%if page_total>1 then%>
<% = "NO."& page_no &",  " %> <% = "Totel:"& page_total &", RecordCounts:" & record_all &"   "%> <% if Page_Total=1 then response.Write " first " response.Write " prev " response.Write " next " response.Write " last " else if cint(Page_No)<>1 and cint(Page_No)<>Page_Total then response.Write " first " response.Write " prev " response.Write " next " response.Write " last " elseif cint(Page_No)=1 then response.Write " first " response.Write " prev " response.Write " next " response.Write " last " else response.Write " first " response.Write " prev " response.Write " <strongnext " response.Write " last " end if end if %>
<%end if%>

<% conn.close set conn = nothing %>