Also each simple BBS (seven)--a little note

This BBS Display page is not ideal, that for the future can be sent to me! Email:hahuwe@sina.com. Another database to build code!
The BBS database code is as follows:
<%
Set conn = Server.CreateObject ("ADODB. Connection ")
DBPath = Server.MapPath ("Bbs.mdb")
Conn. Open "Driver={microsoft Access driver (*.mdb)};d bq=" & DBPath
sql= "CREATE TABLE BBS (ID text (4), AuthorName text (), subject text, Content memo,"
sql=sql& "Adddate date,visitnum long,answernum text (4), Addtime time,topnum text (4))"
Conn.execute (SQL)
%>

The author database is as follows:
<%
Set conn = Server.CreateObject ("ADODB. Connection ")
DBPath = Server.MapPath (Author.mdb ")
Conn. Open "Driver={microsoft Access driver (*.mdb)};d bq=" & DBPath

Sql= "CREATE table author (authorname text), Pawword text (20))"
Conn.execute (SQL)
%>