%function UserLeftMenu()%>
<%docDisplay = True
If Instr(Request.ServerVariables("SCRIPT_NAME"),"docsearch.asp")>0 Then
docDisplay = False
End If
If (Request.QueryString("article")="find-a-doctor" OR Request("article")="apptrequest") Then
docDisplay = False
End If
If (Instr(Request.ServerVariables("SCRIPT_NAME"),"search.asp")>0)Then
docDisplay = False
End If
'Response.Write(Instr(Request.ServerVariables("SCRIPT_NAME"),"article=find-a-doctor") &"
")
'Response.Write(Request.ServerVariables("PATH_INFO") &"
")
If docDisplay = True Then
%>
|
<%End If%>
|
|
<%End Function
function Get_html(articlefile,index)
dim str
dim fso
dim fpath
dim ts
readfile = "no"
article = index & "/" & articlefile
'Response.Write "pathx = " & server.MapPath(articlefile)
const ForReading = 1
set fso = createobject("Scripting.FilesystemObject")
fpath = server.MapPath(article & ".html")
'Response.Write "path = " & fpath
if fso.FileExists(fpath) then
set ts = fso.OpenTextFile(fpath,ForReading)
do while ts.AtEndofStream = false
str = ts.ReadLine
if mid(str,6,10) = "START READ" then
readfile = "yes"
else if mid(str,6,8) = "END READ" then
readfile = "no"
end if
end if
if readfile = "yes" then
Response.Write(str)
Response.Write(chr(13))
end if
loop
else
Gethtml = "Vasectomy.com - FILE ERROR
**** File not found: " & articlefile & ".html ****
"
end if
end function
%>