Response.Write( ) SearchAmazon() SearchGoogle() SearchEbay() End Sub3.Add the SearchAmazonprocedure
Response.Write(
) SearchAmazon() SearchGoogle() SearchEbay() End Sub3.Add the SearchAmazonprocedure to the code section: Sub SearchAmazon() This procedure searches Amazon.com for the specified criteria and then displays the first Amazon.com page that corresponds to the particular item. Response.Write(
) Dim AmazonProductData As New AWSECommerceServiceDim AmazonSearch As New ItemSearchDim AmazonResponse As New ItemSearchResponseDim AmazonRequest(1) As ItemSearchRequest Developer/Subscription CodeAmazonSearch.SubscriptionId = YOUR AMAZON SUBSCRIPTION ID HERE We are only making one request, not batching multiple requests Thus element 0 of the array is all we need to assign and work withAmazonRequest(0) = New ItemSearchRequestAmazonRequest(0).SearchIndex = Electronics AmazonRequest(0).Keywords = txtSearch.Text assign the search object to the request object with the assigned parametersAmazonSearch.Request = AmazonRequest run the search and populate the responseAmazonResponse = AmazonProductData.ItemSearch(AmazonSearch) If AmazonResponse.Items(0).Item Is Nothing Then Exit SubDim item As New Item loop through the resultsFor Each item In AmazonResponse.Items(0).Item display the amazon.com page in the browserWritePageContentsToBrowser(item.DetailPageURL) Exit ForNextEnd Sub273Case
Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Adult Web Hosting services