<% ' FacultyHomePage.asp ' Faculty Home Page Display Script ' Roosevelt University Faculty Web ' Revised 4 August 2004 ' Revised 4 September 2004; fixed Office Hours Bug ' '-- Original: Ascii King (chicorama@usa.net) --> '-- Web Site: http://www.geocities.com/enchantedforest/2120 --> '-- This script and many more are available free online at --> '-- The JavaScript Source!! http://javascript.internet.com --> function ConvertBR(input) ' Adds
after carriage returns ' for display in HTML dim output output = "" for i = 1 to len(input) if (mid(input,i,2) = chr(13)&chr(10)) then output = output & "
" i = i + 1 else output = output & mid(input,i,1) end if next convertBR = output End function ' name_font_size="4" regular_font_size="2" maroon="#800000" green="#003300" black="#000000" white="#FFFFFF" gray="#C0C0C0" ' ' ' dim phypath, slashpos, getpath, strFinalFolder, facfolder 'Convert the virtual path of the current file to physical path phypath = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) 'locate position of \ from the end slashpos = instrrev(phypath,"\") 'separate the folder path name from the file name getpath = left(phypath,slashpos-1) 'replace the beginning of the folder path--you may need to change this to reflect your directory structure strFinalFolder = Replace(getpath, "C:\Inetpub\wwwroot\", "") ' separate foldername from rest of path slashpos = instrrev(getpath,"\") FacFolder = right(getpath, len(getpath)-slashpos) dim folder folder= strFinalFolder ' ' ' dim objConn, objRS dim name, dept, title, email, DT, DRoom, DPhone, DHours, RRoom, RPhone, RHours, pict, class_head, classes, research_head, research dim another1, another2, another3, field1, field2, field3, link1, link2, link3, link4, descr1, descr2, descr3, descr4, save dim EmailWidth, DTWidth set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=HomePageData" objConn.Open sql_select = "Select * FROM tblHomePage WHERE folder = '" & folder &"'" set objRS = objConn.execute(sql_select) ' folder = objRS("folder") name = objRS("name") dept = objRS("dept") title = objRS("title") email = objRS("email") DT = objRS("DT") DRoom = objRS("DRoom") DPhone = objRS("DPhone") DHours = objRS("DHrs") RRoom = objRS("RRoom") RPhone = objRS("RPhone") RHours = objRS("RHrs") pict = objRS("pict") picHeight = objRS("picHeight") class_head = objRS("class_head") myclasses = objRS("myclasses") research_head = objRS("research_head") research = objRS("resrch") another1 = objRS("another1") field1 = objRS("fld1") another2 = objRS("another2") field2 = objRS("fld2") another3 = objRS("another3") field3 = objRS("fld3") link1 = objRS("link1") link2 = objRS("link2") link3 = objRS("link3") link4 = objRS("link4") descr1 = objRS("descr1") descr2 = objRS("descr2") descr3 = objRS("descr3") descr4 = objRS("descr4") objConn.Close Set objConn=nothing EmailWidth=0 if (DRoom<>"" OR DPhone<>"" OR DHours<>"") then EmailWidth=1 end if if (RRoom<>"" OR RPhone<>"" OR RHours<>"") then EmailWidth=EmailWidth+1 DTWidth=" width=""30&""" else DTWidth=" width=""*""" end if response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&""&name&" Home Page" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"

" response.write chr(13)&chr(10)&"

" response.write chr(13)&chr(10)&" Go to the Roosevelt University home page" response.write chr(13)&chr(10)&"

" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"

" response.write chr(13)&chr(10)&"  " response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " if (DRoom<>"" OR DPhone<>"" OR DHours<>"" OR RRoom<>"" OR RPhone<>"" OR RHours<>"" OR email <> "") then response.write chr(13)&chr(10)& "" end if ' Check if has uploaded any files to course folders Set conn=Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "DSN=CourseFilesData" Conn.Open strSQL = "SELECT TblCourseFiles.FacFolder FROM TblCourseFiles " strSQL = strSQL & "WHERE TblCourseFiles.FacFolder = '" & FacFolder & "'" set objRS = Conn.execute(strSQL) if (myclasses <> "") or (NOT objRS.EOF = True) then response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10) end if conn.Close Set conn=nothing if (research <> "") then response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " end if if (field1 <> "") OR (field2 <> "") OR (field3 <> "") then response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" if (field1 <> "") then response.write chr(13)&chr(10)& " " end if if (field2 <> "") then response.write chr(13)&chr(10)& " " end if if (field3 <> "") then response.write chr(13)&chr(10)& " " end if end if if ((link1 <> "") OR (link2 <> "") OR (link3 <> "") OR (link4 <> "")) then response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " end if response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" if (pict <> "") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
"&name&"" if (title <> "") then response.write chr(13)&chr(10)& "
"&title end if response.write chr(13)&chr(10)& "

