<%
Dim adoCon
Dim strCon
Dim rsOption
Dim rsCommonMenu
Dim strAccessDB
Dim strSQL
Dim SCRIPT_NAME
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
strAccessDB = "D:\CentralHotel\cmmn.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & strAccessDB
adoCon.Open strCon
%>
<%
Dim New_Date
Dim DIFF
Function NewPost
On Error Resume Next
NEW_DATE = 7
DIFF = DateDiff("d",CDate(rsCommon("Postdate")),Now())
If Err.Number =< 0 And DIFF <= NEW_DATE Then
NewPost = " New"
End If
NewPost = NewPost
End Function
%>
<%
Response.Buffer = True
if request.form("送信")<> "送信" then
%>
