<form name="CheckEmailAddr" method="post" action="<%=Request.ServerVariables("URL")%>">
  Enter your email address:
  <input name="EmailAddr" type="text" size="20" class="bnotes">
  <input type="submit" value="Validate" class="bnotes">
  </form>


  <%
  If Len(Trim(Request("EmailAddr"))) > 0 Then

     Function ValidEmail(EmailAddress)
        EmailAddress = Trim(EmailAddress)
        ValidEmail = True

        'Check for spaces
         If Instr(1,EmailAddress," ") > 0 Then
            ValidEmail = False
         End If

         'Check length. Shortest an address can be is 6 (S@S.com = 7, S@S.cx = 6)
         If Len(EmailAddress) < 6 Then
            ValidEmail = False
         End If

         'Check for only one @ somehere in the middle
          TempArr = Split(EmailAddress,"@")
          If UBound(TempArr) <> 1 Then
             ValidEmail = False
          Else
             For x = 0 to UBound(TempArr)
                If Len(Trim(TempArr(x))) = 0 OR IsNull(TempArr(x)) = True Then
                   ValidEmail = False
                End If
             Next
          End If

         'Check for period either three or four places from end
         If InstrRev(EmailAddress,".") = 0 Then
            ValidEmail = False
         Else
            If Len(EmailAddress) - InstrRev(EmailAddress,".") > 3 OR _
               Len(EmailAddress) - InstrRev(EmailAddress,".") < 2 Then
                 ValidEmail = False
            End If
         End If

     End Function

     If ValidEmail(Request("EmailAddr")) = True Then
        Response.Write "The email address you entered appears to be a " & _
                       "valid email address"
     Else
        Response.Write "The email address you entered " & _
                       "does not appears to be a " & _
                       "valid email address"
     End If

   End If

  %>