Public Function SendAnswer(ByVal Answer As String, ByVal Mail As String, ByVal Signature As String) As String

        Dim oDserv As New DataServices.DataServices

        Dim cmd As New SqlCommand("spInsertGuestAnswers", oDserv.sqlCNN)

        Dim prm As SqlParameter



        prm = New SqlParameter("@Answer", SqlDbType.NVarChar, 1000)

        prm.Value = Answer

        cmd.Parameters.Add(prm)



        prm = New SqlParameter("@Mail", SqlDbType.NVarChar, 50)

        prm.Value = Mail

        cmd.Parameters.Add(prm)



        prm = New SqlParameter("@Sign", SqlDbType.NVarChar, 50)

        prm.Value = Signature

        cmd.Parameters.Add(prm)



        Try

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            Return ex.Message

        Finally

            oDserv = Nothing

            cmd.Dispose()

        End Try