%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim rfile dim tempKey dim major dim filesys set filesys = CreateObject("Scripting.FileSystemObject") major = request.QueryString("major") if major = "" then major = "default" tempFile = server.mappath("./majors_side") & "\" & major & ".txt" if filesys.fileExists(tempFile) then set rfile = filesys.OpenTextFile(tempFile, 1, false) sideText = rfile.ReadAll rfile.close else sideText = "" end if tempFile = server.mappath("./majors_bottom") & "\" & major & ".txt" if filesys.fileExists(tempFile) then set rfile = filesys.OpenTextFile(tempFile, 1, false) bottomText = rfile.ReadAll rfile.close else bottomText = "" end if %>