<% response.Buffer = TRUE %>
<table align="right"><tr><td>
<a href="ex12.asp">Starta om denna sida</a></td></tr></table>
Prova denna form genom att<ol>
<li>Klicka på OK utan att ha fyllt i något av fälten
<li>Klicka på OK med bara namnfältet ifyllt
<li>Klicka på OK med bara adressfältet ifyllt
<li>Klicka på OK med bägge fälten ifyllda
</ol>
Håll ett öga på adressraden när du provar ovanstående tester

<%
Function notOK(text)
 If text & "" = "" Then
 notOK = true
 Elseif instr(text, ">") or instr(text, "<") Or instr(text, "|") Then
 notOK = true
 Else
 notOK = false
 End If
End Function

If Request("SEND") & "" <> "" Then
 If notOK(Request("MittNamn")) OR notOK(Request("MinAdress")) Then %>
 Du måste fylla i alla fälten
 <%
 Else
 namn = Server.URLEncode(Request("MittNamn"))
 adress = Server.URLEncode(Request("MinAdress"))
 Response.redirect "svaret.asp?Namn=" & namn & "&Adress=" & adress
 End If
End If
%>
<FORM METHOD='GET'>
 <TABLE BORDER="0">
<tr>
 <td>
 Namn:
 </td>
 <td>
 <INPUT TYPE="TEXT" NAME="MittNamn" SIZE="20" MAXLENGTH="30" VALUE="<% =Request("MittNamn") %>">
 <%if notOK(Request("MittNamn")) Then %>
 Fyll i
 <% End If %>
 </td>
 </tr>
 <tr>
 <td>
 Adress:
 </td>
 <td>
 <INPUT TYPE="TEXT" NAME="MinAdress" SIZE="20" MAXLENGTH="30" VALUE="<% =Request("MinAdress") %>">
 <%if notOK(Request("MinAdress")) Then %>
 Fyll i
 <% End If %>

 </td>
 </tr>
 <tr>
 <td>

 </td>
 <td>
 <INPUT name="SEND" TYPE="SUBMIT" VALUE="OK">
 <INPUT TYPE="RESET" VALUE="Töm">
 </td>
 </tr>
 </table>
</form>

Koden som validerar indatat, och viderehänvisar till en annan sida om vi har fyllt i bägge fälten: 
<div class=code>
<% 
Function notOK(text) 
 ' får inte vara tomt 
 If text & "" = "" Then 
 notOK = true 
 ' man kan även kontollera om det fanns ogiltiga tecken 
 Elseif instr(text, ">") or instr(text, "<") Or instr(text, "|") Then 
 notOK = true 
 Else 
 notOK = false 
 End If 
End Function 
 
' SEND är namet på Submit knappen. 
If Request("SEND") & "" <> "" Then 
 ' Om det vi gav in inte är OK (t.ex tomt) 
 If notOK(Request("MittNamn")) OR notOK(Request("MinAdress")) Then %> 
 Du måste fylla i alla fälten 
<% 
 Else 
 ' Vi har giltigt data 
 ' måste se till att det går att sända vidare genom att koda det för URL bruk 
 namn = Server.URLEncode(Request("MittNamn")) 
 adress = Server.URLEncode(Request("MinAdress")) 
 ' dirigera om till en ny sida med värdena som parametrar 
 ' Måste vara <% response.Buffer = TRUE %> i början av sidan 
 Response.redirect "svaret.asp?Namn=" & namn & "&Adress=" & adress 
 End If 
End If 
%> 
 
 
<FORM METHOD='GET'> 
 Namn: 
 <INPUT TYPE="TEXT" 
 NAME="MittNamn" 
 SIZE="20" 
 MAXLENGTH="30" 
 VALUE="<% =Request("MittNamn") %>"> 
 <%if notOK(Request("MittNamn")) Then %> 
 Fyll i 
 <% End If %> 
 
 Adress: 
 <INPUT TYPE="TEXT" 
 NAME="MinAdress" 
 SIZE="20" 
 MAXLENGTH="30" 
 VALUE="<% =Request("MinAdress") %>"> 
 <%if notOK(Request("MinAdress")) Then %> 
 Fyll i 
 <% End If %> 
 
 <INPUT name="SEND" TYPE="SUBMIT" VALUE="OK"> 
 <INPUT TYPE="RESET" VALUE="Töm"> 
</FORM> 
</div>
Denna validering fungerar på följande sätt:<ul>
<li>När vi kommer till sidan så finns det inga parametrar på adressraden utan den är bara
ex12.asp. Detta gör att SEND parametern kommer att vara tom och
If Request("SEND") & "" <> "" Then kommer att ge
false som resultat.
<li>När vi sedan klicka på OK så kommer SEND att ha ett värde (vilket är i detta fall oväsentligt) och If satsen kommer att ge true som reslultat
<ul>
<li>Vi kontollerar då om datat är korrekt med en egen funktion (som skulle kunna
sättas i en separat fil och inkluderas)
<li>Om det inte är korrekt så skriver vi ut ett felmeddelande
<li>Är allt OK så konverterar vi värdena till URL kompatibla strängar med
Server.URLEncode och
sänder iväg datat via adressraden till en annan sida
</ul>
<li>När formen laddas så sätts eventuella värden som fanns på adressraden in i rätt fält 
Se t.ex. raden VALUE="<% =Request("MittNamn") %>"
<ul>
<li>Om dett inte finns någon namn så blir det tomt
<li>Om det fanns ett namn så skrivs det in i VALUE egenskapen. Detta görs för
att vi inte vill att användaren skall behöva skriva om allt, utan bara det som var fel eller tomt
</ul>
</ul>