<%
function IsValidEMail(email)
IsValidEMail = true
if Len(email) < 5 then
IsValidEmail = false
else
if Instr(1, email, " ") <> 0 then
IsValidEMail = false
else
if InStr(1, email, "@") < 2 then
IsValidEMail = false
else
if InStrRev(email, ".") < InStr(1, email, "@") + 2 then
IsValidEMail = false
end if
end if
end if
end if
end function
function IsValidInput
valid=true
if Request.Form("naam") = "" then valid=false
if IsValidEMail( Request.Form("email")) = false then valid=false
IsValidInput=valid
'IsValidInput=true
end function
%>