ASP.NET

ASP.NET RSS

feedback form in vb

Please support our ASP.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Jul 2007

Posts: 26

Reputation: swaters86 is an unknown quantity at this point

Solved Threads: 0

swaters86

Offline

Light Poster

feedback form in vb

Dec 20th, 2007

I usually deal with front end stuff involving just xhtml and css, but I've been dabbling in vb lately...because I got this web dev job that requires it. My manager recognizes that I had no previous experience with vb, so he offered to help me on it whenever possible.

Now i have all this work plus this online version of an employment application for this company. I managed to right the aspx part of it and get it working and I finally figured out how to format it! Version 1 of the online application is already launched, but not this new one with the formated email. I had to rewrite everything from scracth instead of sticking with the code my manager used on his past projects. Now i need to do something real simple , but I can't do it because I'm not familiar with the vb syntax. I had already asked him for his help, but he's been too busy. I have make a deadline and I don't have time to hit the books on th is stuff.

Basically i need the application to be a little more dynamic by displaying a simple message like "Your Application has been submitted."

The visual basic code of this project:
[CODE = vb]
Imports System.Web.Mail
Partial Class DefaultPage
Inherits System.Web.UI.Page

Sub btnSendFeedback_Click(ByVal sender As Object, ByVal e As EventArgs)

'Create an instance of the MailMessage class
Dim objMM As New MailMessage()

'Set the properties - send the email to the person who filled out the
'feedback form.
objMM.To = " swaters@rapidts.com"
objMM.From = "xxxxxxx"

'If you want to CC this email to someone else, uncomment the line below
'objMM.Cc = "xxxxxx"

'If you want to BCC this email to someone else, uncomment the line below
'objMM.Bcc = "xxxxxxx"

'Send the email in text format
objMM.BodyFormat = MailFormat.Html
'(to send HTML format, change MailFormat.Text to MailFormat.Html)

'Set the priority - options are High, Low, and Normal
objMM.Priority = MailPriority.Normal

'Set the subject
objMM.Subject = "xxxxx EMPLOYMENT APPLICANT:" + firstname.Text + " " + lastname.Text

'Set the body
objMM.Body = "<html>" & _
"<body>" & _
"<style type='text/css'>body{font:verdana, arial; font-size:12pt;}b{font-size:10pt;}h1{font-size:13pt; color:#0861A9;}h2{font-size:12pt;}</style>" & _
"Time Submited: " + DateTime.Now & _
" " & vbCrLf & _
"Sentby: " & firstname.Text & " " & middlename.Text & " " & lastname.Text & "." & vbCrLf & vbCrLf & _
" " & vbCrLf & _
"<h1>General Info</h1>" & 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 & _
"<h1>Position & Availibility</h1>" & 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 & _
"<h1>Education & Training</h1> " & vbCrLf & _
"High School: " & DropDownList3.SelectedItem.ToString & vbCrLf & _
" " & vbCrLf & _
"College: " & DropDownList4.SelectedItem.ToString & vbCrLf & _
" " & vbCrLf & _
"Graduate: " & DropDownList5.SelectedItem.ToString & vbCrLf & _
" " & vbCrLf & _
"<h2>High School Last Attended</h2> " & 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 & _
"<h2>College, University or Technical School</h2>" & 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 & _
"<h1>References</h1> " & vbCrLf & _
"<h2>Reference 1</h2> " & 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 & _
"<h2>Reference 2</h2>" & 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 & _
"<h2>Reference 3</h2>" & vbCrLf & _
"Ref 3: " & refname3.Text & vbCrLf & _
" " & vbCrLf & _
"Phone: " & refphone3.Text & vbCrLf & _
" " & vbCrLf & _
"Known Applicant For: " & refyears3.Text & vbCrLf & _
" " & vbCrLf & _
"<h1>Your Employment</h1> " & 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 & _
"<h1>Employment Record</h1>" & 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 & _
"<h2>Recent Employer</h2>" & 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 & _
"<h2>Second Employer</h2>" & 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 & _
"<h2>Third Employer</h2>" & 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 & _
"<h1>Criminal History</h1>" & 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 & _
"<h1>Other</h1>" & 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 & _
"</body>" & _
"</html>"
'Specify to use the default Smtp Server
SmtpMail.SmtpServer = "xxxxxxxxx"
'Now, to send the message, use the Send method of the SmtpMail class
SmtpMail.Send(objMM)

End Sub

End Class

[/CODE]

Basically I need to incorporate a simple if statement like:
[CODE = vb]
If Not err Then
Me.SubmitLabel.Text = "Your application has been sent

"
Me.SubmitLabel.ForeColor = Drawing.Color.Green
Else
Me.SubmitLabel.Text = "An error occured sending your message, please try the link above."
Me.SubmitLabel.ForeColor = Drawing.Color.Red
End If

[/CODE]

Can someone point me to a simple tutorial on how to do that or show me how?

Like I said , I'm not familiar with the syntax itself. If need be, I can provide the aspx portion of the project.

•