Johnny Sørensen wrote in dk.edb.internet.webdesign.html:
> Hej
>
> Jeg har et lille problem med en formmail.
>
> inputfeltet på denne side
>
http://www.smsbutikken.com/velkommen_til_smsbutikken.htm
> er kun til e-mail.
Du kunne sætte dette ind i din fil. Gem filen som f.eks. email.asp
Det kræver at din server kan køre ASP.
<%response.buffer = true
Dim ABC
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
'Validerer brugeren, ser om alle felter er udfyldte
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next
'"Læser", hvad der er skrevet i de forskellige felter.
email = Request.Form("email")
' (1) Check email
'Hvis der ikke er et @ i email-adressen
If Email = "" Or instr(Email, "@") = 0 then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen er ikke gyldig.</a></div></div>"
Response.End
end if
'Hvis email-adressen er mindre end 5 karakter.
If Len(Email) < 5 Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen er for kort.</a></div>"
Response.End
End If
'Undersøger om der er et punktum
If InStr(Email,".") = 0 Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen mangler et punktum.</a></div>"
Response.End
End If
'Undersøger om der to punktum efter hinanden
If InStr(Email,"..") <> 0 Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen har mere end et punktum efter hinanden.</a></div>"
Response.End
End If
'Undersøger om der er punktum foran eller bag @
If ((InStr(Email,"@.") <> 0) OR (InStr(Email,".@") <> 0)) Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen må ikke have et punktum lige før eller efter et
@.</a></div>"
Response.End
End If
'Undersøger om der er noger foran @
If Len(Left(Email,InStr(Email,"@") - 1)) = 0 Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen mangler noget foran @.</a></div>"
Response.End
End If
'Undersøger om der mindst to bogstaver efter sidste punktum
If (Len(Email) - InStrRev(Email,".") < 2) Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen skal have mindst to bogstaver til sidst.</a></div>"
Response.End
End If
'Undersøger om der højst tre bogstaver efter sidste punktum
If (Len(Email) - InStrRev(Email,".") > 3) Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen må højst være tre bogstaver til sidst.</a></div>"
Response.End
End If
'Undersøger om der _ efter @
If ((InStr(Email,"_") <> 0) AND (InStrRev(Email,"_") >
InStrRev(Email,"@"))) Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen er ikke gyldig.</a></div>"
Response.End
End If
'Undersøger om der mere end et @
ABC = 0
For i = 1 TO Len(Email)
If Mid(Email,i,1) = "@" Then
ABC = ABC+ 1
End If
Next
If ABC > 1 Then
Response.Write "<a href='javascript:history.back(-1)'>
Email-adressen har mere end et @.</a></div>"
Response.End
End If
'Undersøger om der ugyldige tegn
For i = 1 TO Len(Email)
If NOT IsNumeric(Mid(Email,i,1)) AND (LCase(Mid(Email,i,1)) < "a" OR
LCase(Mid(Email,i,1)) > "z") AND Mid(Email,i,1) <> "_" AND
Mid(Email,i,1) <> "." AND Mid(Email,i,1) <> "@" AND Mid(Email,i,1)
<> "-" Then
Response.Write "<a href='javascript:history.back(-1)'> Emal-adressen
indeholder ugyldig tegn.</a></div>"
Response.End
End If
Next
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials