<% Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing %> 3D Laser Crystal, Blank Crystal, Crystal Wedding Gifts, Crystal Candle Holders, Crystal Bottle Stoppers, Crystal Ashtray, Crystal Perfume Bottles

 

<% set RsUGObj=server.CreateObject("Adodb.RecordSet") sql = "select * from Pud where id > 0 " if request("ClassId") <> "" then sql = sql + "And Class= '"&request.QueryString("ClassId")&"'" elseif request("keywords") <> "" then sql = sql + "And Description 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 price = RsUGObj("price") %>
<%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%>

Product Category
<% set rs = server.CreateObject("Adodb.recordSet") set rs1 = server.CreateObject("Adodb.recordSet") Sql = "select * from Class where id in (6,7,14)" rs.open sql,Conn,1,1 while(not rs.eof) %>
<%=rs("ename")%>
<% Sql1 = "select * from PudClass where classid="&rs("id") rs1.open sql1,Conn,1,1 while(not rs1.eof) %>
<% rs1.movenext wend rs1.close rs.movenext wend rs.close set rs=nothing set rs1=nothing %>
Crystal Gift BoxCrystal Awards Trophies Line
Testimonials

"You guys always care customer requirements, the crystal trophies arrived in good shape, good job! "

- Jon Clark

 

"Many of our customers are attracted by those beautiful crystal paperweights, and we will buy more and more from your company, thank you very much. "

- Emma Campbell

 

"Our customer liked this award very much, and they would like to proceed some new incentive programs with us, I really appreciate the great job you've been doing. "

- Linda Rubel