Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Text.RegularExpressions
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim literalOutput, mlsNumberReadout, mlsListingSearch, mlsListingDetail, mlsVirtualTour As String
        If Not IsPostBack Then
            '
            Dim SQLConnection As New SqlConnection
            Dim SQLDataAdapter As New SqlDataAdapter
            Dim SQLDataReader As SqlDataReader
            SQLConnection.ConnectionString = "Data Source = justtrust; Initial Catalog = that; User ID = this; Password = works;"
            Dim SelectString As String = "select ListingNumber, ListingSearchHitCount, ListingDetailHitCount, VirtualTourHitCount from FNIS.dbo.ListingHitCountCurrent, RAN.dbo.Heartland_Residential where Heartland_Residential.LIST_AGENT_1_ID = '" & Request("agentname") & "' and Heartland_Residential.MLS_Number = FNIS.dbo.ListingHitCountCurrent.ListingNumber and Heartland_Residential.Status = 'A'"
            SQLConnection.Open()
            SQLDataAdapter.SelectCommand = New SqlCommand(SelectString, SQLConnection)
            SQLDataReader = SQLDataAdapter.SelectCommand.ExecuteReader()
            If (SQLDataReader.HasRows) Then
                SQLDataReader.Read()
                Dim newListItem As New ListItem()
                newListItem.Text = SQLDataReader("ListingNumber")
                newListItem.Value = SQLDataReader("ListingNumber")
                mlsSelect.Items.Add(newListItem)
                mlsNumberReadout = SQLDataReader("ListingNumber")
                mlsListingSearch = SQLDataReader("ListingSearchHitCount")
                mlsListingDetail = SQLDataReader("ListingDetailHitCount")
                mlsVirtualTour = SQLDataReader("VirtualTourHitCount")
                While SQLDataReader.Read()
                    Dim listItem As New ListItem()
                    listItem.Text = SQLDataReader("ListingNumber")
                    listItem.Value = SQLDataReader("ListingNumber")
                    mlsSelect.Items.Add(listItem)
                End While
            Else
                mlsSelect.Items.Add("No listings found...")
                mlsNumberReadout = ""
                mlsListingSearch = ""
                mlsListingDetail = ""
                mlsVirtualTour = ""
            End If
            literalOutput = "<table border=""1"">"
            literalOutput = literalOutput & "<tr>"
            literalOutput = literalOutput & "<th>MLS Number<th>"
            literalOutput = literalOutput & "<th>Listing Search Hits<th>"
            literalOutput = literalOutput & "<th>Listing Detail Hits<th>"
            literalOutput = literalOutput & "<th>Virtual Tour Hits<th>"
            literalOutput = literalOutput & "</tr>"
            literalOutput = literalOutput & "<tr>"
            literalOutput = literalOutput & "<td>" & mlsNumberReadout & "<td>"
            literalOutput = literalOutput & "<td>" & mlsListingSearch & "<td>"
            literalOutput = literalOutput & "<td>" & mlsListingDetail & "<td>"
            literalOutput = literalOutput & "<td>" & mlsVirtualTour & "<td>"
            literalOutput = literalOutput & "</tr>"
            literalOutput = literalOutput & "</table>"
            widgetLiteral.Text = literalOutput
            SQLConnection.Close()
        Else
            literalOutput = "Select Value: " & mlsSelect.SelectedIndex & " Select Text: " & mlsSelect.Text
            widgetLiteral.Text = literalOutput
        End If
    End Sub

    Protected Sub mlsSelect_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mlsSelect.SelectedIndexChanged, mlsSelect.TextChanged
        Dim SQLConnection As New SqlConnection
        Dim SQLDataAdapter As New SqlDataAdapter
        Dim SQLDataReader As SqlDataReader
        Dim literalOutput, mlsNumberReadout, mlsListingSearch, mlsListingDetail, mlsVirtualTour As String
            SQLConnection.ConnectionString = "Data Source = justtrust; Initial Catalog = that; User ID = this; Password = works;"
        Dim SelectString As String = "select ListingNumber, ListingSearchHitCount, ListingDetailHitCount, VirtualTourHitCount from FNIS.dbo.ListingHitCountCurrent, RAN.dbo.Heartland_Residential where Heartland_Residential.LIST_AGENT_1_ID = '" & Request("agentname") & "' and Heartland_Residential.MLS_Number = FNIS.dbo.ListingHitCountCurrent.ListingNumber and Heartland_Residential.Status = 'A' and ListingNumber = " & mlsSelect.Text
        SQLConnection.Open()
        SQLDataAdapter.SelectCommand = New SqlCommand(SelectString, SQLConnection)
        SQLDataReader = SQLDataAdapter.SelectCommand.ExecuteReader()
        SQLDataReader.Read()
        mlsNumberReadout = SQLDataReader("ListingNumber")
        mlsListingSearch = SQLDataReader("ListingSearchHitCount")
        mlsListingDetail = SQLDataReader("ListingDetailHitCount")
        mlsVirtualTour = SQLDataReader("VirtualTourHitCount")
        literalOutput = "<table border=""1"">"
        literalOutput = literalOutput & "<tr>"
        literalOutput = literalOutput & "<th>MLS Number<th>"
        literalOutput = literalOutput & "<th>Listing Search Hits<th>"
        literalOutput = literalOutput & "<th>Listing Detail Hits<th>"
        literalOutput = literalOutput & "<th>Virtual Tour Hits<th>"
        literalOutput = literalOutput & "</tr>"
        literalOutput = literalOutput & "<tr>"
        literalOutput = literalOutput & "<td>" & mlsNumberReadout & "<td>"
        literalOutput = literalOutput & "<td>" & mlsListingSearch & "<td>"
        literalOutput = literalOutput & "<td>" & mlsListingDetail & "<td>"
        literalOutput = literalOutput & "<td>" & mlsVirtualTour & "<td>"
        literalOutput = literalOutput & "</tr>"
        literalOutput = literalOutput & "</table>"
        widgetLiteral.Text = literalOutput
        SQLConnection.Close()
    End Sub
End Class