%
Set Rs = Server.CreateObject("ADODB.RecordSet")
If Request("under") <> "" Then
sql = "select *, datediff(Day, lastmod, getdate()) as diff from messages where under = '" & Request("under") & "' and date_on < getdate() and date_off > getdate() order by id desc"
Else
sql = "select *, datediff(Day, lastmod, getdate()) as diff from messages where date_on < getdate() and date_off > getdate() order by id desc"
End If
'Response.Write sql
Rs.open sql,conn,1,1
Rs.PageSize = CURGAP
TOTALPAGES = Rs.PageCount
TOTALRECORDS = Rs.RecordCount
STARTRECORD = (CURPAGE - 1) * CURGAP + 1
TEMP = 1
%>
基督教台北真道教會 TAIPEI TRUTH CHURCH 三峽聚會處
<%
Set Conn2=Server.CreateObject("ADODB.Connection")
StrConn2="Driver={SQL Server};Server=TTCWEB\TTCDB;Uid=truthweb;Pwd=truth.org.tw;DataBase=ttcweb"
Conn2.open StrConn2
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
sql2 = "SELECT * FROM cat_file order by ""order"""
Rs2.open sql2,Conn2,1,1
Do While (Not Rs2.EOF)
%>