Top Doctors on American Beauty
& Wellness
| <%
RS.Open "SELECT ID,business,doctor,address,suite,city,state,zip " & _
" FROM abaw_drdata " & _
" WHERE ID = 670 ", Conn1
WHILE NOT RS.EOF
docID=RS("ID")
business=RS("business")
doctor=RS("doctor")
address=RS("address")
suite=RS("suite")
city=RS("city")
state=RS("state")
zip=RS("zip")
%> |
|
|
<%=doctor%>
<%=business%> |
<%=address%><%IF suite<>"" THEN Response.Write "
" & suite%>
<%=city%>, <%=state%> <%=zip%> |
|
|
<%
RS.MoveNext
WEND
RS.Close
%>
|
| <%
RS.Open "SELECT ID,business,doctor,address,suite,city,state,zip " & _
" FROM abaw_drdata " & _
" WHERE zip = '90210'", Conn1
WHILE NOT RS.EOF AND tmpNum<2
docID=RS("ID")
business=RS("business")
doctor=RS("doctor")
address=RS("address")
suite=RS("suite")
city=RS("city")
state=RS("state")
zip=RS("zip")
%> |
|
|
<%=doctor%>
<%=business%> |
<%=address%><%IF suite<>"" THEN Response.Write "
" & suite%>
<%=city%>, <%=state%> <%=zip%> |
|
|
<%
tmpNum=tmpNum+1
RS.MoveNext
WEND
RS.Close
tmpNum=0
%>
|
| <%
RS.Open "SELECT ID,business,doctor,address,suite,city,state,zip " & _
" FROM abaw_drdata " & _
" WHERE zip = '10021'", Conn1
WHILE NOT RS.EOF AND tmpNum<2
docID=RS("ID")
business=RS("business")
doctor=RS("doctor")
address=RS("address")
suite=RS("suite")
city=RS("city")
state=RS("state")
zip=RS("zip")
%> |
|
|
<%=doctor%>
<%=business%> |
<%=address%><%IF suite<>"" THEN Response.Write "
" & suite%>
<%=city%>, <%=state%> <%=zip%> |
|
|
<%
tmpNum=tmpNum+1
RS.MoveNext
WEND
RS.Close
tmpNum=0
%>
|
Browse Doctors by State
Alabama |
Alaska |
Arizona |
Arkansas |
California |
Colorado |
Connecticut |
Delaware |
District of Columbia |
Florida |
Georgia |
Hawaii |
Idaho |
Illinois |
Indiana |
Iowa |
Kansas |
Kentucky |
Louisiana |
Maine |
Maryland |
Massachusetts |
Michigan |
Minnesota |
Mississippi |
Missouri |
Montana |
Nebraska |
Nevada |
New Hampshire |
New Jersey |
New Mexico |
New York |
North Carolina |
North Dakota |
Ohio |
Oklahoma |
Oregon |
Pennsylvania |
Rhode Island |
South Carolina |
South Dakota |
Tennessee |
Texas |
Utah |
Vermont |
Virgin Islands |
Virginia |
Washington |
West Virginia |
Wisconsin |
Wyoming
<%
RS.Open "SELECT ID,category,procedure,siteurl " & _
" FROM abaw_procedure " & _
" ORDER BY category,procedure ", Conn1
WHILE NOT RS.EOF
%>
?abaw_procedure_ID=<%=RS("ID")%>"><%=RS("procedure")%>
<%
RS.MoveNext
IF NOT RS.EOF THEN Response.Write " | "
WEND
RS.Close
%>
|
|
