<%@ CodePage=65001 %> 植牙,人工植牙|印象牙e學院-提供您有關牙齒問題的小百科,歡迎入學喔!
植牙 | 牙周病 | 植牙費用 | 小百科|回首頁
植牙權威-印象牙醫
關於印象牙醫診所
植牙專門醫師介紹
水雷射治療
植牙
牙齒矯正
牙齒美白
牙齒美容與全口重建
假牙
牙周病
 

<% Dim limitNum Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & _ Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\faq.mdb" 'response.write Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\faq.mdb" if request("cid") <> "" then sql = "SELECT * FROM faqcate INNER JOIN lang ON faqcate.langid = lang.langid WHERE lang.langid=2 AND faqcate.faqcateid=" & request("cid") limitNum = -1 else sql = "SELECT * FROM faqcate INNER JOIN lang ON faqcate.langid = lang.langid WHERE lang.langid=2 ORDER BY faqcate.sortid" limitNum = 3 end if 'sql = "SELECT * FROM faqcate WHERE faqcate.langid=2" set rs = DataConn.Execute(sql) Do while Not rs.EOF %>
<% sql = "SELECT Count(*) as counter FROM faqcate INNER JOIN faq ON faqcate.faqcateid = faq.faqcateid WHERE faq.enable=-1 AND faq.faqcateid=" & rs("faqcateid") set rs1 = DataConn.Execute(sql) sql = "SELECT * FROM faqcate INNER JOIN faq ON faqcate.faqcateid = faq.faqcateid WHERE faq.enable=-1 AND faq.faqcateid=" & rs("faqcateid") & " ORDER BY faq.datetime DESC" set rs2 = DataConn.Execute(sql) a=0 Do while Not rs2.EOF a=a+1 if limitNum > -1 and rs1("counter") > limitNum and a > limitNum then Exit Do end if %> <% rs2.MoveNext Loop rs1.close rs2.close %> <% if limitNum > -1 then %> <% else %> <% end if %>
::<%=rs("faqcate")%>
[<% Response.Write year(rs2("datetime")) & "-" & month(rs2("datetime")) & "-" & day(rs2("datetime")) %>]
<% rs.MoveNext Loop rs.close %>
紐約大學植牙專科
多倫多大學矯正專科 加拿大皇家牙醫學院
 
美麗境界皮膚科診所
 
 
 
 
印象牙醫診所
 
台北市民權東路二段108號(行天宮斜對面)
預約電話:(02)2543-4000
諮詢專線:(02)2543-2412, 2543-4000
E-mail:service@edental.com.tw
Copyright © Image Dental Clinic.
Taiwan Products, B2BChinaSources, B2BManufactures