% If (CStr(Request("send_email")) = "send") Then MailBody = MailBody & "The HR portion of the in-processing form has been" & vbCrlf & "" MailBody = MailBody & "started for the following employee:" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Employee Number:" & vbCrlf & "" MailBody = MailBody & (Last_ENumber.Fields.Item("max_emp_number").Value + 1) MailBody = MailBody & " " MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name (first last):" & vbCrlf & "" MailBody = MailBody & (Request.Form("name")) MailBody = MailBody & " " Set myMail=CreateObject("CDO.Message") myMail.Subject="Employee Inprocessing Notification - Heads Up" myMail.From="wol@westar.com" myMail.To=Request.Form("hr_email") myMail.CC="greenwood@westar.com" myMail.Textbody=MailBody myMail.Send set myMail=Nothing response.redirect(www.cnn.com) End If %>
![]() |
|
|
|
![]() |
||
|
||||||
|
|
|
|
|
|
||
|
|
|
|||||
![]() |
|
![]() |
|
![]() |
||
|
|
|
|
|
|
||
|
|
|
|||||
![]() |
|
|
|
![]() |
||
Contact Us
|
||||||
![]() |
|
© Cave Springs Travel - 2007 |
|
![]() |