Uobičajeno je da se većina skript programa izvršava na serverskoj strani. Drugim rečima, korisnik šalje zahtev za obradu pojedinih podataka. Rezultat ovakvog načina obrade je sporost, zagušenje linkova, i nepotrebno opterećenje procesorskog vremena servera. Takođe, korisnici moraju da čekaju na odgovor servera, koji obrađuje podatke i prihvata ih ako su odgovarajući. U slučaju neispravnih podataka, kao odgovor biće poslata neka druga stranica sa obaveštenjem za korisnika. Da bi se izbegla ovakva procedura, provera podataka, uz pomoć VBScript programa, može se izvršiti na strani klijenta, tj. unutar browser-a korisnika.
U sledećem primeru videćete kako možemo izvršiti validaciju podataka sa jedne stranice koja predstavlja narudžbu za kupovinu. Izvršićemo samo proveru unete e-mail adrese, pa ćemo zato u telo stranice uneti objekat za unos ovog podataka:
<p>E-mail adaresa:
<INPUT type="text" name="KorisnikovMail">
</p>
<input type="button"
name="DugmePosalji"
onClick="ProveraNarudzbu"
value="Posalji narudzbu">
Pored ovog podatka na formi će biti i drugi podaci bitni za narudžbu (pogledajte sliku). Kao što vidite, pored polja „KorisnikovMail„, formi smo dodali i dugme za slanje. Kada korisnik unese sve podatke i klikne dugme „DugmePosalji„, prvo će se izvršiti provera, a zatim će se podaci proslediti serveru. Procedura koju pozivamo je „ProveraNarudzbu„, a nju smeštamo u HEAD sekciju stranice.
Sub ProveraNarudzbu()
Dim Fîrma
Dim Poruka
Set Fîrma = document.narudzba
IF InStr(1, Fîrma.KorisnikovMail.Value, "@") = 0 THEN
Poruka = MsgBox("Niste uneli validnu e-mail
adresu." + Chr(13) + "Molimo, unesite
korektan e-mail.", 48,"ERROR!")
END IF
End Sub
Pratite Krstaricu na www.krstarica.com