<% 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 Acronyms
Updated
CISR > Resource Library > Acronyms
Acronyms
Search | Browse <% Sub ShowForm %> <% if Session("LOGGEDIN") then %> <% end if %>

Acronym / Definition: " size="30">
<% dim formfield formfield = request.form("string") If formfield<>"" Then ValidField = True End If %>                              Exact Phrase Any Part

                      <% If ValidField = True THEN Response.Write "
         Please enter in all requested information" End If %>

















<% 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 %>