<%
'---------------------------------------------------------------------------------------------------
'---------------------------- Code Block With New Doctor Sponsors Display Logic --------------------
'---------------------------- Written by RK 6/5/2003 -----------------------------------------------
'---------------------------- Please do not delete/comment any of the lines ------------------------
'---------------------------- Doing so will create problems with doctor display --------------------
'---------------------------------------------------------------------------------------------------
localDoctorCount = 0
doctorSponsorString =""
For x = 1 to 8
defaultdoc = "No"
str=DoctorListLeft(imgtype,x,session("pAreaCode"),ZipCode,ID,lastname,firstname,title,state,image,city,defaultdoc,VasectomyPos,ReversalPos,conobj)
If x=2 Then
docSecond = ""
docId2 = 0
if ID > 0 then
docId2 = Id
docSecond = docSecond & ""
docSecond = docSecond & "![]() "
docSecond = docSecond & "" & firstname & "
"
docSecond = docSecond & lastname & "
"
docSecond = docSecond & title & ",
"
docSecond = docSecond & city & ", " & state & "
"
docSecond = docSecond & "
"
end if
ElseIf x=3 Then
docId3 = 0
docThird = ""
if ID > 0 then
docId3 = Id
docThird = docThird & ""
docThird = docThird & "![]() "
docThird = docThird & "" & firstname & "
"
docThird = docThird & lastname & "
"
docThird = docThird & title & ",
"
docThird = docThird & city & ", " & state & "
"
docThird = docThird & "
"
end if
ElseIf x=4 Then
docId4 = 0
docFourth = ""
if ID > 0 then
docId4 = Id
docFourth = docFourth & ""
docFourth = docFourth & "![]() "
docFourth = docFourth & "" & firstname & "
"
docFourth = docFourth & lastname & "
"
docFourth = docFourth & title & ",
"
docFourth = docFourth & city & ", " & state & "
"
'docFourth = docFourth & "
"
end if
ElseIf x=5 Then
docId5 = 0
docFifth = ""
if ID > 0 then
docId5 = Id
docFifth = docFifth & ""
docFifth = docFifth & "![]() "
docFifth = docFifth & "" & firstname & "
"
docFifth = docFifth & lastname & "
"
docFifth = docFifth & title & ",
"
docFifth = docFifth & city & ", " & state & " "
'docFifth = docFifth & "
"
end if
ElseIf x=6 Then
docId6 = 0
docSixth = ""
if ID > 0 then
docId6 = Id
docSixth = docSixth & ""
docSixth = docSixth & "![]() "
docSixth = docSixth & "" & firstname & "
"
docSixth = docSixth & lastname & "
"
docSixth = docSixth & title & ",
"
docSixth = docSixth & city & ", " & state & "
"
'docSixth = docSixth & "
"
end if
ElseIf x=7 Then
docId7 = 0
docSeventh = ""
if ID > 0 then
docId7 = Id
docSeventh = docSeventh & ""
docSeventh = docSeventh & "![]() "
docSeventh = docSeventh & "" & firstname & "
"
docSeventh = docSeventh & lastname & "
"
docSeventh = docSeventh & title & ",
"
docSeventh = docSeventh & city & ", " & state & "
"
'docSeventh = docSeventh & "
"
end if
ElseIf x=8 Then
docId8 = 0
docEight = ""
if ID > 0 then
docId8 = Id
docEight = docEight & ""
docEight = docEight & "![]() "
docEight = docEight & "" & firstname & "
"
docEight = docEight & lastname & "
"
docEight = docEight & title & ",
"
docEight = docEight & city & ", " & state & "
"
'docEight = docEight & "
"
end if
End If
if ID = 0 then
Defaultdoc = "Yes"
stx=DoctorList(imgtype,x,AreaCode,ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos,conobj)
If x=2 Then
defaultDocSecond = ""
ddocId2 = 0
if ID > 0 then
ddocId2 = Id
defaultDocSecond = defaultDocSecond & ""
defaultDocSecond = defaultDocSecond & "![]() "
defaultDocSecond = defaultDocSecond & "" & firstname & "
"
defaultDocSecond = defaultDocSecond & lastname & "
"
defaultDocSecond = defaultDocSecond & title & ",
"
defaultDocSecond = defaultDocSecond & city & ", " & state & "
"
defaultDocSecond = defaultDocSecond & "
"
end if
ElseIf x=3 Then
defaultdocThird = ""
ddocId3 = 0
if ID > 0 then
ddocId3 = Id
defaultdocThird = defaultdocThird & ""
defaultdocThird = defaultdocThird & "![]() "
defaultdocThird = defaultdocThird & "" & firstname & "
"
defaultdocThird = defaultdocThird & lastname & "
"
defaultdocThird = defaultdocThird & title & ",
"
defaultdocThird = defaultdocThird & city & ", " & state & "
"
defaultdocThird = defaultdocThird & "
"
end if
ElseIf x=4 Then
ddocId4 = 0
defaultdocFourth = ""
if ID > 0 then
ddocId4 = Id
defaultdocFourth = defaultdocFourth & ""
defaultdocFourth = defaultdocFourth & "![]() "
defaultdocFourth = defaultdocFourth & "" & firstname & "
"
defaultdocFourth = defaultdocFourth & lastname & "
"
defaultdocFourth = defaultdocFourth & title & ",
"
defaultdocFourth = defaultdocFourth & city & ", " & state & "
"
'defaultdocFourth = defaultdocFourth & "
"
end if
ElseIf x=5 Then
ddocId5 = 0
defaultdocFifth = ""
if ID > 0 then
ddocId5 = Id
defaultdocFifth = defaultdocFifth & ""
defaultdocFifth = defaultdocFifth & "![]() "
defaultdocFifth = defaultdocFifth & "" & firstname & "
"
defaultdocFifth = defaultdocFifth & lastname & "
"
defaultdocFifth = defaultdocFifth & title & ",
"
defaultdocFifth = defaultdocFifth & city & ", " & state & " "
'defaultdocFifth = defaultdocFifth & "
"
end if
ElseIf x=6 Then
ddocId6 = 0
defaultdocSixth = ""
if ID > 0 then
ddocId6 = Id
defaultdocSixth = defaultdocSixth & ""
defaultdocSixth = defaultdocSixth & "![]() "
defaultdocSixth = defaultdocSixth & "" & firstname & "
"
defaultdocSixth = defaultdocSixth & lastname & "
"
defaultdocSixth = defaultdocSixth & title & ",
"
defaultdocSixth = defaultdocSixth & city & ", " & state & "
"
'defaultdocSixth = defaultdocSixth & "
"
end if
ElseIf x=7 Then
ddocId7 = 0
defaultdocSeventh = ""
if ID > 0 then
ddocId7 = Id
defaultdocSeventh = defaultdocSeventh & ""
defaultdocSeventh = defaultdocSeventh & "![]() "
defaultdocSeventh = defaultdocSeventh & "" & firstname & "
"
defaultdocSeventh = defaultdocSeventh & lastname & "
"
defaultdocSeventh = defaultdocSeventh & title & ",
"
defaultdocSeventh = defaultdocSeventh & city & ", " & state & "
"
'defaultdocSeventh = defaultdocSeventh & "
"
end if
ElseIf x=8 Then
ddocId8 = 0
defaultdocEight = ""
if ID > 0 then
ddocId8 = Id
defaultdocEight = defaultdocEight & ""
defaultdocEight = defaultdocEight & "![]() "
defaultdocEight = defaultdocEight & "" & firstname & "
"
defaultdocEight = defaultdocEight & lastname & "
"
defaultdocEight = defaultdocEight & title & ",
"
defaultdocEight = defaultdocEight & city & ", " & state & "
"
'defaultdocEight = defaultdocEight & "
"
end if
End If
'response.write("i am in no doctor")
localDoctorCount = localDoctorCount+1
end if
If (x=1 AND ID=0) Then
Defaultdoc="No"
str=DoctorListNew(imgtype,1,session("pAreaCode"),ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos,conobj)
End If
if ID > 0 AND Defaultdoc="No" then
doctorSponsorString = doctorSponsorString & "" & firstname & "
"
doctorSponsorString = doctorSponsorString & lastname & "
"
doctorSponsorString = doctorSponsorString & " " & city & " " & state & "
"
localDoctorCount = localDoctorCount-1
end if
firstname = ""
lastname = ""
defaultdoc = "No"
Next
AreaCode = session("pAreaCode")
'Calling Function
plan4Doctors = Plan4DoctorList(AreaCode,conobj)
'---------------------------------------------------------------------------------------------------
'---------------------------- Writing the results composed in above two steps ---------------------
'---------------------------- to browser Written by RK 6/5/2003 ------------------------------------
'---------------------------- If Doctor sponsors exists for a area code ----------------------------
'---------------------------- then the process of display of plan 1,2,3,4 --------------------------
'---------------------------- Doctors starts - otherwise nothing will display ----------------------
'---------------------------------------------------------------------------------------------------
If (localDoctorCount<8 OR (Len(trim(plan4Doctors))>0 AND plan4Doctors<>"" )) Then
'---
'--- Table row opening for local doctor sponsors writing
'---
Response.Write("")
Response.Write("
")
'Response.write(localDoctorCount & "
local" & localDoctorCount)
Response.Write("![]()
")
Response.Write("![]()
")
End If
If localDoctorCount=8 Then
'Response.Write ("No Doctor Sponsors available.")
Else
'Response.Write("![]()
")
Response.Write(doctorSponsorString)
If session("pAreaCode")<>"" Then
'str=Plan4DoctorList(imgtype,1,session("pAreaCode"),ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos,conobj)
'If ID > 0 Then
' doctorSponsorString = doctorSponsorString & "" & firstname & "
"
' doctorSponsorString = doctorSponsorString & lastname & "
"
' 'doctorSponsorString = doctorSponsorString & " " & city & " " & state & "
"
'End If
End If
End If
If (localDoctorCount<8 AND (Len(trim(plan4Doctors))>0 AND plan4Doctors<>"")) Then
Response.Write("![]() More Local Sponsors
")
Response.Write("![]() ")
End If
If session("pAreaCode")<>"" Then
If Len(trim(plan4Doctors))>0 AND plan4Doctors<>"" Then
'Response.Write("
")
Response.Write(plan4Doctors)
End If
End If
If (localDoctorCount<8 OR (Len(trim(plan4Doctors))>0 AND plan4Doctors<>"")) Then
Response.Write("
")
Response.Write(" | ")
Response.Write(" ")
End If
%>
<%
'Response.write(localDoctorCount & "
local" & localDoctorCount)
If (localDoctorCount=8 AND (Len(trim(plan4Doctors))=0 AND plan4Doctors="")) Then
Response.Write("
")
End If
%>
<%if imgtype="Vasectomy" then%>
<%dummy%>
<%dummy%>
<%else%>
<%dummy%>
<%dummy%>
<%end if%>
Vasectomy vs. Tubal
Ligation Controversy
Vasectomy Does Not
Increase Cancer Risk
|
|
|
|
| |
| |
|
|
|
|
|
 |
|
|
|
|
|
|
<%
'str=DoctorList(imgtype,1,session("pAreaCode"),ZipCode,ID,lastname,firstname,title,state,image,city,defaultdoc,VasectomyPos,ReversalPos)
str=DoctorListNew(imgtype,1,session("pAreaCode"),ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos,conobj)
'Response.Write "strkiran = " & str
'Response.End
if ID = 0 then
Defaultdoc = "Yes"
' stx=DoctorList(imgtype,1,AreaCode,ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos)
str=DoctorListNew(imgtype,1,AreaCode,ZipCode,ID,lastname,firstname,title,state,image,city,DefaultDoc,VasectomyPos,ReversalPos,conobj)
end if
if imgtype = "Vasectomy" then
article = "no-scalpel"
text = "What's in a name? There's more than one vasectomy technique. Here are some distinctions..."
else
article = "Natural-Contraception"
text = "Making an informed decision about what's right for you and your family..."
end if%>
 |
<%if ID = 0 then%>
<%else%>
<%
titleLink= "Learn More About Dr." & firstname & lastname
%>
<%=firstname%>
<%=lastname%>
<%=title%>
<%=City%>, <%=State%>
<%end if%>
|
<%=text%>
|
|
 |
<%if imgtype = "Vasectomy" then
article = "spermbank"
else
article = "spermbank"
end if%>
|
|
 |
|
<%
If docId2<> 0 Then
id = docId2
Else
id = ddocId2
End If
if imgtype = "Vasectomy" then
article = "sex-drive"
text = "It's a natural concern, for both husband and wife. Couples often want to know, but sometimes don't know how to ask about sexual drive. Will things be the same - especially for the man - following a vasectomy? Here's what to expect..."%>
<%
else
article = "success"
text = "Reversal is more common and available; but will it work?..."
%>
|
<%
end if
If docSecond<> "" Then
Response.Write(docSecond)
Else
Response.Write(defaultDocSecond)
End If
%>
<%=text%>
|
|
 |
|
<%
If docId3<> 0 Then
id = docId3
Else
id = ddocId3
End If
if imgtype = "Vasectomy" then
article = "fears"
text = "The idea of having a vasectomy can raise fears - both real and imagined - about the procedure and what to expect. While apprehension can be common, the best answers are always found in knowing the facts. Consider these specifics as a guide to understanding..."
%>
|
<%else
article = "reversal-cost"
text = "As with most medical procedures, the cost of a vasectomy reversal varies between physician practices, states and the type of procedure used. "
%>
|
<%end if
If docThird<> "" Then
Response.Write(docThird)
Else
Response.Write(defaultDocThird)
End If
%>
<%=text%>
|
 |
Here
are some ways to help you find a qualified professional in your vicinity.
By doing a little research, you can discover the doctor who is right
for you... 
|
|
 |
|
<%
If docId4<> 0 Then
id = docId4
Else
id = ddocId4
End If
if imgtype = "Vasectomy" then
article = "Vasectomy-top10-questions"
else
article = "Reversal-top10-questions"
end if%>
<%
If docFourth<> "" Then
Response.Write(docFourth)
Else
Response.Write(defaultDocFourth)
End If
%>
What men - and their wives - want to know. Here is a checklist of some
of the most frequently asked questions, and the answers that doctors
provide. Compare what's on your mind with this Top 10 list when considering
a No-Scalpel Vasectomy...
|
|
 |
|
<%
if imgtype = "Vasectomy" then
article = "compare"
else
article = "woman-r"
end if
%>
|
|
 |
|
<%
If docId5<> 0 Then
id = docId5
Else
id = ddocId5
End If
if imgtype = "Vasectomy" then
article = "permanent"
else
article = "After-Reversal"
text = "Your guide to the days and weeks
following a vasectomy reversal."
end if
articlemore = article
idmore = id
If docFifth<> "" Then
Response.Write(docFifth)
Else
Response.Write(defaultDocFifth)
End If
%>
|
|
<%
If docId6<> 0 Then
id = docId6
Else
id = ddocId6
End If
if imgtype = "Vasectomy" then
article = "woman-v"
else
article = "Second-Attempt-Reversal"
end if%>
 |
<%
If docSixth<> "" Then
Response.Write(docSixth)
ElseIf defaultdocSixth<>"" Then
Response.Write(defaultdocSixth)
Else
Response.Write("![]() ")
End If
%>
|
|
|
|
|
|
|
<%if imgtype = "Vasectomy" then%>
|
|
|
<%
If docId7<> 0 Then
id = docId7
Else
id = ddocId7
End If
if imgtype = "Vasectomy" then
article = "Vasectomy-Cost"
else
article = "Reversal-Cost"
end if
article7 = article
id7 = id
If docSeventh<> "" Then
Response.Write(docSeventh)
Else
Response.Write(defaultdocSeventh)
End If
%>
|
|
<%
If docId8<> 0 Then
id = docId8
Else
id = ddocId8
End If
if imgtype = "Vasectomy" then
article = "expectations"
else
article = ""
end if%>
|
<%
If docEight<> "" Then
Response.Write(docEight)
ElseIf defaultdocEight<>"" Then
Response.Write(defaultdocEight)
Else
Response.Write("![]() ")
End If
%>
|
|
|
|
|
|
|
<%end if%>
| |
<%Else%>
<%End If%>
