Visual Basic

XPathDocument surveyDoc = new XPathDocument(Server.MapPath("ExSurvey.xml"));
XPathNodeIterator itr = surveyDoc.CreateNavigator().Select("//question");
System.Text.StringBuilder sb;
sb = new System.Text.StringBuilder();
sb.Append("Survey submitted on " + DateTime.Now + Environment.NewLine);
while (itr.MoveNext()) {
  string controlName = itr.Current.GetAttribute("name", "");
  sb.Append(controlName);
  sb.Append(" : ");
  object ctrl = FindControl(controlName);
    if (ctrl is TextBox) {
      sb.Append(((TextBox)ctrl).Text);
    }
    if (ctrl is RadioButtonList) {
      if (((RadioButtonList)ctrl).SelectedItem != null) {
        sb.Append(((RadioButtonList)ctrl).SelectedItem.Value);
      }
    }
  sb.Append(Environment.NewLine);
}
string body = sb.ToString();

Dim surveyDoc As XPathDocument = New XPathDocument(Server.MapPath("ExSurvey.xml"))
Dim itr As XPathNodeIterator = surveyDoc.CreateNavigator().Select("//question")
Dim sb As System.Text.StringBuilder
sb = New System.Text.StringBuilder()
sb.Append("Survey submitted on " + DateTime.Now + "<br>")
While (itr.MoveNext())
  Dim controlName As String = itr.Current.GetAttribute("name", "")
  sb.Append(controlName)
  sb.Append(" : ")
  Dim ctrl As Object = FindControl(controlName)
  If (TypeOf ctrl Is TextBox) Then
    Dim myTextBox As New TextBox()
    myTextBox = ctrl
    sb.Append(myTextBox.Text + "<br>")
  End If
  If (TypeOf ctrl Is RadioButtonList) Then
    Dim myRadioButtonList As New TextBox()
    myRadioButtonList = ctrl
    If (Not myRadioButtonList.SelectedItem Is Nothing) Then
      sb.Append(myRadioButtonList.SelectedItem.Value.ToString + "<br>")
    End If
  End If
  sb.Append("<br>")
End While
Dim body As String = sb.ToString()