Please contact EasyPharmacy for more current list More Plans <% for i = asc("A") to asc("Z") Response.Write "" & chr(i) & " " next if Request.QueryString("alpha") = "" then %> More Plans Click on the alphabet to view the list of Insurance Companie that we support. <% else Response.Write " " dim con set con = server.CreateObject("ADODB.Connection") strconnect = "DBQ=" & server.MapPath("/data/ep.mdb") & ";DefaultDir=" & server.MapPath("/data") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" 'strconnect = "DBQ=D:\projects\Pharmacy\thesite\data\ep.mdb;DefaultDir=D:\projects\Pharmacy\thesite\data;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" con.Open strconnect searchTable = Request.QueryString("alpha") strsql = "Select * from " & searchtable & " where field2 like '%" & Request.QueryString("alpha") & "%' order by field2" set rs = con.Execute(strsql) if not rs.eof and not rs.bof then %><% on error resume next counter = 1 while not rs.eof Response.Write "" rs.movenext counter = counter + 1 Response.Write "" counter = counter + 1 rs.movenext wend %> " & counter & ". " & rs(0) & "  " & counter & ". " & rs(0) & "  <% end if end if %> <% for i = asc("A") to asc("Z") Response.Write "" & chr(i) & " " next %>

All content of this web site is for information purposes only and is not a substitute for professional medical advice, rather it is designed to support, not replace, the relationship between you and your healthcare providers. You should make sure that you carefully read all product packaging and labels prior to use. If you have, or suspect you may have a health problem you should consult your doctor. Please consult your doctor before taking any new product, particularly if you are already under medical care.