<%@ language="VBSCRIPT" codepage="950" %> <% Dim drugeduRec__MMColParam drugeduRec__MMColParam = "1" If (Request.QueryString("code") <> "") Then drugeduRec__MMColParam = Request.QueryString("code") End If %> <% Dim drugeduRec Dim drugeduRec_numRows Set drugeduRec = Server.CreateObject("ADODB.Recordset") drugeduRec.ActiveConnection = MM_druginfconn_STRING drugeduRec.Source = "SELECT 學名, 藥品代號, 英商品名, 中文藥名, 儲存, " drugeduRec.Source = drugeduRec.Source & "UsedForWhat, HowToUse, MissADose, WatchForWhat, StoreAndDispose, PossibleSE, [12-民眾藥教].更新日 " drugeduRec.Source = drugeduRec.Source & "FROM [01-ALL] INNER JOIN [12-民眾藥教] ON [01-ALL].藥品代號 = [12-民眾藥教].Code " drugeduRec.Source = drugeduRec.Source & "WHERE 藥品代號 LIKE '" + drugeduRec__MMColParam + "'" drugeduRec.CursorType = 0 drugeduRec.CursorLocation = 2 drugeduRec.LockType = 1 drugeduRec.Open() drugeduRec_numRows = 0 %> Drug Information Sheet
<% If Not drugeduRec.EOF Or Not drugeduRec.BOF Then %> <%Else%>
Mackay Memorial Hospital Department of Pharmacy
Drug Information Sheet

 

Generic name: <%=(drugeduRec.Fields.Item("學名").Value)%> " border="1" alt="" style="float: left; height: 125px">
Trade name: <%=(drugeduRec.Fields.Item("英商品名").Value)%>
Trade name: <%=(drugeduRec.Fields.Item("中文藥名").Value)%>
Code: <%=(drugeduRec.Fields.Item("藥品代號").Value)%>
 

q What is this medicine used for?
<%=Replace("" & drugeduRec.Fields.Item("UsedForWhat").Value,vbCrLf,"
")%>
q How to use this medicine:
<%=Replace("" & drugeduRec.Fields.Item("HowToUse").Value,vbCrLf,"
")%>
q What if I miss a dose?
<%=Replace("" & drugeduRec.Fields.Item("MissADose").Value,vbCrLf,"
")%>
q What should I watch for while using this medicine?
<%=Replace("" & drugeduRec.Fields.Item("WatchForWhat").Value,vbCrLf,"
")%>
q How to store and dispose of this medicine:
<%=(drugeduRec.Fields.Item("StoreAndDispose").Value)%>
q Possible side effects while using this medicine:
<%=Replace("" & drugeduRec.Fields.Item("PossibleSE").Value,vbCrLf,"
")%>

 

This information should not be considered complete. If you have any question, please consult doctor or pharmacist for details. We will be glad to serve you.
Mackay Memorial Hospital Department of Pharmacy TEL:02-25433535-2243
Last updated: <%=(drugeduRec.Fields.Item("更新日").Value)%>


patient information sheet is not avaible, please call drug information center.

Taipei branch:(02)2543-3535 ext.2243
Tamsui branch:(02)2809-4661 ext.2535
<% End If ' end Not drugeduRec.EOF Or NOT drugeduRec.BOF drugeduRec.Close() Set drugeduRec = Nothing %>