%LANGUAGE="VBSCRIPT"
'Response.Buffer =true
pAreaCode= Request.Form("pAreaCode")
'Response.Write len(Request.Item("code"))
'Response.End
if Request.Form("page") <> "" then
session("page") = Request.form("page")
end if
if OpenDB()=true then
set rs = Server.CreateObject("ADODB.Recordset")
end if
if pAreaCode = "" then
id = "0"
if len(Request.Item("code"))>0 then
session("pAreaCode") = Request.Item("code")
pAreaCode=Request.Item("code")
else
session("pAreaCode") = "000"
pAreaCode=0
end if
'Response.Write "countddf = " & session("pAreaCode") & "dd"
else
cntareacode=CountAreaCode(pAreaCode)
' Response.Write "countdd = " & cntareacode
'Response.End
if cntareacode=0 then
AddAreaCode pAreaCode
'Response.Redirect "index.asp?err=1&acode=" & session("pareacode")&"&page="&session("page")
else
'Response.End
end if
'nd if
end if
session("pAreaCode") = pareacode
'To get the browser type and version and the ipaddress
Set bc = Server.CreateObject("MSWC.BrowserType")
browsertype= bc.browser &" " & bc.version
'Response.Write "btype = " & browsertype
'Response.End
ipaddress=Request.ServerVariables ("REMOTE_ADDR")
WelcomeTrack session("pAreaCode"),session("page"),ipaddress,browsertype
imgtype = session("page")
if imgtype = "Vasectomy" then
session("color") = "#336666"
searchcolor = "#8CBCBC"
Pagetype = "REVERSAL"
else
session("color") = "#005A87"
Pagetype = "VASECTOMY"
searchcolor="#438AB6"
end if
'if OpenDB() = true then
'set rs = Server.CreateObject("ADODB.Recordset")
' if Request.Form("pAreaCode") = "" then
' id = "0"
' if len(Request.Item("code"))>0 then
' session("pAreaCode") = Request.Item("code")
' else
' session("pAreaCode") = "000"
' end if
' end if
'color = session("color")
'end if
color = session("color")
pareacode = session("pAreaCode")
'10/9/01 create JS var from ASP var for menu program
'Request.ServerVariables(
function dummy()
Response.Write ""
end function
yy=connect(conobj)
%>
<%if imgtype="Vasectomy" then
'Response.End %>
<%else%>
<%end if%>
Vasectomy.com - The Source for Vasectomy & Reversal Information
"
'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("
<%
'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..."
%>
<%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
%>
The content of this site is not intended as medical advice and is provided for general information only. This site makes no
claims as to the accuracy of its information and is not a substitute for direct consultation with your health care
professional. Consult your own physician regarding your medical questions, symptoms or condition or the applicability of any
information on this Site. Please read the Terms & Conditions
of Use for disclaimers and other important information before
using this site. NO LICENSED PHYSICIAN-PATIENT RELATIONSHIP IS CREATED BY USING INFORMATION PROVIDED
BY OR THROUGH THE USE OF THIS SITE INCLUDING, BUT NOT LIMITED TO, THE FIND A DOCTOR FEATURE OR LINKS TO OTHER SITES. This
site is maintained as a free information resource for the general public, and is made possible through the revenue received
from sponsors, advertisers and participating physician subscriptions. To advertise on this site, see Advertising
Information. LEGAL CONDITIONS AND TERMS OF USE APPLICABLE TO ALL USERS OF THIS SITE. ANY USE OF THIS SITE CONSTITUTES YOUR
AGREEMENT TO THESE TERMS OF USE. Copyright � 1999, 2000, 2001, 2002, 2003 Vasectomy.com. All
Rights Reserved. E-mail us at