Newsletter

if not instr(streng, \'@\') > 0 then
-----
end if

Det skal selvfølgelig være

if not instr(streng, \"@\") > 0 then
---
end if

din streng kan eks. være Request.Forms(\"email\"), hvis brugeren indtaster sin email i feltet \"email\" på en formular. Du bør nok også kontrollere for et punktum

det nok mest præcise med asp:

if email = \"\" then
response.redirect(\"forside.asp?id=opret&fejl=5\")
end if

if instr(email, \"@\") = 0 then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

if instr(email, \"@\") < 1 then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

if instr(email, \".\") = 0 then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If Len(email) < 5 Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If ((InStr(email,\"@.\") <> 0) OR (InStr(email,\".@\") <> 0)) Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If Len(Left(email,InStr(email,\"@\") - 1)) = 0 Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If (Len(email) - InStrRev(email,\".\") > 3) Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If (Len(email) - InStrRev(email,\".\") < 2) Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If InStr(email,\"..\") <> 0 Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

If ((InStr(email,\"_\") <> 0) AND (InStrRev(email,\"_\") > InStrRev(email,\"@\"))) Then
response.redirect(\"forside.asp?id=opret&fejl=6\")
end if

dog ved jeg selvfølgelig ikke om du vil have response.redirect eller andet...

og så selvfølgelig en lille

email = Request.Form(\"email\")

foran :)

Tak!! :-)