Нужна помощь с отправкой session( )

---

На моем форуме я пытаюсь получить сообщение, работая правильно. Я попытался сделать сеанс ("член") = "" пустым, и я получил ошибку, поэтому я добавил фальшивое имя, и теперь он отправляет сообщение.

Я этого не хочу. Я хочу, чтобы он читал, какой член публикует свой "MemberName".

Ошибка (0)(0) была вызвана тем, что когда член регистрируется, он должен получить 1 балл, и я обнаружил, что он не дает этого балла. Причина этого заключается в том, что он заполняет новый член в таблице баллов. Я исправил это, и ошибка (0)(0) исчезла.

Однако мой первоначальный проблема, я пытался найти пример кода или если кто-то может показать мне, почему я, чтобы мое имя или имя (фейк) в: сессии("участник") = "" (не публиковать) сессии("участник") = "вымышленное имя" , (публикует как вымышленное имя). Мне нужно, чтобы он опубликовал "MemberName" на основе члена, выполняющего публикацию.

Пример вопроса таблицы БД
Колонка 1: memQuestion (заголовок) Почему растение зеленеет?
Столбец 2: qPostedBymem (заголовок) Чарльз Смит (поле MemberName)
Колонка 3: qAnswer (заголовок), потому что растения не видят зеленого цвета
Колонка 4: qanswerbymem (заголовок) поддельное имя (MemberName)
Колонка 5: qAnswerDate (заголовок) 09/03/20017

Колонка 4-это проблема. Поддельное имя не появляется в таблице" член " в базе данных. Отношения установлены. Черт возьми, для таких, как я, я не вижу ответа.

Что я уже пробовал:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Button1.Text = "Ask Question" Then
        If TextBox1.Text <> "" Then
            For Each s As String In invalid
                If TextBox1.Text.ToLower.Contains(s) = True Then
                    errMessage.Text = Server.HtmlEncode("Cannot Contain <h1>,<Script>,<input>,<a> etc tags")
                    Exit Sub
                End If
            Next
            con = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0 ;data source=" & Server.MapPath("app_data/SimpleQSet.mdb") & ";")

            com.Connection = con
            Session("member") = ""
            Dim ran As New Random
            Dim qid As String = ran.Next(0, TextBox1.Text.Length)
            com.CommandText = "insert into QuestionList values('" + qid + "','" + TextBox1.Text + "','" + DropDownList1.SelectedValue + "','" + DateTime.Now.ToLongDateString() + "','" + Session("member") + "')"
            con.Open()
            com.ExecuteNonQuery()
            Dim pointCnt As New DataTable
            pointDs = New OleDbDataAdapter("select [points] from Points where Member='" + Session("member") + "'", con)
            pointDs.Fill(pointCnt)
            Dim pnt As Integer = pointCnt.Rows(0)(0) + 1
            com.CommandText = "update points set [points]='" & pnt & "' where member='" & Session("member") & "'"
            com.ExecuteNonQuery()
            con.Close()
        Else
            errMessage.Text = "Question Cannot Be Blank"
        End If
    Else
        Response.Redirect("default.aspx")
    End If
End Sub

---