<% If Request("class") <> "" then product_class = Request("class") If Request("style") <> "" then product_style = Request("style") If Request("money") <> "" then order_money = Request("money") If Request("topage") <> "" then topage = Request("topage") Else topage = 1 End If If order_money = "" and product_class = "" then Response.Write ("") Response.End End If Set Rs = Server.CreateObject("ADODB.recordset") Set RsSub = Server.CreateObject("ADODB.recordset") SQL = "SELECT * FROM product WHERE sn in (select max(sn) from product where sn<>0" If product_class <> "" And product_class <> "花禮目錄" then SQL = SQL + " And class = '" & Product_class & "'" If product_style <> "" then SQL = SQL + " And style = '" & product_style & "'" If order_money <> "" then SQL = SQL + " And sale_money Between " & order_money & " And " & Cint(order_money) + 999 SQL = SQL & " group by product_mumber) ORDER BY sn desc,product_mumber DESC " 'response.write SQL Rs.Open SQL, conn,1,3 'If Not Rs.Eof then 'product_class = Rs("class") 'product_style = Rs("style") 'End If Count = Rs.RecordCount If Count <> 0 then If Count/9 > (Count\9) then TotalPage = (Count\9) + 1 Else TotalPage = (Count\9) End If Rs.MoveFirst If ToPage = "" or ToPage = Empty then ToPage = 1 End If Rs.Move (ToPage-1) * 9 Else TotalPage=1 End If If Cint(topage) <> 1 then Backpage = Cint(topage) - 1 Else Backpage = 1 End If If Cint(topage) < Cint(totalpage) then nextpage = Cint(topage) + 1 Else nextpage = Cint(totalpage) End If Select Case product_class case "開幕喬遷" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│高架花籃" Othera = Othera + "│落地盆栽" Othera = Othera + "│造型盆栽" Othera = Othera + "│開運盆栽" Otherb = "企業送禮>開幕喬遷>"& product_style &"" case "陞官任職" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│高架花籃" Othera = Othera + "│造型盆栽" Othera = Othera + "│落地盆栽" Othera = Othera + "│開運盆栽" Othera = Othera + "│禮籃&花盒" Otherb = "企業送禮>陞官任職>"& product_style &"" case "商品發表" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│高架花籃" Othera = Othera + "│造型盆栽" Othera = Othera + "│開運盆栽" Otherb = "企業送禮>商品發表>"& product_style &"" case "演唱會" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│高架花籃" Othera = Othera + "│花束" Othera = Othera + "│禮籃&花盒" Otherb = "企業送禮>演唱會>"& product_style &"" case "弔唁追思" Othera = "參考其他→" Othera = Othera + "高架花籃" Othera = Othera + "│盆花" Othera = Othera + "│造型盆栽" Otherb = "企業送禮>弔唁追思>"& product_style &"" case "喜獲麟兒" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│禮籃&花盒" Otherb = "個人送禮>喜獲麟兒>"& product_style &"" case "結婚誌慶" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│高架花籃" Othera = Othera + "│花束" Otherb = "個人送禮>結婚誌慶>"& product_style &"" case "早日康復" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│禮籃&花盒" Otherb = "個人送禮>早日康復>"& product_style &"" case "生日快樂" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│花束" Othera = Othera + "│造型盆栽" Othera = Othera + "│禮籃&花盒" Otherb = "個人送禮>生日快樂>"& product_style &"" case "表達心意" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│花束" Othera = Othera + "│造型盆栽" Othera = Othera + "│禮籃&花盒" Othera = Othera + "│開運盆栽" Otherb = "個人送禮>表達心意>"& product_style &"" case "情人贈禮" Othera = "參考其他→" Othera = Othera + "盆花" Othera = Othera + "│花束" Othera = Othera + "│禮籃&花盒" Othera = Othera + "│造型盆栽" Othera = Othera + "│開運盆栽" Othera = Othera + "│禮品" Otherb = "個人送禮>情人贈禮>"& product_style &"" case "花禮目錄" Othera = "" Otherb = "花禮目錄>"& product_style &"" case else Othera = "" Otherb = "" End Select %> 自生遍在佛學中心

藏傳佛教入門書建議書單  
網站名稱
網址
至尊17世大寶法王官方網站(英文) http://www.kagyuoffice.org
至尊17世大寶法王中文官方網站 http://www.kagyuoffice.org.tw
卡盧仁波切印度總寺英文網站 http://www.paldenshangpa.org
祈願大法會官方網站 http://www.kagyumonlam.org/
八蚌寺全球網路中心 http://www.palpung.org/
蔣貢康楚仁波切官方網站(英文) http://www.jamgonkongtrul.org
卡盧仁波切中文網站(利生中心) http://www.kalu.org.tw/home.htm
彌律Mirik波卡寺官方網站(建構中) http://www.bokarmonastery.org (建構中)
詠給明就仁波切官方網站(英文) http://www.mingyur.org/index.html