<% ''Option Explicit Dim strForumConnection Dim Conn1 Dim rsForum Dim sqlForumTopic Dim strTopic 'Dim ArrDayType 'Dim ArrTimeType 'Dim sqlOn_Air 'Dim strShow 'Dim dtComment 'Dim strPresenter 'Dim strShowType 'Dim adoOn_Air 'Dim strCurrentDay 'Dim strfull_day_of_week 'Dim strCurrent_Short_Time 'Dim strPresenter1 %> <% 'For LIVE 'strForumConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("forum/database/forum.mdb") & ";" 'MySQL Connection strForumConnection = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=voiceofthecape; UID=; PWD=; Option=3" Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open(strForumConnection) sqlForumTopic = "SELECT Name FROM Forum;" Set rsForum = Conn1.Execute(sqlForumTopic) rsForum.MoveFirst strTopic = rsForum("Name") Set rsForum = nothing Conn1.close set Conn1=nothing %>

Discussion Forum:

<%=strTopic%>