<%
SQLCmd= "CREATE TABLE BulletinBoard ( "& _
" id int IDENTITY(1,1) NOT NULL , "& _
" nid int NOT NULL, "& _
" name nvarchar(255), "& _
" city nvarchar(50), "& _
" career nvarchar(100), "& _
" company nvarchar(255), "& _
" email nvarchar(80), "& _
" subject nvarchar(255), "& _
" message ntext, "& _
" edittime smalldatetime, "& _
" ip nvarchar(50), "& _
" status tinyint NULL)"
set connect=Server.CreateObject("ADODB.Connection")
connect.Open DBname
set cm=Server.CreateObject("ADODB.Command")
'Rs.Open "drop table BulletinBoard"
'cm.ActiveConnection=connect
'cm.CommandText=SQLCmd
'cm.Execute
'response.write SQLCmd
'response.write "OK"& "
"
set Rs=Server.CreateObject("ADODB.Recordset")
'SQLCmd= "SELECT id,name,city,career,company,email,subject,msg,edittime,ip,status from BulletinBoard"
SQLCmd= "SELECT * from BulletinBoard"
Rs.Open SQLCmd,connect,3,3
For j=0 to Rs.Fields.Count-1
Response.Write ""& Rs.Fields(j).Name & " "
Next
Response.write "
"
For i=1 to Rs.RecordCount
For j=0 to Rs.Fields.Count-1
Response.Write Rs.Fields(j).Value
Response.Write " "
Next
Response.Write "
"
Rs.MoveNext
Next
Response.Write rs.Fields.Count &"cols"&"
"
Response.Write rs.RecordCount &"nums"
%>