<%response.buffer=true%> <% 'CIS212 colors: Headers:063D59 A Link:063D59 H Link/CopyRight:99cc66 A Copyright:8CAC28 Bold:004080 diamond = "#ff9900" Response.Expires = 0 yere = datepart("yyyy",date) Status = session("Status") First = session("First") message = trim(Session("msg")) Session("msg") = "" if First <> "" then welcome = "" & First & " is logged in!
" welcome = welcome & " Student Profile

" welcome = welcome & " LOGOUT

" else welcome = " Login on Main Page
" 'welcome = welcome & " Email Password?

" end if dim misc, resources, handouts, expect misc = linkArray(allM,misc,diamond) resources = linkArray(allR,resources,diamond) handouts = linkArray(allH,handouts,diamond) expect = linkArray(allE,expect,diamond) if Status <> "" then if (Status = "Admin") or (Status = "Current") then misc = linkArray(currM,misc,diamond) resources = linkArray(currR,resources,diamond) handouts = linkArray(currH,handouts,diamond) expect = linkArray(currE,expect,diamond) end if if (Status = "Alum") then misc = linkArray(alumM,misc,diamond) resources = linkArray(alumR,resources,diamond) handouts = linkArray(alumH,handouts,diamond) expect = linkArray(alumE,expect,diamond) end if if (Status = "Admin") then misc = linkArray(adminM,misc,diamond) end if end if misc = addTable(misc,"miscellaneous:") handouts = addTable(handouts,"handouts:") resources = addTable(resources,"resources:") expect = addTable(expect,"expectations:") %> Writing for the Web - WEB160

 

<% 'write nav with response .Write welcome .Write expect .Write handouts .Write resources .Write misc end with %>

Email: williamnewman@gmail.com

<% function linkArray(myStr,myVar,myColor) 'adds links from classAccess file if myStr <> "" then myArray = split(myStr,"~") for x = LBound(myArray) to UBound(myArray) step 3 myArray(x) = replace(myArray(x),"!","~") 'replace ballbat with tilde for Zephir link!! linkArray = linkArray & " " & myArray(x+1) & "
" & vbCrLf next end if linkArray = myVar & linkArray end function function addTable(myVar,varTitle) 'adds table/header if applicable to links if myVar <> "" then addTable = "" & vbCrLf addTable = addTable & "" & vbCrLf & "
" & vbCrLf addTable = addTable & "

" & varTitle & "

" & vbCrLf addTable = addTable & myVar & vbCrLf addTable = addTable & "

" & vbCrLf else addTable = "

 

" end if end function %>