<%@ Page Language="vb" Debug="true" %>
<%@ Assembly Src="search.vb" %>
<%@ Import Namespace="System.Data" %>
<SCRIPT runat="server">
'costante indicante il numero di righe per pagina
private const righe=10
  
dim start_index as integer
  Dim query as String

private Sub Page_Load(byval sender as object,e as eventArgs)
  response.expires=0
  if ispostback then exit sub
  start_index=0
  bindResults
End sub
  
private Sub bindResults()
  dim s as new GoogleSearchService()
  dim r as GoogleSearchResult
  'query = Request("query")
  query = "ASPItalia.com"

  'richiamo il webservice - sostistuire key con la propria chiave
  r = s.doGoogleSearch("key",query,start_index*righe,righe,false ,"",false,"","","")
  
  trovati.Text = r.estimatedTotalResultsCount
  'se non ha prodotto alcuni risultato allora salta il resto
  if ubound(r.resultElements)=-1 then exit sub
  
  ' nuova datable con i risultati
  dim dt as new DataTable()
  dt.columns.Add("url")
  dt.columns.Add("title")
  dt.columns.Add("summary")
  dt.columns.Add("cache")
  dim i as byte
  dim riga as dataRow
  'informo il datagrid del totale degli item
  'visto che utilizzo una customPaging
  results.VirtualItemCount=r.estimatedTotalResultsCount
  
  ' popolo
  for i=0 to ubound(r.resultElements)-1
    riga=dt.NewRow
    riga("url")=r.resultElements(i).url
    riga("title")=r.resultElements(i).title
    riga("summary")=r.resultElements(i).snippet
    riga("cache")=r.resultElements(i).cachedSize
    dt.rows.add(riga)
  next i

    ' associazione dati e databinding
    results.dataSource=dt
    results.databind()
    'distruggo logicamente gli oggetti
    r=Nothing
    s=Nothing

End sub
  
private Sub changePage(sender as Object , e as DataGridPageChangedEventArgs)
  results.CurrentPageIndex=e.NewPageIndex
  start_index=e.NewPageIndex
  bindResults
End sub

</SCRIPT>
<form runat="server">
<p>Risultato della ricerca</p>
<p>Trovati <asp:literal id="trovati" runat="server"></asp:literal>
elementi corrispondenti alla parola di ricerca: <b><%=query%></b>