<% Option Explicit response.buffer = true dim ValidField, sFieldvalue, sFieldtype Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "string" If Len(sFieldvalue) = 0 Then ValidField = False End Select ValidateField = ValidField End Function %> Glossary
Updated
CISR > Resource Library > Glossary
Glossary
Search | Browse <% Sub ShowForm %> <% if Session("LOGGEDIN") then %> <% end if %>

Glossary Term / Definition: " size="30">
                                   Exact Phrase Any Words

                          


















<% End sub dim dictFields, Field Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 and dictFields.Count = 0 Then if admin = 1 then response.redirect "displaysearch.asp?string=" & string & "&admin=1" else response.redirect "displaysearch.asp?string=" & string & "" end if Else Showform End If %>