<%@ Language=VBScript %> MDvista













 

<%=formatDateTime(Now(), vbShortDate)%>

  advanced search


 
<%if (request.form("btnSearch") <> "") then%>
<%else%>
<%end if%>
<% Dim bSubmitted 'Are we displaying search form or search results? Dim i Dim arsInfoType Dim sKeywords Dim bSrchProprietary Dim bSrchLibrary Dim sSubTopic Dim ariSpecialty Dim objSearch Dim rsSearchResults Dim bFoundResults if IsPosted then 'Store the form data sKeywords = trim(request.form("txtKeywords")) if (Request.Form("chkProprietary") <> "") then bSrchProprietary = true else bSrchProprietary = false end if if (Request.Form("chkLibrary") <> "") then bSrchLibrary = true else bSrchLibrary = false end if dim allInfoType allInfoType = Request.Form("cboInfoType") if cstr(allInfoType) = "-1" then allInfoType = "" end if dim allSpecialty allSpecialty = request.form("cboSpecialty") if cstr(allSpecialty) = "-1" then allSpecialty = "" end if dim iKeywordType iKeywordType = cint(Request.Form("keywordType")) 'Call the search component On Error Resume Next set objSearch = server.CreateObject("MDVista.clsSearch") set rsSearchResults = objSearch.advSearch(sKeywords, iKeywordType, bSrchProprietary, bSrchLibrary, allInfoType, allSpecialty) set objSearch = Nothing 'If we encountered an error, just say no records found instead 'of showing an error (temporary fix) if Err <> 0 then bFoundResults = false else bFoundResults = true end if if bFoundResults then if bSrchProprietary then DisplayProp end if if bSrchLibrary then DisplayLibrary end if end if set rsSearchResults = nothing if not bFoundResults then DisplayNoResults end if bSubmitted = true else 'display the search form bSubmitted = false Dim arsSpecialty() Dim objDataAccess Dim rsRecords Dim iInfoTypes set objDataAccess = server.CreateObject("MDVista.clsDataAccess") 'First store the InfoType data in an array. set rsRecords = objDataAccess.sqlQueryRs("SP_GetInfoTypes") arsInfoType = rsRecords.getRows 'Now store the Specialty data in an array. set rsRecords = objDataAccess.sqlQueryRs("SP_GetIndentedSpecialties") if NOT (rsRecords.BOF and rsRecords.EOF) then i = 0 do while not rsRecords.EOF Redim Preserve arsSpecialty(1, i) arsSpecialty(0, i) = rsRecords("Specialty") arsSpecialty(1, i) = rsRecords("SpecialtyID") rsRecords.MoveNext i = i + 1 loop rsRecords.close end if set objDataAccess = nothing set rsRecords = nothing %>

Note: At this time, our search engine scans only the MDvista Journal of Medicine- July 2000 edition. In the coming weeks, we will expand this offering, so that you will be able to search our archive of over 200 articles and 6000 library links.

Keywords: 

Any of the keywords

All of the keywords

Boolean expression

 Include MDvista Proprietary Content:

Specialty:
Note: Hold down the control key to select multiple specialties.
<%sbWriteSelectBox arsSpecialty, "cboSpecialty", "0", "MULTIPLE SIZE=10"%>

 Include MDvista Medical Library

Info Type:
 Note: Hold down the control key to select multiple info types.
<%sbWriteSelectBox arsInfoType, "cboInfoType", "0", "MULTIPLE SIZE=6"%>

<% end if %>
 


Copyright © 2000, MDvista Inc. All Rights Reserved
 
<% sub DisplayProp if rsSearchResults.EOF then bFoundResults = false else Response.write "

MDvista Proprietary Content:
" do until rsSearchResults.EOF if (fnCheckPrevious(rsSearchResults("ParentSpecialty"), sPrevParent)) then bParentChanged = true Response.Write "" & rsSearchResults("ParentSpecialty") & "" end if bFoundResults = true end if end sub sub DisplayLibrary dim iRcdCount, LastInfoType, counter, url set rsSearchResults = rsSearchResults.nextRecordset iRcdCount = rsSearchResults(0) if iRcdCount > 0 then 'display a divider between mdvista content and library if bSrchProprietary and bFoundResults then Response.Write "
" end if Response.Write "

MDvsita Medical Library:

" if iRcdCount > 100 then Response.Write "

First 100 of " & iRcdCount & " returned.

" end if set rsSearchResults = rsSearchResults.nextRecordset counter = 0 do until rsSearchResults.eof if LastInfoType <> rsSearchResults("infoType").value then LastInfoType = rsSearchResults("infoType").value if counter > 0 then Response.Write "" end if Response.Write "" & rsSearchResults("infoType").value & "

" bFoundResults = true else bFoundResults = false end if end sub sub DisplayNoResults %>

Your search returned 0 results.

Try some of the following to improve your search:

Note: At this time, our search engine scans only the MDvista Journal of Medicine- July 2000 edition. In the coming weeks, we will expand this offering, so that you will be able to search our archive of over 200 articles and 6000 library links.

<% end sub %>