<%
Dim strDPath
dim sGrade
dim sFullGrade
dim sName
dim sServing
dim sVoice
dim sEmail
dim sResp
dim sGoals
dim sVision
dim sEducation
dim sPhoto
sGrade = cstr(Request("Grade"))
strDPath = Server.MapPath("_private\Grace.mdb")
if sGrade = "" then
sGrade = "PR"
end if
dim cnnFaculty
dim rstFaculty
set cnnFaculty = Server.CreateObject("ADODB.Connection")
cnnFaculty.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDPath & ";"
Set rstFaculty = cnnFaculty.Execute("SELECT * FROM Faculty WHERE Grade = """ & sGrade & """;")
sPhoto = """Images/Staff/2007/Full/" & sGrade & ".jpg"""
sFullGrade = rstFaculty.Fields("GradeFull").Value
sName = rstFaculty.Fields("Name").Value
sServing = rstFaculty.Fields("ServingSince").Value
sVoice = rstFaculty.Fields("VoiceBox").Value
sEmail = rstFaculty.Fields("Email").Value
sResp = rstFaculty.Fields("Responsibilities").Value
sGoals = rstFaculty.Fields("Goals").Value
sVision = rstFaculty.Fields("Vision").Value
sEducation = rstFaculty.Fields("Education").Value
if sFullGrade = "" or isnull(sFullGrade) = true then
sFullGrade = " "
end if
if sName = "" or isnull(sName) = true then
sName = " "
end if
if sServing = "" or isnull(sServing) = true then
sServing = " "
end if
if sVoice = "" or isnull(sVoice) = true then
sVoice = " "
end if
if sEmail = "" or isnull(sEmail) = true then
sEmail = " "
end if
if sResp = "" or isnull(sResp) = true then
sResp = " "
end if
if sGoals = "" or isnull(sGoals) = true then
sGoals = " "
end if
if sVision = "" or isnull(sVision) = true then
sVision = " "
end if
if sEducation = "" or isnull(sEducation) = true then
sEducation = " "
end if
If Not rstFaculty Is Nothing Then rstFaculty.Close
If Not cnnFaculty Is Nothing Then cnnFaculty.Close
%>
