Select a topic below to read posts submitted for that discussion.
You may also create a topic.

>>Create New Topic

<% dim con,rs,str,count,DSNtemp count = 1 set con = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("POWERSHOT.mdb") con.Open DSNtemp str = "SELECT * FROM Topics ORDER BY Topic " Set rs = con.Execute(str) Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" While NOT rs.EOF Response.Write "" Response.Write "" count = count + 1 Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext Wend Response.Write "
" Response.Write "#" Response.Write "Topic Name " Response.Write "# Messages " Response.Write "Last Post
" & count & "" Response.Write "" Response.Write rs("Topic") & "" Response.Write rs("MessageCount") & "" Response.Write rs("LastPost") & "
" rs.Close con.Close %>

>>Create New Topic