Roosevelt University" if (dept <> "") then response.write chr(13)&chr(10)& "
"&dept end if response.write chr(13)&chr(10)& "

" else response.write chr(13)&chr(10)& "                " end if response.write chr(13)&chr(10)& "
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"" if (DRoom<>"" OR DPhone<>"" OR DHours<>"" OR RRoom<>"" OR RPhone<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " if (DRoom<>"" OR DPhone<>"" OR DHours<>"") then if (RRoom<>"" OR RPhone<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " else response.write chr(13)&chr(10)& " " end if else response.write chr(13)&chr(10)& " " end if response.write chr(13)&chr(10)& " " if (DRoom<>"" OR RRoom<>"") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " if (DRoom<>"" OR DPhone<>"" OR DHours<>"") then response.write chr(13)&chr(10)& " " end if if (RRoom<>"" OR RPhone<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " end if response.write chr(13)&chr(10)& " " end if if (DPhone<>"" OR RPhone<>"") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " if (DRoom<>"" OR DPhone<>"" OR DHours<>"") then response.write chr(13)&chr(10)& " " end if if (RRoom<>"" OR RPhone<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " end if response.write chr(13)&chr(10)& " " end if if (DHours<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)&" " if (DRoom<>"" OR DPhone<>"" OR DHours<>"") then response.write chr(13)&chr(10)& " " end if if (RRoom<>"" OR RPhone<>"" OR RHours<>"") then response.write chr(13)&chr(10)& " " end if response.write chr(13)&chr(10)& " " end if end if if (email <> "") then response.write chr(13)&chr(10)& "" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" "&email&"" response.write chr(13)&chr(10)&" " end if response.write chr(13)&chr(10)& "
OfficeChicago CampusSchaumburg CampusChicago CampusSchaumburg Campus
Room"&DRoom if DRoom<>"" then response.write chr(13)&chr(10)& " (" & DT &")" end if response.write chr(13)&chr(10)& ""&RRoom&"
Phone" if (DPhone<>"") then if DT="Auditorium Bldg." then response.write chr(13)&chr(10)& "(312) 341-"&DPhone else response.write chr(13)&chr(10)& "(312) 281-"&DPhone end if end if response.write chr(13)&chr(10)& "" if (RPhone<>"") then response.write chr(13)&chr(10)& "(847) 619-"&RPhone end if response.write chr(13)&chr(10)& "
Hours" response.write chr(13)&chr(10)&" "&DHours&"" response.write chr(13)&chr(10)&" "&RHours&"
E-mail
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)& " " response.write chr(13)&chr(10)& "
"&class_head&"
" if (myclasses <> "") then response.write chr(13)&chr(10)& " "&ConvertBR(myclasses) end if if (NOT objRS.EOF = True) then 'has at least one file in the database response.write "

Click here to browse my folders and files
" end if response.write chr(13)&chr(10)& "

" response.write chr(13)&chr(10)& "
" response.write chr(13)&chr(10)& "
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
"&research_head&"
" response.write chr(13)&chr(10)&" "&ConvertBR(research) response.write chr(13)&chr(10)& "
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
"&another1&"
" response.write chr(13)&chr(10)&" "&ConvertBR(field1)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
"&another2&"
" response.write chr(13)&chr(10)&" "&ConvertBR(field2)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
"&another3&"
" response.write chr(13)&chr(10)&" "&ConvertBR(field3)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " if (link1 <> "") then response.write chr(13)&chr(10)& " " end if if (link2 <> "") then response.write chr(13)&chr(10)& " " end if if (link3 <> "") then response.write chr(13)&chr(10)& " " end if if (link4 <> "") then response.write chr(13)&chr(10)& " " end if response.write chr(13)&chr(10)& "
Links
" response.write chr(13)&chr(10)&" "&descr1&" (http://"&link1&")" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" "&descr2&" (http://"&link2&")" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" "&descr3&" (http://"&link3&")" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" "&descr4&" (http://"&link4&")" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&" " response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&" Roosevelt University" response.write chr(13)&chr(10)&"
Chicago 430 S. Michigan Ave, Chicago, IL 60605" response.write chr(13)&chr(10)&"
Schaumburg " response.write chr(13)&chr(10)&" 1400 N. Roosevelt Blvd, Schaumburg, IL 60173
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"
" response.write chr(13)&chr(10)&"" response.write chr(13)&chr(10)&"" %>