<%
' 建立 Connection 物件
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & SERVER.MapPath("news.mdb")
' 連結資料庫
conn.Open Provider & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
qq = year(now()) & "/" & mid(100+ month(now()),2,2) & "/" & mid(100 + day(now()),2,2)
ss = " SELECT * FROM tab00 where ChangeDate is not null and news02 >= '" & qq & "' ORDER BY ChangeDate;"
Response.Write ss
Response.END
rs.Open ss, conn, 1, 3
IF NOT rs.eof then
Response.Write " "
Response.Write ""
Response.Write "| 本 會 快 訊 ∼∼∼ | "
Response.Write " "
'Response.Write ""
'Response.Write "快 訊 內 容 | "
'Response.Write "發 佈 者 | "
'Response.Write " "
rs.movefirst
while not rs.eof
Response.Write ""
if isnull(rs("news01")) = true then
ss1 = " "
else
ss1 = rs("news01")
end if
if isnull(rs("ChangeGuy")) = true then
ss3 = " "
else
ss3 = MID(rs("ChangeGuy"),2,6)
end if
Response.Write "| " & ss3 & " | "
Response.Write "" & ss1 & " | "
rs.movenext
wend
Response.Write " "
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
|
