Imports System.IO
     Imports System.Xml




     Sub getrss()
     Dim jobtitle As String
     Dim company As String
     Dim city As String
     Dim state As String
     Dim source As String
     Dim thedate As String
     Dim snippet As String
     Dim url As String
     Dim jobkey As String     
     Dim thequery As String = "auto body " & TextBox1.Text
     Dim location As String = DropDownList1.SelectedValue.ToString
     Dim userip As String = Request.ServerVariables("REMOTE_ADDR").ToString
     Dim theurl As String = String.Format("http://api.indeed.com/ads/apisearch?publisher=649911139103778&q={0}&l={1}&sort=&radius=&st=&jt=&start=1&limit=50&fromage=%20&filter=0&latlong=1&userip={3}&useragent=Mozilla/%2F4.0%28Firefox%29", thequery, location, userip)
       Try
         Dim m_xmld As XmlDocument
         Dim m_nodelist As XmlNodeList
         Dim m_node As XmlNode m_xmld = New XmlDocument()
         m_xmld.Load(theurl)
         m_nodelist = m_xmld.SelectNodes("/response/results/result")
         For Each m_node In m_nodelist
             JobTitle = m_node.ChildNodes.Item(0).InnerText
             company  = m_node.ChildNodes.Item(1).InnerText
             City= m_node.ChildNodes.Item(2).InnerText
             State= m_node.ChildNodes.Item(3).InnerText
             Source= m_node.ChildNodes.Item(5).InnerText
             TheDate = System.DateTime.Now.ToString
             snippet = m_node.ChildNodes.Item(7).InnerText
             url = m_node.ChildNodes.Item(8).InnerText
             jobkey = m_node.ChildNodes.Item(12).InnerText
             'insertrecord(jobtitle, company, city, state, source, thedate, snippet, url, jobkey)
             Next
         Catch errorVariable As Exception 'Error trapping
         End Try
    End Sub