Imports Rocktime
Imports Rocktime.Core
Imports Rocktime.Base

Partial Class apply_for_job
    Inherits PageExClass

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

        Dim DBStatus As New DBAccess.DBStatusClass
        Dim Job As New rtJobsClass.JobData

        Job.Fill()
        Job = rtJobsClass.Locate(DBStatus, Job)

        If DBStatus.HasRows Then
            txtJobTitle.Text = Job.Title.Text
            txtJobReference.Text = Job.Reference.Text
            txtJobLocation.Text = Job.Location.Text
            txtJobWorkingHours.Text = Job.WorkingHours.Text
            txtJobSalary.Text = Job.Salary.Text
            txtJobVacanciesAvailable.Text = Job.VacanciesAvailable.Value
            txtJobStartDate.Text = Job.StartDate.Value.Date
            txtJobDescription.Text = Job.Description.Text
            pnlFailure.Visible = False
            pnlSuccess.Visible = False
            pnlForm.Visible = True
        Else
            pnlFailure.Visible = True
            pnlSuccess.Visible = False
            pnlForm.Visible = False
        End If

    End Sub


#Region "Buttons"

    Protected Sub fdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles fdSubmit.Click

        If Not Page.IsValid Then
            Exit Sub
        End If

        Dim Email As New Rocktime.EmailClass
        Dim DBStatus As New DBAccess.DBStatusClass
        Dim Job As New rtJobsClass.JobData

        Job.Fill()
        Job = rtJobsClass.Locate(DBStatus, Job)

        If DBStatus.HasRows Then

            Email.FromAddress = Job.EmailAddress.Text
            Email.AddToAddress(System.Configuration.ConfigurationManager.AppSettings("DefaultSiteSender"))

            Email.AddAttachment(fdCV)

            Email.Subject = "Job Application for Job Ref: " & Job.Reference.Text

            Email.Body = "A User has complete the Apply for Job Form on payrolls.co.uk and supplied the following details." & vbCrLf & vbCrLf & _
                "Name                      : " & fdName.Text & vbCrLf & vbCrLf & _
                "Address                   : " & vbCrLf & fdAddress.Text & vbCrLf & vbCrLf & _
                "Postcode                  : " & fdPostcode.Text & vbCrLf & vbCrLf & _
                "Email Address             : " & fdEmail.Text & vbCrLf & vbCrLf & _
                "Telephone                 : " & fdTelNumber.Text & vbCrLf & vbCrLf & _
                "Comments                  : " & fdComments.Text & vbCrLf & vbCrLf & vbCrLf & _
                "JOB DETAILS" & vbCrLf & _
                "Job Reference             : " & Job.Reference.Text & vbCrLf & vbCrLf & _
                "Job Title                 : " & Job.Title.Text & vbCrLf & vbCrLf & _
                "Job Location              : " & Job.Location.Text & vbCrLf


            Email.Send()

            pnlForm.Visible = False
            pnlSuccess.Visible = True

        End If

    End Sub

#End Region

End Class