<% dim FaqType,FaqKind,FoundErr,ErrMsg FaqType=Trim(Request("FaqType")) FaqKind=Trim(Request("FaqKind")) IF FaqType = "" Then FaqType = "Q" End if %> 深浦藥品
 
 
HOME    •CONTACT US
 
 
李醫師專欄
健康專題
常見問題
 

HOME > 保健專欄 > 常見問題

 
 
 
<%objRecordSet.close%>
  <% '讀取FAQ資料 strQuery="SELECT * FROM faq INNER JOIN faqKind ON faq.fa_fkno = faqkind.fk_no" strQuery=strQuery & " WHERE faqkind.fk_ftno= '" & CSTR(FaqType) &"' " If faqKind <> "" Then strQuery=strQuery & " AND faq.fa_fkno= " & CSTR(FaqKind) End if strQuery=strQuery & " ORDER BY fa_fkno,fa_seq,fa_no" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) If NOT (objRecordSet.bof or objRecordSet.eof) then do while not objRecordSet.eof %> <% objRecordSet.movenext loop End if %>
"> 
<%=dvHTMLEncode(objRecordSet("fa_subject"))%>
<%=dvHTMLEncode(objRecordSet("fa_content"))%>