Generating html page along with inserting data in database whenever user fills details in feedback form ?

Public Sub feedback()

       'Dim query As DataTable = fill()

       con.Open()
       Dim cmd As New OracleCommand
       cmd.Connection = con
       Dim entr As Date
       entr = Date.Today
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "insert into testerc (fileno,name,email,datesession,q1,q2,q3,q4,q5,q6,q7,q8,remarks) values(:fileno,:name,:email,:datesession,:q1,:q2,:q3,:q4,:q5,:q6,:q7,:q8,:remarks)"
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue(":fileno", lbfile.Text)
       cmd.Parameters.AddWithValue(":name", lbname.Text)
       cmd.Parameters.AddWithValue(":email", lbemail.Text)
       cmd.Parameters.AddWithValue(":datesession", RadDatePicker1.SelectedDate)

       If RadioButton1.Checked = True Then
           cmd.Parameters.AddWithValue(":q1", "Excellent")
       ElseIf RadioButton2.Checked = True Then
           cmd.Parameters.AddWithValue(":q1", "Good")
           ElseIf RadioButton3.Checked = True Then
           cmd.Parameters.AddWithValue(":q1", "Average")
               ElseIf RadioButton4.Checked = True Then
           cmd.Parameters.AddWithValue(":q1", "Poor")
                   End If

       If RadioButton5.Checked = True Then
           cmd.Parameters.AddWithValue(":q2", "Excellent")
       ElseIf RadioButton6.Checked = True Then
           cmd.Parameters.AddWithValue(":q2", "Good")
       ElseIf RadioButton7.Checked = True Then
           cmd.Parameters.AddWithValue(":q2", "Average")
       ElseIf RadioButton8.Checked = True Then
           cmd.Parameters.AddWithValue(":q2", "Poor")
       End If

       If RadioButton9.Checked = True Then
           cmd.Parameters.AddWithValue(":q3", "Excellent")
       ElseIf RadioButton10.Checked = True Then
           cmd.Parameters.AddWithValue(":q3", "Good")
       ElseIf RadioButton11.Checked = True Then
           cmd.Parameters.AddWithValue(":q3", "Average")
       ElseIf RadioButton12.Checked = True Then
           cmd.Parameters.AddWithValue(":q3", "Poor")
       End If

       If RadioButton13.Checked = True Then
           cmd.Parameters.AddWithValue(":q4", "Excellent")
       ElseIf RadioButton14.Checked = True Then
           cmd.Parameters.AddWithValue(":q4", "Good")
       ElseIf RadioButton15.Checked = True Then
           cmd.Parameters.AddWithValue(":q4", "Average")
       ElseIf RadioButton16.Checked = True Then
           cmd.Parameters.AddWithValue(":q4", "Poor")
       End If


       If RadioButton17.Checked = True Then
           cmd.Parameters.AddWithValue(":q5", "Excellent")
       ElseIf RadioButton18.Checked = True Then
           cmd.Parameters.AddWithValue(":q5", "Good")
       ElseIf RadioButton19.Checked = True Then
           cmd.Parameters.AddWithValue(":q5", "Average")
       ElseIf RadioButton20.Checked = True Then
           cmd.Parameters.AddWithValue(":q5", "Poor")
       End If


       If RadioButton21.Checked = True Then
           cmd.Parameters.AddWithValue(":q6", "Excellent")
       ElseIf RadioButton22.Checked = True Then
           cmd.Parameters.AddWithValue(":q6", "Good")
       ElseIf RadioButton23.Checked = True Then
           cmd.Parameters.AddWithValue(":q6", "Average")
       ElseIf RadioButton24.Checked = True Then
           cmd.Parameters.AddWithValue(":q6", "Poor")
       End If


       If RadioButton25.Checked = True Then
           cmd.Parameters.AddWithValue(":q7", "Excellent")
       ElseIf RadioButton26.Checked = True Then
           cmd.Parameters.AddWithValue(":q7", "Good")
       ElseIf RadioButton27.Checked = True Then
           cmd.Parameters.AddWithValue(":q7", "Average")
       ElseIf RadioButton28.Checked = True Then
           cmd.Parameters.AddWithValue(":q7", "Poor")
       End If


       If RadioButton29.Checked = True Then
           cmd.Parameters.AddWithValue(":q8", "Excellent")
       ElseIf RadioButton30.Checked = True Then
           cmd.Parameters.AddWithValue(":q8", "Good")
       ElseIf RadioButton31.Checked = True Then
           cmd.Parameters.AddWithValue(":q8", "Average")
       ElseIf RadioButton32.Checked = True Then
           cmd.Parameters.AddWithValue(":q8", "Poor")
       End If

       cmd.Parameters.AddWithValue(":remarks", lbremarks.Text)
                   cmd.ExecuteNonQuery()


                   Response.Write("<script type=""text/javascript""> alert('Done!');</script>")
   End Sub