<% @Language="VBScript" %> <% Option Explicit Function Iff(bExpression, cTrue, cFalse) Iff = cFalse If bExpression Then Iff = cTrue End Function Function Trim2(str) Dim re Trim2 = str If IsNull(Trim2) Then Exit Function End If Set re = New RegExp re.Global = True re.IgnoreCase = True re.Pattern = "^(\s*)$" If re.Test(Trim2) Then Trim2 = re.Replace(Trim2, "") If (Len(Trim2) = 0) Then Set re = Nothing Exit Function End If End If re.Pattern = "^(\s*)([\W\w]*)(\b\s*)$" If re.Test(Trim2) Then Trim2 = re.Replace(Trim2, "$2") End If Set re = Nothing End Function Function IsEMail(str) Dim objRe Set objRe = New RegExp objRe.Pattern = "(^[a-zA-Z]([a-zA-Z0-9_.]*)\@([a-zA-Z]([a-zA-Z0-9_.]*))([.][a-zA-Z]{2,3})$)|(^[a-zA-Z0-9]([a-zA-Z0-9_.]*)\@(\d{2,3}[.]\d{2,3}[.]\d{2,3}[.]\d{1,3})$)" IsEMail = objRe.Test(str) Set objRe = Nothing End Function %> Netlink - Request Employment Information <% Dim objFso, objFile Dim objDict, objKeys, objItems, objSendMail Dim bValid, bBadNumber Dim I Dim strKey, strItem, strHTML Set objDict = Server.CreateObject("Scripting.Dictionary") objDict.Add "firstname", "First Name" objDict.Add "lastname", "Last Name" objDict.Add "email", "EMail" objDict.Add "address1", "Address 1" objDict.Add "city", "City" objDict.Add "state", "State" objDict.Add "zip", "Zip" objDict.Add "phonearea", "Phone" objDict.Add "phoneexchange", "Phone" objDict.Add "phonenumber", "Phone" objKeys = objDict.Keys objItems = objDict.Items bValid = True strKey = "" strItem = "" If (Request.QueryString("mode") = "verify") Then For I = 0 To objDict.Count - 1 Select Case objKeys(I) Case "email" If Not IsEMail(Request.Form(objKeys(I))) Then strItem = objItems(I) strKey = objKeys(I) bValid = False Exit For End If Case "phonearea", "phoneexchange", "phonenumber", "zip" Select Case objKeys(I) Case "phonearea", "phoneexchange" bBadNumber = Not (IsNumeric(Request.Form(objKeys(I))) And (Len(Request.Form(objKeys(I))) = 3)) Case "phonenumber" bBadNumber = Not (IsNumeric(Request.Form(objKeys(I))) And (Len(Request.Form(objKeys(I))) = 4)) Case "zip" bBadNumber = Not ((Trim(Request.Form(objKeys(I))) <> "") And ((Len(Request.Form(objKeys(I))) >= 5) And (Len(Request.Form(objKeys(I))) <= 10))) End Select If bBadNumber Then strItem = objItems(I) strKey = objKeys(I) bValid = False Exit For End If Case Else If (Trim(Request.Form(objKeys(I))) = "") Then strItem = objItems(I) strKey = objKeys(I) bValid = False Exit For End If End Select Next Else bValid = False End If Set objDict = Nothing %>
<%= FormatDateTime(Date, 1) %>
Complete Internet Solutions Home / Employment
 
Employment Information

Resumes maybe sent to:

Micro Doctor
4195 Parkman Road NE
Warren, Ohio 44481

Attention: HR Dept
<% If Not bValid Then %>
© 2006 Micro Doctor Inc.
<% Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFso.GetFile(Server.MapPath("employment.asp")) Response.Write "Last Modified: " & objFile.DateLastModified & "" & vbCrLf Set objFile = Nothing Set objFso = Nothing %> 		terms and conditions   employment