<%@ 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 %> <% Else %> <% End If %> <% If strKey = "" Then %>

Please enter keywords to search discount price products: <% End If %> 10 results 20 results 30 results 40 results 50 results <% 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