ASP.NET

<asp:SqlDataSource ID="SqlDataSource1" runat="server"

<asp:DropdownList ID="tripType" runat="server" class="select " onchange="ShowHideDiv();">
 <asp:ListItem value="">--Select One--</asp:ListItem>
 <asp:ListItem value="one_way_to_airport">One-way trip TO Airport</asp:ListItem>
 <asp:ListItem value="one_way_from_airport">One-way trip FROM Airport</asp:ListItem>
 <asp:ListItem value="round_trip_airport">Round trip involving Airport</asp:ListItem>
 <asp:ListItem value="one_way_no_airport">One-way trip NOT involving Airport</asp:ListItem>
 <asp:ListItem value="round_trip_no_airport">Round trip NOT involving Airport</asp:ListItem>
 <asp:ListItem value="hourly">Hourly/Charter</asp:ListItem>
 <asp:ListItem value="Long_Distance">Long Distance</asp:ListItem>
</asp:DropdownList>


<asp:DropDownList ID="from_city_and_state" runat="server" class="select " >
     <asp:ListItem value="">--Select One--</asp:ListItem>
</asp:DropDownList>

<asp:DropDownList ID="HourlyCharter" runat="server" class="select ">
     <asp:ListItem value="">--Select One--</asp:ListItem>
</asp:DropDownList>

<asp:DropDownList ID="LongDistance" runat="server" class="select ">
  <asp:ListItem value="2">$2 per mile</asp:ListItem>
  <asp:ListItem value="4">$4 per mile</asp:ListItem>
</asp:DropDownList>


        Dim StrSQL As String = ""
        Dim rs As OleDbDataReader
        Dim val As String = tripType.SelectedItem.Value
        If ((val = "one_way_to_airport") Or (val = "one_way_from_airport") Or (val = "round_trip_airport") Or (val = "one_way_no_airport") Or (val = "round_trip_no_airport")) Then
            StrSQL = "select r.fare, r.tip, r.total from Rates r "
            StrSQL += " Where r.city = @city "
            'Response.Write(StrSQL)
            'Response.End()
        ElseIf val = "hourly" Then
            StrSQL = "select distinct h.hourly, Switch([CarTypes] = 'Sedan', 55, [CarTypes] = 'Stretch (6 Passengers)', 75," & _
                 " [CarTypes] = 'Stretch (8 Passengers)', 90, [CarTypes] = 'Stretch (10 Passengers)', 95, " & _
                 " [CarTypes] = 'Stretch (12 Passengers)', 110 ,1=1, 10000)* h.hourly   as Fares, " & _
                 " Switch([CarTypes] = 'Sedan', 55, [CarTypes] = 'Stretch (6 Passengers)', 75," & _
                 " [CarTypes] = 'Stretch (8 Passengers)', 90, [CarTypes] = 'Stretch (10 Passengers)', 95, " & _
                 " [CarTypes] = 'Stretch (12 Passengers)', 110)* h.hourly*0.7 as tip, " & _
                 " Switch([CarTypes]  = 'Sedan', 55, [CarTypes] = 'Stretch (6 Passengers)', 75," & _
                 " [CarTypes] = 'Stretch (8 Passengers)', 90,[CarTypes] = 'Stretch (10 Passengers)', 95, " & _
                 " [CarTypes] = 'Stretch (12 Passengers)', 110, 1=1, 10000)*0.20*h.hourly as gratuity,  " & _
                 " fares+tip+gratuity as total from HourlyRates h " & _
                 " inner join carType c on h.hourly = c.hourly Where h.Hourly = @hourly"
            ' Response.Write(StrSQL)
            'Response.End()
        End If
        ' Initialize Database Connection
        Dim connStr As String = ConfigurationManager.ConnectionStrings("ALSConnectionString").ConnectionString
        Dim conn As New OleDbConnection(connStr)
        Dim cmd As New OleDbCommand(StrSQL, conn)

        'We use parametized query to prevent sql injection attack
        Dim p1 As New OleDbParameter("@city", lblPreviewfromCityState.Text)
        Dim p2 As New OleDbParameter("@hourly", HourlyCharter.SelectedValue)
        cmd.Parameters.Add(p1)
        cmd.Parameters.Add(p2)

        'Now open connection to the db
        conn.Open()

        'open recordset to receive db values
        rs = cmd.ExecuteReader()

        ' This acts like the (Not RecordSource.Eof) in ASP 3.0 to loop and retrieve records.
        While rs.Read()
            '    If rs("city") <> "" Then
            Dim tipValue As Decimal = rs("tip")
            Dim totValue = rs("total")
            '   Else
            '   End If
            Dim tp As String = [String].Format("{0:C}", tipValue)
            Dim tot As String = [String].Format("{0:C}", totValue)
            lblTip.Text = tp
            lblTotal.Text = tot

     End While