%@ Language=VBScript %> <% Option Explicit %> <% ' ----------------------------------------------------- ' CDOSYS Email send script ' Comments must remain intact for re-use of this code ' ----------------------------------------------------- dim strErrText, strAction strAction = Request.QueryString("action") Select Case strAction Case "err1" strErrText = "Error: No name input." Case "err2" strErrText = strErrText & "Error: No Phone Number input." Case "err3" strErrText = strErrText & "Error: No E-mail input." Case "err4" strErrText = strErrText & "Error: No Reference 1 input." Case "err5" strErrText = strErrText & "Error: No Reference 2 input." Case "err6" strErrText = strErrText & "Error: No Reference 3 input." Case "err7" strErrText = strErrText & "Error: No Position input." Case "err8" strErrText = strErrText & "Error: No Previous Employer's input." End Select %>
| [_includes/horz_nav.htm] |
|
||||||||||||
| [_includes/foot.htm] | ||||||||||||