|
<%
Response.Expires = 0
Response.Buffer=True
Session("campusidf") = 0
dim objfeature
Set objfeature = Server.CreateObject("ubvios.Feature")
'Page Features
objfeature.Name = "PageBackground"
objfeature.Default = "#DDEEFF"
objfeature.FeatureType= "Color"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Page Background Color"
objfeature.ProcessFeature()
col_background = objFeature.Value
objfeature.Name = "TextColor"
objfeature.Default = "#111144"
objfeature.FeatureType= "Color"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Text Color"
objfeature.ProcessFeature()
col_textcolor = objFeature.Value
objfeature.Name = "ColumnColor"
objfeature.Default = "#FFFFFF"
objfeature.FeatureType= "Color"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Left Column Background Color"
objfeature.ProcessFeature()
col_columncolor = objFeature.Value
objfeature.Name = "ColumnTextColor"
objfeature.Default = "#0000DD"
objfeature.FeatureType= "Color"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Left Column Font Color"
objfeature.ProcessFeature()
col_columntextcolor = objFeature.Value
objfeature.Name = "PageWidth"
objfeature.Default = "100%"
objfeature.FeatureType= "Dimension"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Page Width"
objfeature.ProcessFeature()
dim_pagewidth = objFeature.Value
objfeature.Name = "ColumnWidth"
objfeature.Default = "200"
objfeature.FeatureType= "Dimension"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Width of Left Column"
objfeature.ProcessFeature()
dim_columnwidth = objFeature.Value
objfeature.Name = "TopImage"
objfeature.Default = "/Webfaces/images/teaching.jpg"
objfeature.FeatureType= "Image"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Top Image"
objfeature.ProcessFeature()
img_top = objFeature.Value
objfeature.Name = "CourseTitle"
objfeature.Default = "Course Webpage"
objfeature.FeatureType= "Input"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Course Title"
objfeature.ProcessFeature()
ff_course = objFeature.Value
objfeature.Name = "InstructorName"
objfeature.Default = "NetVIOS Instructor"
objfeature.FeatureType= "Input"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Instructor Name"
objfeature.ProcessFeature()
ff_instructor = objFeature.Value
objfeature.Name = "InstructorEmail"
objfeature.Default = "netvios@netvios.com"
objfeature.FeatureType= "Email"
objfeature.Scope = "Page"
objfeature.IsCookie = True
objfeature.Caption = "Instructor Email"
objfeature.ProcessFeature()
ff_email = objFeature.Value
Set objfeature = Nothing
%>
<html>
<head>
<title>NetVIOS Web Features</title>
</head>
<body bgcolor="<%=col_background%>">
<table width = <%=dim_pagewidth%>>
<tr>
<td colspan=2 align=right><img src = "<%=img_top%>" border=0><hr></td>
</tr>
<tr>
<td width=<%=dim_columnwidth%> height=300 valign=top bgcolor="<%=col_columncolor%>">
<font face=Arial color="<%=col_columntextcolor%>" size=3>
Announcements<br>
Notes<br>
Assignments<br>
Solutions<br>
Calendar<br>
Submissions<br>
</font>
</td>
<td valign=top>
<center>
<font face=Verdana color="<%=col_textcolor%>" size=4><%=ff_course%></font><br>
<font face=Verdana color="<%=col_textcolor%>" size=2>Instructor: <%=ff_instructor%></font><br>
<font face=Verdana color="<%=col_textcolor%>" size=2><a href=mailto:<%=ff_email%>>Email</a></font>
</center>
</td>
</tr>
<tr>
<td colspan=2>
<hr>
<font face=Verdana color="<%=col_textcolor%>" size=2>A NetVIOS Courseware Template<br>
<a target=_blank href="/WOS/pagecookies.asp?WOSPageID=/WebFaces/webfeatures2.asp">Customize/Edit Page Features</a></font>
</td>
</tr>
</table>
</form>
</body>
</html>
|
