<%
name = Request("name")
password = Request("password")
email = Request("email")
title = Request("title")
content = Request("content")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open "DSN=uni21;UID=;PWD=;"
Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.Open "SELECT number FROM freeboard ORDER BY number DESC", oConn, 3
'oRs.Open "SELECT number FROM freeboard ORDER BY number DESC", oConn, adOpenStatic
if(oRs.BOF=True and oRs.EOF = True) then
number = 1
else
Set ResultTemp = oConn.execute("select Max(number) from freeboard")
number = ResultTemp(0) + 1
ResultTemp.Close
Set ResultTemp = Nothing
end if
StrDate = CStr(now)