WebSite Submitter !
This application submits your web site to ten major search engines, there is currently only 10 engines, but it's completely up to you, I never really had the time to finish it.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
<%
Option Explicit
Function IsValidEmail(strEAddress)
Dim objRegExpr
Set objRegExpr = New RegExp
objRegExpr.Pattern = "^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]@[\w-\.]*[a-zA-Z0-9]\.[a-zA-Z]{2,7}$"
objRegExpr.Global = True
objRegExpr.IgnoreCase = False
IsValidEmail = objRegExpr.Test(strEAddress)
Set objRegExpr = Nothing
End Function
If IsValidEmail("my.code@p-s-c.com") = True Then
Response.Write("Valid Email Address")
Else
Response.Write("Invalid Email Address")
End If
%>
Original Comments (3)
Recovered from Wayback Machine