<%@ Language=VBSCRIPT %>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM Yeartext"
' Open the Recordset
objRS.Open Source, ConnectionString
%>
Events and Announcements
The calendar below displays
ALL upcoming events and announcements, beginning with information
concerning Fishback Studio of the Dance that is unique to this page. Important or timely announcements will appear underlined at
the top of the list, with the most recent announcement posted
first. This is followed by upcoming events, such as dance
competition dates, and lastly,
the General Information calendar. We hope
that this inclusive format will provide a convenient and easily
accessible area where you can keep abreast of all the goings on at
Fishback Studio.
Coming Events and
Recent Announcements
<%
objRS.close
set objRS = nothing
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM AnnounceQ"
' Open the Recordset
objRS.Open Source, ConnectionString
If Not objRS.EOF Then
' Display the Fields Returned
Do While Not objRS.EOF
Response.Write "" & objRS("DateLine") & " - " & objRS("ContentLine") & "
"
objRS.MoveNext
Loop
End If
' DeAllocate the Object to Free Server Memory
set objRS = nothing
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM FishbackEvents"
' Open the Recordset
objRS.Open Source, ConnectionString
' Display the Fields Returned
Do While Not objRS.EOF
Response.Write "" & objRS("DateLine") & " - " & objRS("ContentLine") & "
"
objRS.MoveNext
Loop
' DeAllocate the Object to Free Server Memory
set objRS = nothing
%>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM SStars"
' Open the Recordset
objRS.Open Source, ConnectionString
' Display the Fields Returned
Do While Not objRS.EOF
Response.Write "" & objRS("DateLine") & " - " & objRS("ContentLine") & "
"
objRS.MoveNext
Loop
' DeAllocate the Object to Free Server Memory
set objRS = nothing
%>
|
|
General Information
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM GenCal"
' Open the Recordset
objRS.Open Source, ConnectionString
' Display the Fields Returned
Do While Not objRS.EOF
Response.Write "" & objRS("DateLine") & " - " & objRS("ContentLine") & "
"
objRS.MoveNext
Loop
' DeAllocate the Object to Free Server Memory
set objRS = nothing
%>
|
|
|
