This question has already been solved
You
Have something to say? Contribute New Article Reply to this Article
feedback form in vb
" & _
"" & _
"Time Submited: " + DateTime.Now & _
"
" & vbCrLf & _
"Sentby: " & firstname.Text & " " & middlename.Text & " " & lastname.Text & "." & vbCrLf & vbCrLf & _
"
" & vbCrLf & _
"General Info" & vbCrLf & _
"First Name: " & firstname.Text & vbCrLf & _
"
" & vbCrLf & _
"Last Name: " & lastname.Text & vbCrLf & _
"
" & vbCrLf & _
"Middle Name: " & middlename.Text & vbCrLf & _
"
" & vbCrLf & _
"Dayphone: " & dayphone.Text & vbCrLf & _
"
" & vbCrLf & _
"Eveningphone: " & eveningphone.Text & vbCrLf & _
"
" & vbCrLf & _
"POBox/Address: " & pobox.Text & vbCrLf & _
"
" & vbCrLf & _
"State: " & state.Text & vbCrLf & _
"
" & vbCrLf & _
"Zip: " & zip.Text & vbCrLf & _
"
" & vbCrLf & _
"Expected Hourly Payrate:" & payrate.Text & vbCrLf & _
"
" & vbCrLf & _
"Reliable Transportation:" & DropDownList23.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Position & Availibility" & vbCrLf & _
"Position Applying For: " & DropDownList1.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Full-time or Part-time Position: " & DropDownList2.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Date Available: " & availibility.Text & vbCrLf & _
"
" & vbCrLf & _
"Desired Hours: " & hoursperweek.Text & vbCrLf & _
"
" & vbCrLf & _
"Education & Training " & vbCrLf & _
"High School: " & DropDownList3.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"College: " & DropDownList4.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Graduate: " & DropDownList5.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"High School Last Attended " & vbCrLf & _
"High School Graduate: " & DropDownList6.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Name of High School: " & nameofschool1.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Date: " & startdate1.Text & vbCrLf & _
"
" & vbCrLf & _
"End Date: " & enddate1.Text & vbCrLf & _
"
" & vbCrLf & _
"City and State: " & cityandstate1.Text & vbCrLf & _
"
" & vbCrLf & _
"Degree: " & degree1.Text & vbCrLf & _
"
" & vbCrLf & _
"Subjects Studied, Classes: " & subjects1.Text & vbCrLf & _
"
" & vbCrLf & _
"College, University or Technical School" & vbCrLf & _
"Higher Education Graduate " & DropDownList7.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Name of High School: " & nameofschool2.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Date: " & startdate2.Text & vbCrLf & _
"
" & vbCrLf & _
"End Date: " & enddate2.Text & vbCrLf & _
"
" & vbCrLf & _
"City and State: " & cityandstate2.Text & vbCrLf & _
"
" & vbCrLf & _
"Degree: " & degree2.Text & vbCrLf & _
"
" & vbCrLf & _
"References " & vbCrLf & _
"Reference 1 " & vbCrLf & _
"Ref 1: " & refname1.Text & vbCrLf & _
"
" & vbCrLf & _
"Phone: " & refphone1.Text & vbCrLf & _
"
" & vbCrLf & _
"Known Applicant For: " & refyears1.Text & vbCrLf & _
"
" & vbCrLf & _
"Mailing Address: " & refmailingaddress1.Text & vbCrLf & _
"
" & vbCrLf & _
"Reference 2" & vbCrLf & _
"Ref 2:" & refname2.Text & vbCrLf & _
"
" & vbCrLf & _
"Phone:" & refphone2.Text & vbCrLf & _
"
" & vbCrLf & _
"Known Applicant For: " & refyears2.Text & vbCrLf & _
"
" & vbCrLf & _
"Mailing Address: " & refmailingaddress2.Text & vbCrLf & _
"
" & vbCrLf & _
"Reference 3" & vbCrLf & _
"Ref 3: " & refname3.Text & vbCrLf & _
"
" & vbCrLf & _
"Phone: " & refphone3.Text & vbCrLf & _
"
" & vbCrLf & _
"Known Applicant For: " & refyears3.Text & vbCrLf & _
"
" & vbCrLf & _
"Your Employment " & vbCrLf & _
"Mailing Address: " & refmailingaddress3.Text & vbCrLf & _
"
" & vbCrLf & _
"Complied with no illegal drug use: " & DropDownList8.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Reschedule plans for training: " & DropDownList9.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Availible on flexible hours: " & DropDownList10.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Schduled Obligations: " & DropDownList11.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Explaination if stated 'yes' above: " & explainworkinfo.Text & vbCrLf & _
"
" & vbCrLf & _
"Availible to start: " & availibility1.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Sundays @: " & fromdate1.Text & vbCrLf & _
"
" & vbCrLf & _
"End Sundays @: " & fromdate2.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Mondays @: " & fromdate2.Text & vbCrLf & _
"
" & vbCrLf & _
"End Mondays @: " & todate2.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Tuesdays @: " & fromdate3.Text & vbCrLf & _
"
" & vbCrLf & _
"End Tuesdays @:" & todate3.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Wednesdays @: " & fromdate4.Text & vbCrLf & _
"
" & vbCrLf & _
"End Wednesdays @: " & todate4.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Thursdays @: " & fromdate5.Text & vbCrLf & _
"
" & vbCrLf & _
"End Thursdays @: " & todate5.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Fridays @:" & fromdate6.Text & vbCrLf & _
"
" & vbCrLf & _
"End Fridays @: " & todate6.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Saturdays @: " & fromdate7.Text & vbCrLf & _
"
" & vbCrLf & _
"End Saturdays @: " & todate7.Text & vbCrLf & _
"
" & vbCrLf & _
"Can you submit proof of legal right: " & DropDownList12.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Relationship with current Employee(s) or xxxxx Applicants: " & DropDownList13.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Description of relationships if stated above: " & explainemployerrelations.Text & vbCrLf & _
"
" & vbCrLf & _
"Employment Record" & vbCrLf & _
"Previous employee by satellite dealer or sub-dealer: " & DropDownList22.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Satellite or sub-dealer previously worked for: " & formalworkinfo.Text & vbCrLf & _
"
" & vbCrLf & _
"FROM:" & fromdate0.Text & vbCrLf & _
"
" & vbCrLf & _
"TO:" & todate0.Text & vbCrLf & _
"
" & vbCrLf & _
"
" & vbCrLf & _
"Recent Employer" & vbCrLf & _
"Most Recent Employer: " & employername1.Text & vbCrLf & _
"
" & vbCrLf & _
"Employer's Address: " & employeraddress1.Text & vbCrLf & _
"
" & vbCrLf & _
"City, State, Zipcode : " & zipcode1.Text & vbCrLf & _
"
" & vbCrLf & _
"Initial Position Title: " & initialpositiontitle1.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Date: " & startdate3.Text & vbCrLf & _
"
" & vbCrLf & _
"End Date: " & enddate3.Text & vbCrLf & _
"
" & vbCrLf & _
"Starting Salary: " & startingsalary1.Text & vbCrLf & _
"
" & vbCrLf & _
"Ending Salary: " & endingsalary1.Text & vbCrLf & _
"
" & vbCrLf & _
"Average hours worked per week: " & averagehours1.Text & vbCrLf & _
"
" & vbCrLf & _
"Last Supervisor's Name: " & supervisorsname1.Text & vbCrLf & _
"
" & vbCrLf & _
"Final Position Title: " & positiontitle1.Text & vbCrLf & _
"
" & vbCrLf & _
"Reasons for Leaving: " & reasonsleaving1.Text & vbCrLf & _
"
" & vbCrLf & _
"May we contact this employer: " & DropDownList14.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"
" & vbCrLf & _
"Second Employer" & vbCrLf & _
"Second Employer: " & employername2.Text & vbCrLf & _
"
" & vbCrLf & _
"Employer's Address: " & employeraddress2.Text & vbCrLf & _
"
" & vbCrLf & _
"City, State, Zipcode : " & zipcode2.Text & vbCrLf & _
"
" & vbCrLf & _
"Initial Position Title: " & initialpositiontitle2.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Date: " & startdate4.Text & vbCrLf & _
"
" & vbCrLf & _
"End Date: " & enddate4.Text & vbCrLf & _
"
" & vbCrLf & _
"Starting Salary: " & startingsalary2.Text & vbCrLf & _
"
" & vbCrLf & _
"Ending Salary: " & endingsalary2.Text & vbCrLf & _
"
" & vbCrLf & _
"Average hours worked per week: " & averagehours2.Text & vbCrLf & _
"
" & vbCrLf & _
"Last Supervisor's Name: " & supervisorsname2.Text & vbCrLf & _
"
" & vbCrLf & _
"Final Position Title: " & positiontitle2.Text & vbCrLf & _
"
" & vbCrLf & _
"Reasons for Leaving: " & reasonsleaving2.Text & vbCrLf & _
"
" & vbCrLf & _
"May we contact this employer: " & DropDownList15.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"
" & vbCrLf & _
"Third Employer" & vbCrLf & _
"Third Employer: " & employername3.Text & vbCrLf & _
"
" & vbCrLf & _
"Employer's Address: " & employeraddress3.Text & vbCrLf & _
"
" & vbCrLf & _
"City, State, Zipcode: " & zipcode3.Text & vbCrLf & _
"
" & vbCrLf & _
"Initial Position Title: " & initialpositiontitle3.Text & vbCrLf & _
"
" & vbCrLf & _
"Start Date: " & startdate5.Text & vbCrLf & _
"
" & vbCrLf & _
"End Date: " & enddate5.Text & vbCrLf & _
"
" & vbCrLf & _
"Starting Salary: " & startingsalary3.Text & vbCrLf & _
"
" & vbCrLf & _
"Ending Salary: " & endingsalary3.Text & vbCrLf & _
"
" & vbCrLf & _
"Average hours worked per week: " & averagehours3.Text & vbCrLf & _
"
" & vbCrLf & _
"Last Supervisors Name: " & supervisorsname3.Text & vbCrLf & _
"
" & vbCrLf & _
"Final Position Title: " & positiontitle3.Text & vbCrLf & _
"
" & vbCrLf & _
"Reasons for Leaving: " & reasonsleaving3.Text & vbCrLf & _
"
" & vbCrLf & _
"May we contact this employer: " & DropDownList16.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Criminal History" & vbCrLf & _
"Convicted of felony or misdemeanor: " & DropDownList17.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Explaination of conviction if stated 'yes' above: " & explainconviction.Text & vbCrLf & _
"
" & vbCrLf & _
"Date of Conviction: " & dateofconviction.Text & vbCrLf & _
"
" & vbCrLf & _
"Date of Arrest: " & dateofarrest.Text & vbCrLf & _
"
" & vbCrLf & _
"Offense: " & offense.Text & vbCrLf & _
"
" & vbCrLf & _
"Disposition of Case: " & dispositionofcase.Text & vbCrLf & _
"
" & vbCrLf & _
"Other" & vbCrLf & _
"Number of jobs had in the past year: " & numberofjobs.Text & vbCrLf & _
"
" & vbCrLf & _
"Number of jobs had in the past two years:" & numberofjobs1.Text & vbCrLf & _
"
" & vbCrLf & _
"Circumstances for leaving each job: " & circumstances.Text & vbCrLf & _
"
" & vbCrLf & _
"Desired minimum earned per hour: " & hour.Text & vbCrLf & _
"
" & vbCrLf & _
"Desired minimum earned per year: " & year.Text & vbCrLf & _
"
" & vbCrLf & _
"If hired, notice needed to be given to their current employer: " & ifhirednotice.Text & vbCrLf & _
"
" & vbCrLf & _
"Specialize training, coursework, skills training: " & skillstraining.Text & vbCrLf & _
"
" & vbCrLf & _
"Can type: " & DropDownList18.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Word per minute: " & ifwords.Text & vbCrLf & _
"
" & vbCrLf & _
"Bi/Multiligual: " & DropDownList19.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Speaks: " & languages.Text & vbCrLf & _
"
" & vbCrLf & _
"Speaks: " & languages1.Text & vbCrLf & _
"
" & vbCrLf & _
"Speaks: " & languages2.Text & vbCrLf & _
"
" & vbCrLf & _
"Referred by: " & DropDownList20.SelectedItem.ToString & vbCrLf & _
"
" & vbCrLf & _
"Referred by this employee: " & refemployee.Text & vbCrLf & _
"
" & vbCrLf & _
"AAgrees with equal oppertunity policy: " & DropDownList20.SelectedItem.ToString & vbCrLf & _
"
Nevermind, it's all cool now.
Instead of waiting for a reply here, I took the time to hit the books.
It was much simpler than I thought:
If IsValid Then
SmtpMail.Send(objMM)
Me.SubmitLabel.Text = "Your application has been sumitted. :)"
Me.SubmitLabel.ForeColor = Drawing.Color.Green
End If
^ used in congruently with asp validation controls.
I was thinking I had to use a subroutine on this one.
You
© 2012 DaniWeb® LLC
