Email valirering med ASP

En meget simpel:

email = din@mail.der.skal.valideres.dk
if "@" isin email then
ok
else
fejl
end if

Håber du kan se idéen.

<%
if instr(Request.Form("email"),"@") = 0 or instr(Request.Form("email"),".") = 0 then
    Response.Write "<script type=""text/vbscript"">" & vbcrlf
    Response.Write "msgbox ""Din e-mail adresse er ikke gyldig !"",vbCritical,""Test""" & vbcrlf
    Response.Write "</script>" & vbcrlf
end if
%>

sagtens... men jeg vil også have tjecket om der er et "." på et tidspunkt efter "@" da det hvist også er ret karakteristisk for en mail...

Skumbag... >>>

tester den ikke bare om der er henholdsvid "." og "@" i strengen... men ikke om der kommer et "." efter "@"

Så prøv noget i stil med dette

Dim s, c, mail

mail = "til@infojens.dk"

s = InStr(1, mail, "@", 3)
c = InStr(1, mail, ".", 3)

If s = 0 Or c = 0 Or s > c Then
    MsgBox "Fejl"
End If

Ups en lille fejl

Dim s, c, mail

mail = "til@infojens.dk"

s = InStr(1, mail, "@", 3)
c = InStr(s, mail, ".", 3)

If s = 0 Or c = 0 Or s > c Then
    MsgBox "Fejl"
End If

husk der må godt være . i email adresser før @

derfor

c = InStr(s, mail, ".", 3)

med s for så starter den der