 |
|
 |
Welcome To Our Links Page |
 |
|
We are no longer accepting new links
|
<% strDBPath = constloc %>
<%
Dim Connect, Onlinks
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strdbpath
Set Onlinks = Connect.execute("SELECT * from linksdata order by category asc, title asc")
do until Onlinks.EOF
if lab <> onlinks("Category") then
Response.Write "| | "
Response.Write "| " & onlinks("Category") & " | "
lab = onlinks("Category")
end if
Response.Write "| " & Onlinks("title") & "" & " - " & onlinks("description") & " | "
onlinks.MoveNext
loop
%>
|
 |
ScripSolutions |
 |
|
Scrip Solutions offers a Free
Discount Prescription Drug Card accepted at 45,000 Pharmacies
Nationwide.
|
 |
USA Pharmacies |
 |
|
Online mail order Pharmacies located in USA.
|
|
|
Canada Pharmacies |
 |
|
Online mail order Pharmacies Located in Canada.
|
|
