<%@ Language=VBScript %> <% Dim strKey, strStart, strSize strKey = Trim(Request.QueryString("key")) strSize = Trim(Request.QueryString("size")) strStart = Trim(Request.QueryString("start")) If strKey = "" Then strKey = Trim(Request.Form("key")) strStart = Trim(Request.Form("start")) strSize = Trim(Request.Form("size")) End If Dim nStart, nPageSize, strHTML, strTime, strCount, strResult If strStart = "" Then nStart = 0 Else nStart = CLng(strStart) End If If strSize = "" Then nPageSize = 10 Else nPageSize = strSize End If Set objSearch = CreateObject("Coupon.cSearchCoupon") strHTML = objSearch.SearchKey(strKey, nStart, nPageSize) strTime = objSearch.GetTime() strCount = objSearch.GetCountString() strResult = objSearch.GetResultPages() Set objSearch = Nothing If Len(strKey) > 40 Then strKey = Left(strKey, 30) & "..." End If If Len(strHTML) < 30 Then strHTML = "No Records Found!" End If If Len(strResult) < 30 Then strResult = "No Pages" End If %> <% If strKey = "" Then %> Discount Price Products Search <% Else %> Qweas Discount Search: <% =strKey %> <% End If %> <% If strKey = "" Then %>




Please enter keywords to search discount price products:
<% End If %>
Qweas
<% If strKey = "" Then %>
<% Else %>
Discount Prices Results <% =nStart + 1 %> - <% =nStart + nPageSize %> of about <% =strCount %> for <% =strKey %>. ( <% =strTime %> seconds)
<% Response.Write strHTML %>
Result Page: <% Response.Write strResult %> <% End If %>


Search - Download - Store - Directory - Service - Developer
© 2005 Qweas Home - Privacy Policy - Terms of Use - Site Map - About Qweas