Validering af email ?

Hvordan ser din nuværende kode ud?

den korte

arrEmailParts = Split(email, "@")
if ubound(arrEmailParts) > 0 then
  ' så er der noget efter @
else
  ' så er der ikke noget efter @
end if


meeen, det er vist stadig ikke godt nok, da der iflg. min forståelse af emailadresser skal være mindst 1 punktum efter @

Optimalt skal du nok over i noget med regular expressions... og det er så der jeg checker ud - hej! ;)

Den korte kan laves lidt mere komplet uden det helt store besvær:

arrEmailParts = Split(email, "@")
If UBound(arrEmailParts) > 0 Then
    ' Det er muligvis en email-adresse
    arrServerParts = Split(arrEmailParts, ".")
    If ubound(arrServerParts) > 0 Then
        ' Det ligner i hvert fald en email-adresse
    Else
        ' Det er ikke en email-adresse
    End If
Else
    ' Det er ikke en email-adresse
End If

En løsning, baseret på RegExp er en mulighed, men den giver i virkeligheden ikke så meget mere end denne simple en.

det.ligner.en.emailadresse@gørdetikke?

vil blive godkendt

:-)

fx den her jeg har:

SnabelAPresent = InStr(Email, "@")

If Len(Left(Email,SnabelAPresent - 1)) = 0 Then
    Response.Redirect ("index.asp?msg=Der mangler noget foran ""@"" i e-mail adressen.")
End If

-----------------------

Skal være noget i den stil, men bare dne tjekke efter @

Lige en lille rettelse til nielle's (manglede indeksering ved split til serverparts):

arrEmailParts = Split(email, "@")
If UBound(arrEmailParts) > 0 Then
    ' Det er muligvis en email-adresse
    arrServerParts = Split(arrEmailParts(1), ".")
    If ubound(arrServerParts) > 0 Then
        ' Det ligner i hvert fald en email-adresse
    Else
        ' Det er ikke en email-adresse
    End If
Else
    ' Det er ikke en email-adresse
End If

rebel-leader >> jeg tror du er kørende med den sidste :)

Indexet var underforstået (dvs. glemt ;^).

*LOL* Nååh ja, det er da det... :)

smid et svar tak :)

Nu får du lige et fra mig, da jeg ikke lige kan se hvem du mener ;)

... og et fra mig :^)

Tak for point :)

Takker :^)