29. april 2002 - 19:33Der er
5 kommentarer og 1 løsning
Se om @ er i feltet eller om feltet er tomt
Hej. Jeg skal have en OnSubmit funktion, der tjekker at det man har skrevet i formularfeltet 'email' indeholder et @. Hvis feltet er tomt, skal scriptet ikke sige noget, men hvis der står noget UDEN @, skal der kommer en alarm-box frem.
' HVIS AFSENDER-FELT ER TOMT Function nosign(strAfsender) Set objRegPath = New RegExp objRegPath.Global = True objRegPath.IgnoreCase = True objRegPath.Pattern = "[a-z0-9]" retVal = objRegPath.Test(strAfsender) Set objRegPath = Nothing nosign = retVal End Function sender = nosign(strAfsender)
' HVIS E-MAIL IKKE ER KORREKT UDFYLDT mail = True If len(strEmail) < 6 Or InStr(strEmail,"@") = 0 Or InStr(strEmail,".") = 0 Or InStr(strEmail," ") Then mail = False End If
' HVIS BESKED-FELT ER TOMT Function nosign(strBesked) Set objRegPath = New RegExp objRegPath.Global = True objRegPath.IgnoreCase = True objRegPath.Pattern = "[a-z0-9]" retVal = objRegPath.Test(strBesked) Set objRegPath = Nothing nosign = retVal End Function mess = nosign(strBesked)
' HVIS EN ELLER FLERE AF FELTERNE IKKE ER UDFYLDT KORREKT If sender = False Or mail = False Or mess = False Then
Response.Redirect "fejl.htm"
End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.