Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 229
  • Last Modified:

How can some fields remain emty?

Hi experts,

I am having some difficulty to understand how can some fields on the below form can be inserted blank to my database.
http://aggieaccess.tamu.edu/OnlineApplications/AALC/Freshman.aspx 

first i thought it was a problem with the required field validators, i asked a question here for that and recieved good responses
http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/ASP_DOT_NET/Q_21381916.html 
now i do not think that is the problem any more because after all said in this question i still recieve some applications Question fields missing.

so, i would like to ask you to check out this online application http://aggieaccess.tamu.edu/OnlineApplications/AALC/Freshman.aspx 
and tell me how can Question fields at the bottom of form can be inserted to the database.

i am using MS access as my backend

thanks,

0
cakirfatih
Asked:
cakirfatih
  • 7
  • 5
  • 4
  • +1
1 Solution
 
ayha1999Commented:
Hi,

Could u pls. post the code on how you validating the page?

ayha
0
 
raterusCommented:
Yes, I'd love to see that too
0
 
raterusCommented:
Actually, I'd like to see your code behind Button1, the main submit button
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
cakirfatihAuthor Commented:
this is what i have at the page load
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txtAppType.Text = "Regents Web Application"
        If IsPostBack = True Then
            Page.Validate()
            If Not Page.IsValid Then
                Return
            End If
        End If
    End Sub

------------------------------

other than this i am not using anything, just required field validators on the form

i have tested this application almost hundred times and i think that my code should not be a problem?

0
 
ayha1999Commented:
Hi,

Please post the code where you are executing your query.

ayha
0
 
raterusCommented:
Well, for starters, I see a huge problem...You shouldn't be testing for Page.IsValid in Page_Load, this is doing absolutely no good.  You MUST do this in Button1_Click.  Nothing is stopping the submittal process from occuring if you haven't added similar code there.  Like I mentioned in your other post, it should look like this

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Page.Validate()
     If Page.IsValid() Then
        SubmitApplication()
     End If
End Sub
0
 
ayha1999Commented:
Hey cakirfatih,

We have already mentioned in your other post on how to solve your problem. At least you should have tried that method we suggested and see the result. Otherwise you will be wasting our time for nothing. We suggest a solution and you try in you own way.

In this situation you can try your own way. No need to post questions:)

ayha
0
 
raterusCommented:
cakirfatih, Page_Load should be used as a Sub to load up the page when it first loads, you shouldn't be doing anything else in this sub each time the page loads.  It should look like this and only this.

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'don't add stuff here

        If Not Page.IsPostBack Then
           'Do stuff when client first connects to the page, nothing more
        End If

        'don't add stuff here
    End Sub
0
 
ayha1999Commented:
Hi,

I just repeat my solution in you other post.

If page.IsValid Then
     YouCmd.ExecuteNoneQuery
End

This will validate your page if it is not validated from client side.

ayha

0
 
cakirfatihAuthor Commented:
thanks for the responses again guys,

until today i did not have this part
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txtAppType.Text = "Regents Web Application"
        If IsPostBack = True Then
            Page.Validate()
            If Not Page.IsValid Then
                Return
            End If
        End If
    End Sub
------------------------------------------------------- i only had the following, here is my Button1 click , sorry for the amatuer code.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim Cmd1 As OleDbCommand
        Dim Cmd2 As OleDbCommand
        Dim Cmd3 As OleDbCommand
        Dim Cmd4 As OleDbCommand
        Dim Cmd5 As OleDbCommand
        Dim Cmd6 As OleDbCommand
        Dim Cmd7 As OleDbCommand
        Dim Cmd8 As OleDbCommand

        Dim strDSN As String
        strDSN = Get_DSN()

        Dim Conn As New OleDbConnection(strDSN)

        Dim InsertStudent As String = "INSERT INTO Students(UIN, Date_Inserted,AppType, Fname, Lname, NickName, Address1, Address2, City, State, Zip, Birthplace, Birthday, Gender, Phone, Email, ConferenceDate, TshirtSize, Citizen, Permanent, LegalState, OptionTHEA, ExamDate,ExemptReason, CheckTHEA )" & _
                                        "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtAppType.Text & "','" & txtFirstName.Text & "','" & txtLastName.Text & "', '" & txtNickName.Text & "', '" & txtAddress1.Text & "','" & txtAddress2.Text & "','" & txtCity.Text & "','" & txtState.Text & "','" & txtZip.Text & "','" & txtBirthPlace.Text & "', '" & txtBirthday.Text & "', '" & radListGender.SelectedValue.ToString & "','" & txtPhone.Text & "','" & txtEmail.Text & "', '" & txtDate.Text & "','" & radListTshirt.SelectedValue.ToString & "', '" & radListUS.SelectedValue.ToString & "', '" & radListResident.SelectedValue.ToString & "', '" & txtLegalState.Text & "', '" & radListTHEA.SelectedValue.ToString & "', '" & txtExamDate.Text & "', '" & txtExempt.Text & "', " & CType(chkTHEA.Checked, String) & ")"

        Dim InsertParent As String = "INSERT INTO Parents(UIN, Date_Inserted, FatherName, FatherAddress, FatherPhone, FatherEmail, MotherName, MotherAddress, MotherPhone, MotherEmail )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtFatherName.Text & "','" & txtFatherAddress.Text & "','" & txtFatherPhone.Text & "','" & txtFatherEmail.Text & "','" & txtMotherName.Text & "','" & txtMotherAddress.Text & "','" & txtMotherPhone.Text & "','" & txtMotherEmail.Text & "')"

        Dim InsertAcademicProfile As String = "INSERT INTO AcademicProfile(UIN, Date_Inserted, College, Major, [Option], AlternateMajor, AlternateOption )" & _
                                            "Values ('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "', '" & radListCollege.SelectedValue.ToString & "', '" & txtMajor1.Text & "', '" & txtOption1.Text & "', '" & txtMajor2.Text & "', '" & txtOption2.Text & "')"

        Dim InsertFinance As String = "INSERT INTO FinancialProfile(UIN, Date_Inserted, AnnualIncome, HouseholdNumber, CollegeStudents,Check4, Check1, StudentLoans, Grants, Academic, NeedBased, WorkStudy, Check2, Regents, Century, Other, OtherText, Check3, Hours, FinAid )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtIncome.Text & "','" & txtHousehold.Text & "','" & txtFall05.Text & "'," & CType(chkFAFSA.Checked, String) & "," & CType(chkGrants.Checked, String) & "," & CType(chk1.Checked, String) & "," & CType(chk2.Checked, String) & "," & CType(chk3.Checked, String) & "," & CType(chk4.Checked, String) & "," & CType(chk5.Checked, String) & "," & CType(chkOffered.Checked, String) & "," & CType(chk6.Checked, String) & "," & CType(chk7.Checked, String) & "," & CType(chk8.Checked, String) & ",'" & txtChk8.Text & "'," & CType(chkWork.Checked, String) & ",'" & txtChkWork.Text & "','" & txtFinAid.Text & "')"


        Dim InsertActivities As String = "INSERT INTO CollegeActivities(UIN, Date_Inserted, AggieBand, Cadets, Music, Sorority, Government, MSC, Fraternity, ExCEL, Fish, Hall, OnCampus, LLConCampus, OfCampus )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "'," & CType(chk13.Checked, String) & ", " & CType(chk14.Checked, String) & ", " & CType(chk15.Checked, String) & ", " & CType(chk16.Checked, String) & ", " & CType(chk17.Checked, String) & ", " & CType(chk18.Checked, String) & ", " & CType(chk19.Checked, String) & ", " & CType(chk20.Checked, String) & ", " & CType(chk21.Checked, String) & ", " & CType(chk22.Checked, String) & ", " & CType(chk23.Checked, String) & ", " & CType(chk24.Checked, String) & ", " & CType(chk25.Checked, String) & ")"

        Dim InsertQuestions As String = "INSERT INTO Questions(UIN, Date_Inserted, Question1, Question2, Question3, Question4, Question5, Question6 )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "', '" & txtQ1.Text & "', '" & txtQ2.Text & "', '" & txtQ3.Text & "', '" & txtQ4.Text & "', '" & txtQ5.Text & "', '" & txtQ6.Text & "')"



        Conn = New OleDbConnection(strDSN)

        Cmd1 = New OleDbCommand(InsertStudent, Conn)
        Cmd2 = New OleDbCommand(InsertParent, Conn)
        Cmd3 = New OleDbCommand(InsertAcademicProfile, Conn)
        Cmd4 = New OleDbCommand(InsertFinance, Conn)
        Cmd5 = New OleDbCommand(InsertActivities, Conn)
        Cmd6 = New OleDbCommand(InsertQuestions, Conn)



        If Conn.State <> ConnectionState.Open Then
            Conn.Open()
        End If

        If Page.IsValid = True Then

            Try
                Cmd1.ExecuteNonQuery()
                Cmd2.ExecuteNonQuery()
                Cmd3.ExecuteNonQuery()
                Cmd4.ExecuteNonQuery()
                Cmd5.ExecuteNonQuery()
                Cmd6.ExecuteNonQuery()

                If txtCourseNo1.Text <> "" OrElse txtIntentNo1.Text <> "" Then
                    AddCourse(txtCourseNo1.Text.ToString, txtCourseTitle1.Text.ToString, txtHours1.Text.ToString, txtCredit1.Text.ToString, txtIntentNo1.Text.ToString, txtIntentTitle1.Text.ToString, txtIntentHours1.Text.ToString, txtIntentCredit1.Text.ToString)
                End If

                If txtCourseNo2.Text <> "" OrElse txtIntentNo2.Text <> "" Then
                    AddCourse(txtCourseNo2.Text.ToString, txtCourseTitle2.Text.ToString, txtHours2.Text.ToString, txtCredit2.Text.ToString, txtIntentNo2.Text.ToString, txtIntentTitle2.Text.ToString, txtIntentHours2.Text.ToString, txtIntentCredit2.Text.ToString)
                End If

                If txtCourseNo3.Text <> "" OrElse txtIntentNo3.Text <> "" Then
                    AddCourse(txtCourseNo3.Text.ToString, txtCourseTitle3.Text.ToString, txtHours3.Text.ToString, txtCredit3.Text.ToString, txtIntentNo3.Text.ToString, txtIntentTitle3.Text.ToString, txtIntentHours3.Text.ToString, txtIntentCredit3.Text.ToString)
                End If

                If txtCourseNo4.Text <> "" OrElse txtIntentNo4.Text <> "" Then
                    AddCourse(txtCourseNo4.Text.ToString, txtCourseTitle4.Text.ToString, txtHours4.Text.ToString, txtCredit4.Text.ToString, txtIntentNo4.Text.ToString, txtIntentTitle4.Text.ToString, txtIntentHours4.Text.ToString, txtIntentCredit4.Text.ToString)
                End If

                If txtCourseNo5.Text <> "" OrElse txtIntentNo5.Text <> "" Then
                    AddCourse(txtCourseNo5.Text.ToString, txtCourseTitle5.Text.ToString, txtHours5.Text.ToString, txtCredit5.Text.ToString, txtIntentNo5.Text.ToString, txtIntentTitle5.Text.ToString, txtIntentHours5.Text.ToString, txtIntentCredit5.Text.ToString)
                End If

                If txtCourseNo6.Text <> "" OrElse txtIntentNo6.Text <> "" Then
                    AddCourse(txtCourseNo6.Text.ToString, txtCourseTitle6.Text.ToString, txtHours6.Text.ToString, txtCredit6.Text.ToString, txtIntentNo6.Text.ToString, txtIntentTitle6.Text.ToString, txtIntentHours6.Text.ToString, txtIntentCredit6.Text.ToString)
                End If

            Catch ex As Exception
                Response.Write(ex.ToString)
            Finally
                Conn.Close()
                Conn = Nothing
            End Try

            Dim FirstName, LastName As String
            Dim EmailBody As String
            Dim StudentEmail As String

            FirstName = txtFirstName.Text
            LastName = txtLastName.Text
            StudentEmail = txtEmail.Text

            EmailBody = "Dear " & FirstName & " " & LastName & vbCrLf & vbCrLf
            EmailBody &= "Thank you for your Access Learning Communities online application. "
            EmailBody &= "The Access Learning Communities Selection Committee looks forward to reviewing your application. "
            EmailBody &= "You may be contacted for more information during the selection process or if your materials are incomplete. "
            EmailBody &= "Decisions about your placement in the Access Learning Communities will be made by mid-May and you will receive a decision letter at that time. " & vbCrLf & vbCrLf

            EmailBody &= "If you are interested in the Access Living-Learning Community in Fowler Hall, please be sure to fax or mail the LLC Option Request form; that form may not be completed online because it requires your signature. " & vbCrLf & vbCrLf

            EmailBody &= "You may stay up-to-date on the Access Learning Communities with the Access Forum at http://aggieaccess.tamu.edu/forum/ or via the access website at http://aggieaccess.tamu.edu " & vbCrLf & vbCrLf

            EmailBody &= "If you have questions about the selection process or Access Learning Communities, please do not hesitate to call the Access office at 979-8345-5916 during work hours or by email at access@gap.tamu.edu.  " & vbCrLf & vbCrLf

            EmailBody &= "We hope to meet you soon. Welcome to Texas A&M! " & vbCrLf & vbCrLf

            EmailBody &= "Access Learning Communities Staff " & vbCrLf
            EmailBody &= "Texas A&M University " & vbCrLf
            EmailBody &= "4247 TAMU " & vbCrLf
            EmailBody &= "College Station TX 77843-4247 " & vbCrLf
            EmailBody &= "979-845-5916  FAX: 979-458-4796 " & vbCrLf
            EmailBody &= "access@gap.tamu.edu  " & vbCrLf


            SendEmail(StudentEmail, "access@gap.tamu.edu", "access@gap.tamu.edu", "Your Aggie Access Application", EmailBody)

            Response.Redirect("thankyou.aspx")

        End If
