環球聖經公會 Worldwide Bible Society

<% tmpRS.Close objConn.Close Set tmpRS = nothing Set objConn = nothing %>

歡迎致電 23567234 向林小姐查詢

<% Set tmpRS = Server.CreateObject("ADODB.Recordset") sql = "SELECT FORMAT(ShowDate,'YYYY-MM-DD') AS CurDate, DailyWord, Message, Pray FROM Devotional WHERE Lang = '" & session("lang") & "'" sql = sql & " AND ShowDate >=CDATE(FORMAT(NOW, 'D MMM YYYY')) ORDER BY ShowDate ASC " SET tmpRS = objConn.Execute(sql) IF NOT tmpRS.EOF THEN Response.Write "" & tmpRS("CurDate") & "

" Response.Write "" & tmpRS("DailyWord") & "

" Response.Write tmpRS("Message") & "

" Response.Write tmpRS("Pray") & "

" END IF 'tmpRS.CLOSE 'SET tmpRS = NOTHING %>

<% sql = "SELECT Sentence FROM DailySentence WHERE Lang = '" & session("lang") & "'" sql = sql & " AND MsgDate >= CDATE(FORMAT(NOW, 'D MMM YYYY')) ORDER BY MsgDate ASC " Set tmpRS = Server.CreateObject("ADODB.Recordset") SET tmpRS = objConn.Execute(sql) IF NOT tmpRS.EOF THEN Response.Write tmpRS("Sentence") END IF 'tmpRS.CLOSE 'SET tmpRS = NOTHING 'objConn.CLOSE 'SET objConn = NOTHING %>

【將本站設為首頁】【加到我的最愛】【介紹給朋友】【交換banner】

<% if request("key") <> "" then response.redirect "newsdetail.asp?key=" & server.URLEncode(request("key")) end if lang = session("lang") if lang="" then lang = "CHT" end if session("lang") = lang sql = "select * from News where Lang ='" & lang & "'" sql = sql & " order by Date desc, Lang desc, Key desc" Set tmpRS = Server.CreateObject("ADODB.Recordset") tmpRS.Open sql, objConn, 3 'adOpenStatic pagesize = CLng(Request("PageSize")) if pagesize = 0 then pagesize = 4 end if tmpRS.PageSize=pagesize if tmpRS.PageCount < 1 then nodata = true else nodata = false end if Page = CLng(Request("Page")) 'Response.write Page 'Response.write " " & tmpRS.PageCount if Page < 1 then Page = 1 end if if Page > tmpRS.PageCount then Page = tmpRS.PageCount end if 'Response.write " " & Page if not nodata then tmpRS.AbsolutePage = Page end if iPage = 1 %>

事工消息

<% if not nodata then Do While ((NOT tmpRS.EOF) and (iPage <= tmpRS.PageSize)) response.write "" & tmpRS("Date") & "

" & tmpRS("Subject") & "
" & vbCrLf response.write "" & trim(tmpRS("Abstract").getChunk(tmpRS("Abstract").ActualSize)) & "

" & vbCrLf iPage = iPage + 1 tmpRS.MoveNext Loop end if %>

按此關閉視窗 ->