Der er altså 4 felter hvor brugeren kan indtaste navn, alias, by og email. Jeg vil gerne have at når man trykker submit (eller bare inden man forlader siden) får afvide hvis et af felterne er udfyld forkert. I kan næsten sige jer selv reglerne for de enkelte felter. Ihvert fald er alle felter obligatorisk, i email skal der indgå @, der må ikke være tal og tegn i navn og by og så videre i den duer. Hvordan laver man det ?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Dim Error Error = False If Request.Form("navn") = "" Then Error = True If Request.Form("alias") = "" Then Error = True If Request.Form("by") = "" Then Error = True If Request.Form("email") = "" Then Error = True
If Error Then Response.Write("<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>HUSK NU ALLE FELTER MED <font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#FF0000'<b>*</b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>UD FORAN SKAL UDFYLDES</font></font>") else 'Indskrivning til database her..
' ---------- Start of invalid keys -> ValidChr Array -----------------' Do Until i = 256 InValidChr(x) = Chr(i) i = i + 1 x = x + 1 If i = 45 Then ' Adds "-" to valid keys i = 46 End if If i = 48 Then ' Adds 0-9 to valid keys i = 58 End If if i = 65 Then ' Adds A-Z to valid keys i = 91 End If If i = 95 Then ' Adds "_" to valid keys i = 96 End if If i = 97 Then ' Adds a-z to valid keys i = 123 End if Loop ' --------------- End of invalid keys -> ValidChr Array -----------------------'
' Tjekker om der er tastet noget ind If Len(xXx) = 0 Then NameValid = False Response.Write("Fill in the name") End If
' Tjekker om det indtastede er under 14 karaktere If Len(xXx) > 14 Then NameValid = False Response.Write("Name must be no more than 14 Characters") End If
' Tester om der er ugyldige tegn i, hvis de to ovenstående regler er opholdt If NameValid = True then z = 0 Do Until z = x If InStr(xXx, InValidChr(z)) <> 0 Then NameValid = False Response.Write("Non-Valid Character.: " & InValidChr(z)) End If z = z + 1 loop End If
If NameValid = True Then <Do something >
Det er hjemmelavet hele vejen igennem, så står ikke inde for noget, men det virker fint her hos mig =)
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.