<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT distinct sdrugs,path FROM drug order by sdrugs;"
rs.Open strSQL, strCon
%>
Drugs
* Click to find the combination, method of preparation,Indication and dosage.
SlNo
Name
SlNo
Name
<% dim a(1000)
dim b(1000)
j=0
if Not (rs.bof and rs.eof) then
rs.movefirst
while not(rs.eof)
a(j)=rs("sdrugs")
b(j)=rs("path")
j=j+1
rs.movenext
wend
end if %>
<% for k=0 to j-1%>
