<% '---------------- 'View Data Code Dim rs Dim dbconn '-- Dim fsoObject ' FileSystemObject '-- Dim filObject '-- Const ForAppending = 8 '-- Const TristateTrue = -1 set dbconn = server.createobject("ADODB.Connection") '-- set fsoObject = Server.CreateObject("Scripting.FileSystemObject") dbconn.open "DSN=tect" SQL = "Select * FROM gazette ORDER BY date DESC" set rs = dbconn.execute(SQL) '---------------- %> Toronto Elementary Catholic Teachers | www.tect.org | <% =rs("title")%>
<% Response.Write ("

") Response.Write ("") Response.Write rs.Fields("title") Response.Write ("") Response.Write ("

") Response.Write ("

") Response.Write rs.Fields("author") Response.Write ("

") Response.Write ("

") Response.Write rs.Fields("date") Response.Write ("

") Response.Write ("") Response.Write rs.Fields("body") Response.Write ("") %>

Home | TECT Gazette | Resource Centre | Metro Voice | Event Calendar | Sub Units | Site Map | Search | Contact

copyright©2001 Toronto Elementary Catholic Teachers