求助!!asp.net这个代码哪里出错了?
Imports System.IO
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
Dim strMessage As String
strMessage = "姓名:" & Text1.Value
strMessage = "密码:" & Password1.Value
If Radio1.Checked = "True" Then
strMessage = strMessage & "<br>性别:" & Radio1.Value
ElseIf Radio2.Checked = "True" Then
strMessage = strMessage & "<br>性别:" & Radio2.Value
End If
If Checkbox1.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好1:" & Checkbox1.Value
End If
If Checkbox2.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好2:" & Checkbox2.Value
End If
If Checkbox3.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好3:" & Checkbox3.Value
End If
strMessage = strMessage & "<br>职业:" & Select1.Value
strMessage = strMessage & "<br>简介:" & TextArea1.Value
message.InnerHtml = strMessage
End Sub
End Class