esthera
04-27-2006, 11:19 AM
can someone help me translate the following code from asp to php:
emailhost=Mid(email, InStr(Email, "@") + 1)
n=instrrev(emailhost,".")
domainend=right(emailhost,len(emailhost)-n)
domainend=lcase(domainend)
select case domainend
case "edu","com","net","us","info","org","biz,".cc"
domainvalid=true
case else
filtered=1
end select
emailhost=Mid(email, InStr(Email, "@") + 1)
n=instrrev(emailhost,".")
domainend=right(emailhost,len(emailhost)-n)
domainend=lcase(domainend)
select case domainend
case "edu","com","net","us","info","org","biz,".cc"
domainvalid=true
case else
filtered=1
end select