End Sub

--------------------------------------------------
0
 
cakirfatihAuthor Commented:
what i mean is only with the above code i recieved two more applications with some fields missing...

i guess this was one of the answers to my previous question
there is no way i will try to do myself while i have answers from experts here...
0
 
cakirfatihAuthor Commented:
i posted this question, because i thought there might be other problems in my application

now what should i do guys?
have you ever tried my application by the way?
0
 
raterusCommented:
<bangs head on table>  Here, This is what we've been trying to tell you for the last 3 days

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Page.Validate()
    If Page.IsValid = True Then
        Dim Cmd1 As OleDbCommand
        Dim Cmd2 As OleDbCommand
        Dim Cmd3 As OleDbCommand
        Dim Cmd4 As OleDbCommand
        Dim Cmd5 As OleDbCommand
        Dim Cmd6 As OleDbCommand
        Dim Cmd7 As OleDbCommand
        Dim Cmd8 As OleDbCommand

        Dim strDSN As String
        strDSN = Get_DSN()

        Dim Conn As New OleDbConnection(strDSN)

        Dim InsertStudent As String = "INSERT INTO Students(UIN, Date_Inserted,AppType, Fname, Lname, NickName, Address1, Address2, City, State, Zip, Birthplace, Birthday, Gender, Phone, Email, ConferenceDate, TshirtSize, Citizen, Permanent, LegalState, OptionTHEA, ExamDate,ExemptReason, CheckTHEA )" & _
                                        "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtAppType.Text & "','" & txtFirstName.Text & "','" & txtLastName.Text & "', '" & txtNickName.Text & "', '" & txtAddress1.Text & "','" & txtAddress2.Text & "','" & txtCity.Text & "','" & txtState.Text & "','" & txtZip.Text & "','" & txtBirthPlace.Text & "', '" & txtBirthday.Text & "', '" & radListGender.SelectedValue.ToString & "','" & txtPhone.Text & "','" & txtEmail.Text & "', '" & txtDate.Text & "','" & radListTshirt.SelectedValue.ToString & "', '" & radListUS.SelectedValue.ToString & "', '" & radListResident.SelectedValue.ToString & "', '" & txtLegalState.Text & "', '" & radListTHEA.SelectedValue.ToString & "', '" & txtExamDate.Text & "', '" & txtExempt.Text & "', " & CType(chkTHEA.Checked, String) & ")"

        Dim InsertParent As String = "INSERT INTO Parents(UIN, Date_Inserted, FatherName, FatherAddress, FatherPhone, FatherEmail, MotherName, MotherAddress, MotherPhone, MotherEmail )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtFatherName.Text & "','" & txtFatherAddress.Text & "','" & txtFatherPhone.Text & "','" & txtFatherEmail.Text & "','" & txtMotherName.Text & "','" & txtMotherAddress.Text & "','" & txtMotherPhone.Text & "','" & txtMotherEmail.Text & "')"

        Dim InsertAcademicProfile As String = "INSERT INTO AcademicProfile(UIN, Date_Inserted, College, Major, [Option], AlternateMajor, AlternateOption )" & _
                                            "Values ('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "', '" & radListCollege.SelectedValue.ToString & "', '" & txtMajor1.Text & "', '" & txtOption1.Text & "', '" & txtMajor2.Text & "', '" & txtOption2.Text & "')"

        Dim InsertFinance As String = "INSERT INTO FinancialProfile(UIN, Date_Inserted, AnnualIncome, HouseholdNumber, CollegeStudents,Check4, Check1, StudentLoans, Grants, Academic, NeedBased, WorkStudy, Check2, Regents, Century, Other, OtherText, Check3, Hours, FinAid )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "','" & txtIncome.Text & "','" & txtHousehold.Text & "','" & txtFall05.Text & "'," & CType(chkFAFSA.Checked, String) & "," & CType(chkGrants.Checked, String) & "," & CType(chk1.Checked, String) & "," & CType(chk2.Checked, String) & "," & CType(chk3.Checked, String) & "," & CType(chk4.Checked, String) & "," & CType(chk5.Checked, String) & "," & CType(chkOffered.Checked, String) & "," & CType(chk6.Checked, String) & "," & CType(chk7.Checked, String) & "," & CType(chk8.Checked, String) & ",'" & txtChk8.Text & "'," & CType(chkWork.Checked, String) & ",'" & txtChkWork.Text & "','" & txtFinAid.Text & "')"


        Dim InsertActivities As String = "INSERT INTO CollegeActivities(UIN, Date_Inserted, AggieBand, Cadets, Music, Sorority, Government, MSC, Fraternity, ExCEL, Fish, Hall, OnCampus, LLConCampus, OfCampus )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "'," & CType(chk13.Checked, String) & ", " & CType(chk14.Checked, String) & ", " & CType(chk15.Checked, String) & ", " & CType(chk16.Checked, String) & ", " & CType(chk17.Checked, String) & ", " & CType(chk18.Checked, String) & ", " & CType(chk19.Checked, String) & ", " & CType(chk20.Checked, String) & ", " & CType(chk21.Checked, String) & ", " & CType(chk22.Checked, String) & ", " & CType(chk23.Checked, String) & ", " & CType(chk24.Checked, String) & ", " & CType(chk25.Checked, String) & ")"

        Dim InsertQuestions As String = "INSERT INTO Questions(UIN, Date_Inserted, Question1, Question2, Question3, Question4, Question5, Question6 )" & _
                                    "Values('" & txtUIN.Text & "','" & Now.ToString("yyyy-MM-dd HH:mm:ss") & "', '" & txtQ1.Text & "', '" & txtQ2.Text & "', '" & txtQ3.Text & "', '" & txtQ4.Text & "', '" & txtQ5.Text & "', '" & txtQ6.Text & "')"



        Conn = New OleDbConnection(strDSN)

        Cmd1 = New OleDbCommand(InsertStudent, Conn)
        Cmd2 = New OleDbCommand(InsertParent, Conn)
        Cmd3 = New OleDbCommand(InsertAcademicProfile, Conn)
        Cmd4 = New OleDbCommand(InsertFinance, Conn)
        Cmd5 = New OleDbCommand(InsertActivities, Conn)
        Cmd6 = New OleDbCommand(InsertQuestions, Conn)



        If Conn.State <> ConnectionState.Open Then
            Conn.Open()
        End If


        Try
            Cmd1.ExecuteNonQuery()
            Cmd2.ExecuteNonQuery()
            Cmd3.ExecuteNonQuery()
            Cmd4.ExecuteNonQuery()
            Cmd5.ExecuteNonQuery()
            Cmd6.ExecuteNonQuery()

            If txtCourseNo1.Text <> "" OrElse txtIntentNo1.Text <> "" Then
                AddCourse(txtCourseNo1.Text.ToString, txtCourseTitle1.Text.ToString, txtHours1.Text.ToString, txtCredit1.Text.ToString, txtIntentNo1.Text.ToString, txtIntentTitle1.Text.ToString, txtIntentHours1.Text.ToString, txtIntentCredit1.Text.ToString)
            End If

            If txtCourseNo2.Text <> "" OrElse txtIntentNo2.Text <> "" Then
                AddCourse(txtCourseNo2.Text.ToString, txtCourseTitle2.Text.ToString, txtHours2.Text.ToString, txtCredit2.Text.ToString, txtIntentNo2.Text.ToString, txtIntentTitle2.Text.ToString, txtIntentHours2.Text.ToString, txtIntentCredit2.Text.ToString)
            End If

            If txtCourseNo3.Text <> "" OrElse txtIntentNo3.Text <> "" Then
                AddCourse(txtCourseNo3.Text.ToString, txtCourseTitle3.Text.ToString, txtHours3.Text.ToString, txtCredit3.Text.ToString, txtIntentNo3.Text.ToString, txtIntentTitle3.Text.ToString, txtIntentHours3.Text.ToString, txtIntentCredit3.Text.ToString)
            End If

            If txtCourseNo4.Text <> "" OrElse txtIntentNo4.Text <> "" Then
                AddCourse(txtCourseNo4.Text.ToString, txtCourseTitle4.Text.ToString, txtHours4.Text.ToString, txtCredit4.Text.ToString, txtIntentNo4.Text.ToString, txtIntentTitle4.Text.ToString, txtIntentHours4.Text.ToString, txtIntentCredit4.Text.ToString)
            End If

            If txtCourseNo5.Text <> "" OrElse txtIntentNo5.Text <> "" Then
                AddCourse(txtCourseNo5.Text.ToString, txtCourseTitle5.Text.ToString, txtHours5.Text.ToString, txtCredit5.Text.ToString, txtIntentNo5.Text.ToString, txtIntentTitle5.Text.ToString, txtIntentHours5.Text.ToString, txtIntentCredit5.Text.ToString)
            End If

            If txtCourseNo6.Text <> "" OrElse txtIntentNo6.Text <> "" Then
                AddCourse(txtCourseNo6.Text.ToString, txtCourseTitle6.Text.ToString, txtHours6.Text.ToString, txtCredit6.Text.ToString, txtIntentNo6.Text.ToString, txtIntentTitle6.Text.ToString, txtIntentHours6.Text.ToString, txtIntentCredit6.Text.ToString)
            End If

        Catch ex As Exception
            Response.Write(ex.ToString)
        Finally
            Conn.Close()
            Conn = Nothing
        End Try

        Dim FirstName, LastName As String
        Dim EmailBody As String
        Dim StudentEmail As String

        FirstName = txtFirstName.Text
        LastName = txtLastName.Text
        StudentEmail = txtEmail.Text

        EmailBody = "Dear " & FirstName & " " & LastName & vbCrLf & vbCrLf
        EmailBody &= "Thank you for your Access Learning Communities online application. "
        EmailBody &= "The Access Learning Communities Selection Committee looks forward to reviewing your application. "
        EmailBody &= "You may be contacted for more information during the selection process or if your materials are incomplete. "
        EmailBody &= "Decisions about your placement in the Access Learning Communities will be made by mid-May and you will receive a decision letter at that time. " & vbCrLf & vbCrLf

        EmailBody &= "If you are interested in the Access Living-Learning Community in Fowler Hall, please be sure to fax or mail the LLC Option Request form; that form may not be completed online because it requires your signature. " & vbCrLf & vbCrLf

        EmailBody &= "You may stay up-to-date on the Access Learning Communities with the Access Forum at http://aggieaccess.tamu.edu/forum/ or via the access website at http://aggieaccess.tamu.edu " & vbCrLf & vbCrLf

        EmailBody &= "If you have questions about the selection process or Access Learning Communities, please do not hesitate to call the Access office at 979-8345-5916 during work hours or by email at access@gap.tamu.edu.  " & vbCrLf & vbCrLf

        EmailBody &= "We hope to meet you soon. Welcome to Texas A&M! " & vbCrLf & vbCrLf

        EmailBody &= "Access Learning Communities Staff " & vbCrLf
        EmailBody &= "Texas A&M University " & vbCrLf
        EmailBody &= "4247 TAMU " & vbCrLf
        EmailBody &= "College Station TX 77843-4247 " & vbCrLf
        EmailBody &= "979-845-5916  FAX: 979-458-4796 " & vbCrLf
        EmailBody &= "access@gap.tamu.edu  " & vbCrLf


        SendEmail(StudentEmail, "access@gap.tamu.edu", "access@gap.tamu.edu", "Your Aggie Access Application", EmailBody)

        Response.Redirect("thankyou.aspx")
    End If


End Sub
0
 
vladimir_kalashnikovCommented:
i tried the app and it let me submit the form completely empty
0
 
cakirfatihAuthor Commented:
how could you do that vladamir?

can you try it again
0
 
cakirfatihAuthor Commented:
what is the browser you are using
0
 
vladimir_kalashnikovCommented:
hmm, i tried it again, and now it doesn't let me leave the fields empty.  not sure what changed, but anyways, i am using firefox, if it matters.
0
 
cakirfatihAuthor Commented:
then raterus' posts solves this problem i guess

sorry if i made it hard to help me on this issue

thanks again
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 7
  • 5
  • 4
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now