<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%
FID= request.Querystring("FID")

Jummp = FID
select case Jummp
case "1"
ForumName = "General"
case "2"
ForumName = "Employee" 
case "3"
ForumName = "Suggestions"
end select
%>


 



<html>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
   Dim Connect As OleDbConnection = New OleDbConnection
   Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
   Dim ViewTopics As DataSet = New DataSet
   Dim ConnectString, SelectStatement As String
   Dim Category As String


      Header.Text = "Category Listing: " & Category
      SelectStatement = _
         "Select * From Topic Where ForumID='" & FID & "'"

   ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=d:\inetpub\experiencethepoint.com\orum.mdb"

   Connect.ConnectionString = ConnectString
   Adapter.SelectCommand = _
      new OleDbCommand(SelectStatement, Connect)
   Adapter.SelectCommand.Connection.Open
   Adapter.Fill(ViewTopics,"Topics")
   AdsGrid.DataSource = ViewTopics.Tables("Topics")
   Page.DataBind
End If
End Sub
</script>
<body vlink=red>
<asp:label id="Header" runat="server"
font-size="18 pt" font-bold="true"/><br><br>


<br><center>
<asp:hyperlink id="HomeLink" runat="server"
navigateurl="default.aspx" font-bold="true"
font-name="Arial" font-size="12 pt">
[ Home ]</asp:hyperlink>
</center>
</form>
</body>
</html>
