<%
' *********** DO NOT TOUCH **************
' Display forum contents
Function display_forum
Set Con = Server.CreateObject("ADODB.Connection")
strCon = "DSN=kyndallDB;UID=;PWD="
Con.Open strCon
set rsForum = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Forums ORDER BY ForumDate DESC"
rsForum.Open SQL,con
Do While Not rsForum.EOF
Response.Write "" &rsForum("Comments") & ""
Response.Write " " &rsForum("Name") &" < "
Response.Write ""&rsForum("Email")&" > "
Response.Write rsForum("City") & ", "& rsForum("State") &" - "&rsForum("Country")&" ("&rsForum("ForumDate")&")"
Response.Write ""
rsForum.MoveNext
Loop
rsForum.Close
set rsForum = nothing
Con.Close
set Con = nothing
end function
' *********************************************
%>