<%
'Anti Cache: prevents the style sheets from caching by adding a random number to the path
Dim rand_n
Dim anticache
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
randomize
rand_n=int(rnd*9999)
anticache=rand_n
Function IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@")
If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
IsEmail = False
End If
End Function
'Rem usage IsEmail("name@domain.com") returns true (valid address)
'Rem IsEmail("Name@domain.") Returns false
%>
Arun Office
Call: 0845 070 4350
Contact Us
Arun Office
Unit 13 Jubilee Estate
Foundry Lane
Horsham
West Sussex RH13 5UE
