Jeg har dette bud - bruger det da selv - det er ikke garanteret fejlfrit men det validerer til et - for en mailserver - brugbart resultat.
Valideringen checker for et tomt felt, et felt under en hvis længde, om der er et @ i adressen og om der er mindst 1 punktum (x@y.dk)
<%
sub showError
Response.Redirect("error.asp")
end sub
dim email '<--- en variabel til at holde email fra din form
dim anf
email = request.form("email") '<--- eller hvad dit formfelt nu hedder
anf = chr(32)
if trim(email)="" then '<--- email kan ikke være tom
session("Error")="<div align=" & chr(34) & "center" & chr(34) & "><b>Feltet 'E-mail' kan ikke være tomt.<br>Udfyld venligst feltet.<br><br><a href=" & anf & "java script: history.back(1)" & anf & ">Tilbage"</a>"
showError
' lav en simpel kontrol på email.adressen
else
if len(email) < 6 then
'<--- antageligvis skal en email have en hvis længde
'f.x. x@y.dk nok den korteste jeg kan finde på ;-)
'Hvis email er kortere end det så må der være noget galt.
session("Error")="<div align=" & chr(34) & "center" & chr(34) & "><b>Feltet 'E-mail' ikke korrekt udfyldt.<br>Ret venligst adressen.<br><br><a href=" & anf & "java script: history.back(1)" & anf & ">Tilbage"</a>"
showError
end if
if not cbool(instr(email,"@")) then '<--- Der skal være en 'abehale'
session("Error")="<div align=" & chr(34) & "center" & chr(34) & "><b>Feltet 'E-mail' er ikke korrekt udfyldt. Der er intet '@' i adressen.<br>Ret venligst adressen.<br><br><a href=" & anf & "java script: history.back(1)" & anf & ">Tilbage"</a>"
showError
end if
if not cbool(instr(email,".")) then '<--- og mindst et punktum
session("Error")="<div align=" & chr(34) & "center" & chr(34) & "><b>Feltet 'E-mail' ikke korrekt udfyldt.<br>Ret venligst adressen.<br><br><a href=" & anf & "java script: history.back(1)" & anf & ">Tilbage"</a>"
showError
end if
end if
