Protected Sub calculatememButton_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
calculatememButton.Click
 
        Dim
E_member As Double
        Dim
W_member As Double
        Dim
E_result As String
        Dim
w_result As String
        Dim
e_factor As Double
        Dim
w_factor As Double
 
        E_member = electricitytxtmem.Text
        W_member = watertxtmem.Text
        E_result = E_result_mem_lbl.Text
        w_result = W_result_mem_lbl.Text
        e_factor = e_mem_f_DropDownList.Text
        w_factor = W_mem_f_DropDownList.Text
 
        E_result = E_member * e_factor
        w_result = W_member * w_factor
 
 
        If
IsDBNull(objReader("E_result")) = False Then
            E_result_mem_lbl.Text = " * The value you've entered is: ( "
& E_member & " ) and this value
represents your Electrecity consumption rate for building 1. <br>
<br> * Your Electricity carbon footprint is: (" &
E_result & ") Metric Tons."
        ElseIf
            IsDBNull(objReader("E_result")) = True
Then
            W_result_mem_lbl.Text = "* The value you've entered is: ( "
& W_member & " ) and this value
represents your Water consumption rate for building 1.  <br> <br>   * Your water carbon footprint is: ("
& w_result & ") Metric tons."
        Else
            Response.Write.("")
        End If
 
 
    End Sub