Sub SearchEbay() This procedure searches eBay for the
Sub SearchEbay() This procedure searches eBay for the specified criteria and then displays a list of auctions that contain the criteriaDim strToken As StringDim strDevId As StringDim strAppId As StringDim strCertId As StringResponse.Write( ————————————————
) Response.Write _ ( Results From eBay (Sandbox test environment):
) specify credentials required to access APIstrToken = YOUR EBAY TOKEN strDevId = YOUR EBAY DEV ID strAppId = YOUR EBAY APP ID strCertId = YOUR EBAY CERT ID Dim SOAPService As New eBay.eBayAPIInterfaceServiceSOAPService.Url = https://api.sandbox.ebay.com/wsapi & _ ?callname=GetSearchResults&siteid=0&appid= & _ strAppId & version=383 SOAPService.RequesterCredentials = New eBay.CustomSecurityHeaderTypeSOAPService.RequesterCredentials.eBayAuthToken = strTokenSOAPService.RequesterCredentials.Credentials = New eBay.UserIdPasswordTypeSOAPService.RequesterCredentials.Credentials.AppId = strAppIdSOAPService.RequesterCredentials.Credentials.DevId = strDevIdSOAPService.RequesterCredentials.Credentials.AuthCert = strCertIdDim Request As New eBay.GetSearchResultsRequestTypeDim Resp As New eBay.GetSearchResultsResponseType specify the search criteria and versionRequest.Query = txtSearch.TextRequest.Version = 383 call the GetSearchResults method to run the searchResp = SOAPService.GetSearchResults(Request) Dim items As eBay.SearchResultItemTypeDim strOutput As StringIf Resp.SearchResultItemArray Is Nothing Then Exit Sub loop through the results and display the resultsFor Each items In Resp.SearchResultItemArraystrOutput = strOutput & Title: & items.Item.Title &
strOutput = strOutput & Item Id: & items.Item.ItemID &
strOutput = strOutput & Item URL: & _
Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Adult Web Hosting services