%
' INCLUDE FILES AND VARIABLES
openPage = "index.asp" 'include helper, talks to dbsupport
openDB = "../access_db/sbDB.mdb" 'include helper, talks to dbsupport
%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
'OPEN DATABASE
Set Conn1 = OpenDB2(openPage,openDB)
%>
Susan Buck (
General ITP)
<%
whichClass = request.queryString("whichClass")
theDay = WeekdayName(weekday(date))
if whichClass = "" then
if theDay = "domenica" then
theDay = "Sunday"
elseif theDay = "lunedì" then
theDay = "Monday"
whichClass = "narInTheRound"
elseif theDay = "martedì" then
theDay = "Tuesday"
whichClass = "dynamicWeb"
elseif theDay = "mercoledì" then
theDay = "Wednesday"
whichClass = "nonFicMedia"
elseif theDay = "giovedì" then
elseif theDay = "venerdì" then
theDay = "Friday"
whichClass = "digitalImaging"
elseif theDay = "sabado" then
theDay = "Saturday"
end if
end if
%>
<%p date()%>
Spring '07
<% if whichClass = "narInTheRound" then %>
-
Narrative in the Round
<% else %>
-
Narrative in the Round
<% end if %>
<% if whichClass = "dynamicWeb" then %>
-
Dynamic Web Development
<% else %>
-
Dynamic Web Development
<% end if %>
<% if whichClass = "nonFicMedia" then %>
-
Experimental Approaches to Non-Fiction Media
<% else %>
-
Experimental Approaches to Non-Fiction Media
<% end if %>
<% if whichClass = "ajax" then %>
-
GUI Interface Design with AJAX
<% else %>
-
GUI Interface Design with AJAX
<% end if %>
<% if whichClass = "digitalImaging" then %>
-
Digital Imaging: Reset
<% else %>
-
Digital Imaging: Reset
<% end if %>
Fall '06
<% if whichClass = "applications" then %>
-
Applications in Interactive Telecommunications Systems
<% else %>
-
Applications in Interactive Telecommunications Systems
<% end if %>
<% if whichClass = "redGRoup" then %>
-
App Presentation
<% else %>
-
Presentation
<% end if %>
<% if whichClass = "comLab" then %>
-
Communications Lab
<% else %>
-
Communications Lab
<% end if %>
<% if whichClass = "compMedia" then %>
-
Intro to Computational Media
<% else %>
-
Intro to Computational Media
<% end if %>
<% if whichClass = "pcomp" then %>
-
Intro to Physical Computing
<% else %>
-
Intro to Physical Computing
<% end if %>
<%
'sql = "CREATE TABLE itpNYU (theClass memo,semester memo,content memo)"
'conn1.execute(sql)
'theClass = "narInTheRound"
'semester = "spring07"
'content = "stuff"
'sql = "INSERT into itpNYU (theClass,semester,content) VALUES ('" & theClass & "','" & semester & "','" & content & "')"
'conn1.execute(sql)
'theClass = "redGroup"
'semester = "fall06"
'content = "stuff"
'theClass = "applications"
'semester = "fall06"
'content = "stuff"
'theClass = "compMedia"
'semester = "fall06"
'content = "stuff"
'theClass = "pcomp"
'semester = "fall06"
'content = "stuff"
'theClass = "general"
'semester = "fall06"
'content = "stuff"
'whichClass = request.queryString("whichClass")
form = request.queryString("form")
editAction = request.queryString("editAction")
content1 = request.form("content")
content2 = replace(content1,"'","[]")
content = replace(content2,"""","[[]]")
if editAction = "save" then
sql = "UPDATE itpNYU set content='" & content & "' WHERE theClass='" & whichClass & "'"
if Request.Cookies("user") = "susan" OR whichClass = "redGroup" then
conn1.execute(sql)
end if
end if
classTitle = whichClass
select case (classTitle)
case "general"
classTitle = "general ITP"
case "comLab"
classTitle = "Communications Lab"
case "applications"
classTitle = "Applications in Interactive Telecommunications Systems"
case "compMedia"
classTitle = "Intro to Computational media"
case "pcomp"
classTitle = "Intro to Physical Computing"
case "redGroup"
classTitle = "Applications Presentation Group"
case "dynamicWeb"
classTitle = "Dynamic Web Development"
case "nonFicMedia"
classTitle = "Experimental Approaches to Non-Fiction Media"
case "ajax"
classTitle = "GUI Interface Design in Ajax"
case "digitalImaging"
classTitle = "Digital Imaging : Reset"
case "narInTheRound"
classTitle = "Narrative in the Round"
end select
if whichClass <> "" then
sql = "select * from itpNYU where theClass ='" & whichClass & "'"
set rs1 = conn1.execute(Sql)
theClass = rs1.fields("theClass")
semester = rs1.fields("semester")
content1 = rs1.fields("content")
content2 = replace(content1,"[[]]","""")
content = replace(content2,"[]","'")
%>
<%p classTitle%>
view
edit
<% if form = "edit" then %>
save
save and view
<% end if%>
<%
if form = "view" then %>
<%p content%>
<%
elseif form = "edit" then %>