<% dim sDoctorId dim strSQL, rs, rsNN dim sGroupId dim sPageTitle dim sZipCode dim sLastName dim sZipCodeText dim sLastNameText dim Address, SecondAddress dim VCheck, RCheck, NNCheck dim sAltInfo, bShowNN sZipCode = request("pZipCode") sLastName = request("pLastName") sDoctorId = request("DoctorId") 'if sDoctorId <> "" then 'end if sGroupId = request("GroupId") if sGroupId <> "" then strSQL = "GetDirectoryByGroup '" & SITE_ID & "', " & sGroupId sPageTitle = "DOCTORS IN GROUP" TEMPLATE = "BLANK" LEFT_COLUMN = "" else 'search by AreaCode strSQL = "GetDirectorySearch '" & SITE_ID & "', '" & AREA_CODE & "'" & ", '" & sZipCode & "', '" & sLastName & "'" sPageTitle = "DOCTORS in or near " & AREA_CODE & " AREA CODE" TEMPLATE = "BLANK" LEFT_COLUMN = FindADoctor("areacode") 'Get NoNeedleDoctor Info to determine if NoNeedle column shows up set rsNN = runSQL("GetNoNeedleDoctor '" & AREA_CODE & "'") if not rsNN.eof then bShowNN = true end if end if if sZipCode <> "" then sZipCodeText = " and Zip Code starting with " & sZipCode & "
" end if if sLastName <> "" then sLastNameText = " and LastName starting with " & sLastName & "
" end if 'h1print strSQL set rs = runSQL(strSQL) %> <% function Body() dim rsSpotLight dim sTotalDoctors sGroupId = request("GroupId") if sGroupId <> "" then 'Group Display set rsSpotLight = runSQL("Select * from Groups where GroupId=" & sGroupId) %> <% else %>

Group Listing from the Vasectomy.Com Directory of Physicians for <%=rsSpotLight("GroupName")%>
<%=buildSpacer("10,20")%>
Featured Physicians	Performs
<%=buildSpacer("5,1")%>
Current Medical Board and Specialty status from HealthGrades - available for a small fee.	Vasectomy	<%=buildSpacer("10,40")%>	Reversal

<% if bShowNN then %> <% end if %> <% if bShowNN then %> <% end if %> <% end if %> <% if rs.EOF then %>

The Vasectomy.Com Directory of Physicians in or near the <%=AREA_CODE%> Area Code region <%=sZipCodeText%> <%=sLastNameText%>
<%=buildSpacer("20,10")%>
Featured Physicians	Performs
<%=buildSpacer("5,1")%>
Current Medical Board and Specialty status from HealthGrades - available for a small fee.	No Needle	<%=buildSpacer("5,1")%>	Vasectomy	<%=buildSpacer("5,1")%>	Reversal
<% set rsSpotLight = runSQL("GetGroupSpotlight '" & SITE_ID & "', '" & AREA_CODE & "'") if not rsSpotLight.EOF then dim sGroupId sGroupId = rsSpotLight("GroupId") %> <% response.write GetGroupSpotlight(rsSpotLight) %> <%=buildSpacer("20,1")%> Click to learn about the <%=intTotal%> doctors in this group <% if instr(rs("PerformId"), "V") then VCheck = "" else VCheck = " " end if if instr(rs("PerformId"), "N") and SITE_ID = "V" then NNCheck = "" else NNCheck = " " end if if instr(rs("PerformId"), "R") then RCheck = "" else RCheck = " " end if end if %>	<%=NNCheck%>	<%=buildSpacer("5,1")%>	<%=VCheck%>	<%=buildSpacer("5,1")%>	<%=RCheck%>
There are no physicians registered in this area.

<% exit function end if %> <% do while not rs.EOF if trim(rs("Address2")) <> "" then Address = rs("Address") & "
" & rs("Address2") else Address = rs("Address") end if if trim(rs("Practice")) <> "" then Address = rs("Practice") & "
" & Address end if Address = Address & "
" &_ rs("City") & ", " & rs("State") & " " & rs("ZipCode") SecondAddress = "" if rs("SecondCity") <> "" then if trim(rs("SecondAddress2")) <> "" then SecondAddress = rs("SecondAddress") & "
" & rs("SecondAddress2") else SecondAddress = rs("SecondAddress") end if SecondAddress = SecondAddress & "
" &_ rs("SecondCity") & ", " & rs("SecondState") & " " & rs("SecondZipCode") end if if instr(rs("PerformId"), "V") then VCheck = "" else VCheck = " " end if if instr(rs("PerformId"), "N") and SITE_ID = "V" then NNCheck = "" else NNCheck = " " end if if instr(rs("PerformId"), "R") then RCheck = "" else RCheck = " " end if if session("admin") = "true" then if sGroupId <> "" then sAltInfo = "Plan: " & rs("PlanId") else sAltInfo = "Plan: " & rs("PlanId") & " Type: " & rs("AreaCodeType") end if else sAltInfo = "Click on photo for more about Dr. " & rs("LastName") end if %> <% if rs("PlanId") < 5 then %>

<%if rs("PlanId") = 4 then 'Don't show image %> <%=buildSpacer("65,5")%> <%else %> &track=BIO">" width="65" height="85" border="0" alt="<%=sAltInfo %>"> <%end if%>	<%=buildSpacer("10,10")%>	&track=BIO" class="hilinks"><%=rs("FirstName") & " " & rs("MiddleName") & " " & rs("LastName")%>
		<%=Address%>	&track=BIO"> " target="_new">	<%=buildSpacer("10,10")%>	<%=SecondAddress%>

<% if bShowNN then %> <%=NNCheck%> <%=buildSpacer("5,1")%> <% end if %> <%=VCheck%> <%=buildSpacer("5,1")%> <%=RCheck%>

---

<% else 'plan 5 'Exit Loop When Plan 5 Exit do end if rs.MoveNext loop %> <% 'Do Plan 5 Doctors do while not rs.EOF %> <% if bShowNN then %>

<%=buildSpacer("65,5")%>

<%=buildSpacer("10,10")%>

<% else %>

<% end if %> <%=rs("FirstName") & " " & rs("MiddleName") & " " & rs("LastName")%> <%=rs("City") & ", " & rs("State") & " " & rs("ZipCode") %>

" target="_new">

<% if bShowNN then %> <%=buildSpacer("50,1")%> <%=buildSpacer("5,1")%> <% end if %> <%=buildSpacer("50,5")%> <%=buildSpacer("5,1")%> <%=buildSpacer("50,5")%>

---

<% rs.movenext loop %> <% end function function RightColumn() end function %>