<%
Dim strAdd
strAdd = Ucase(request.querystring("add"))
Dim strError, schoolID, schoolname, city
if request.querystring("error") = "noinfo" then
strError = "There are missing information. Please check your input and submit again."
else
if request.querystring("error") = "dup" then
strError = "The record you tried to add is already in our database. Please check your input and submit again, or use the search page to find the record."
end if
end if
if strAdd = "S" then
schoolname = trim(request.querystring("schoolname"))
city = trim(request.querystring("city"))
end if
if strAdd = "T" then
if request.querystring("schoolID") <> "" then
session("schoolID") = cint(request.querystring("schoolID"))
session("schoolname") = trim(request.querystring("schoolname"))
end if
schoolID = session("schoolID")
schoolname = trim(session("schoolname"))
lastname = trim(request.querystring("lastname"))
firstname = trim(request.querystring("firstname"))
if schoolID = "" then
Response.redirect "search.asp?action=noschool"
End If
End if %>